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

naive: replace +div/+mod calls with +dvr, rewrites +ud-to-ascii

Browse Source
This commit is contained in:
Joe Bryan 2021-09-14 22:48:06 -04:00
parent aa29b61da5
commit 94b690cb74
1 changed files with 8 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
pkg/arvo/lib/naive.hoon
View File

@ -223,13 +223,8 @@
=^ sig pos (take 3 65)
=/ res=(unit [=tx pos=@ud]) parse-tx
?~ res ~
=/ [len=@ rem=@]
:: XX (dvr (sub pos.u.res pos) 8)
=/ dif (sub pos.u.res pos)
[(div dif 8) (mod dif 8)]
?. =(0 rem)
:: XX parse fail, produce ~ ?
!!
=/ [len=@ rem=@] (dvr (sub pos.u.res pos) 8)
?> =(0 rem)
:- ~ :_ pos.u.res
[sig [len (cut 0 [pos pos.u.res] batch)] tx.u.res]
::
@ -387,10 +382,12 @@
::
++ ud-to-ascii
|= n=@ud
^- @t
?~ n
*@t
(cat 3 $(n (div n 10)) (add '0' (mod n 10)))
?~ n '0'
=| l=(list @)
|- ^- @t
?~ n (rep 3 l)
=+ (dvr n 10)
$(n p, l [(add '0' q) l])
::
++ ship-rank
|= =ship