urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-15 12:43:31 +03:00
Code Issues Packages Projects Releases Wiki Activity

Clean up base58 en/decoding

Browse Source
This commit is contained in:
Fang 2018-06-29 01:11:55 +02:00
parent 4352293d44
commit 004ac54d28
1 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lib/bip.hoon
View File

@ -220,27 +220,25 @@
(cut 3 [vw (sub (met 3 x) (add 4 vw))] x) (cut 3 [vw (sub (met 3 x) (add 4 vw))] x)
:: ::
++ en-base58 ++ en-base58
|= a=@ |= dat=@
=/ cha =/ cha
'123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz' '123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz'
%- flop %- flop
|- ^- tape |- ^- tape
?: =(0 a) ~ ?: =(0 dat) ~
:- (cut 3 [(mod a 58) 1] cha) :- (cut 3 [(mod dat 58) 1] cha)
$(a (div a 58)) $(dat (div dat 58))
:: ::
++ de-base58 ++ de-base58
=- |=(t=tape (scan t fel)) |= t=tape
=< fel=(bass 58 .) =- (scan t (bass 58 (plus -)))
=- (cook welp ;~(plug (plus siw) (stun 0^2 (cold %0 tis))))
^= siw
;~ pose ;~ pose
(cook |=(a/@ (sub a 56)) (shim 'A' 'H')) (cook |=(a=@ (sub a 56)) (shim 'A' 'H'))
(cook |=(a/@ (sub a 57)) (shim 'J' 'N')) (cook |=(a=@ (sub a 57)) (shim 'J' 'N'))
(cook |=(a/@ (sub a 58)) (shim 'P' 'Z')) (cook |=(a=@ (sub a 58)) (shim 'P' 'Z'))
(cook |=(a/@ (sub a 64)) (shim 'a' 'k')) (cook |=(a=@ (sub a 64)) (shim 'a' 'k'))
(cook |=(a/@ (sub a 65)) (shim 'm' 'z')) (cook |=(a=@ (sub a 65)) (shim 'm' 'z'))
(cook |=(a/@ (sub a 49)) (shim '1' '9')) (cook |=(a=@ (sub a 49)) (shim '1' '9'))
== ==
-- --
:: ::