urbit/shrub
1
1
Fork 0
mirror of https://github.com/urbit/shrub.git synced 2024-12-15 04:22:48 +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)
::
++ en-base58
|= a=@
|= dat=@
=/ cha
'123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz'
%- flop
|- ^- tape
?: =(0 a) ~
:- (cut 3 [(mod a 58) 1] cha)
$(a (div a 58))
?: =(0 dat) ~
:- (cut 3 [(mod dat 58) 1] cha)
$(dat (div dat 58))
::
++ de-base58
=- |=(t=tape (scan t fel))
=< fel=(bass 58 .)
=- (cook welp ;~(plug (plus siw) (stun 0^2 (cold %0 tis))))
^= siw
|= t=tape
=- (scan t (bass 58 (plus -)))
;~ pose
(cook |=(a/@ (sub a 56)) (shim 'A' 'H'))
(cook |=(a/@ (sub a 57)) (shim 'J' 'N'))
(cook |=(a/@ (sub a 58)) (shim 'P' 'Z'))
(cook |=(a/@ (sub a 64)) (shim 'a' 'k'))
(cook |=(a/@ (sub a 65)) (shim 'm' 'z'))
(cook |=(a/@ (sub a 49)) (shim '1' '9'))
(cook |=(a=@ (sub a 56)) (shim 'A' 'H'))
(cook |=(a=@ (sub a 57)) (shim 'J' 'N'))
(cook |=(a=@ (sub a 58)) (shim 'P' 'Z'))
(cook |=(a=@ (sub a 64)) (shim 'a' 'k'))
(cook |=(a=@ (sub a 65)) (shim 'm' 'z'))
(cook |=(a=@ (sub a 49)) (shim '1' '9'))
==
--
::