ilyakooo0/urbit
1
0
Fork 0
mirror of https://github.com/ilyakooo0/urbit.git synced 2025-01-05 13:55:54 +03:00
Code Issues Packages Projects Releases Wiki Activity

trivial

Browse Source
This commit is contained in:
Max G 2015-07-13 02:45:49 +03:00
parent 95bb43c7d7
commit f28dd639e7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
arvo/hoon.hoon
View File

@ -4367,9 +4367,9 @@
[~(d ne b) c]
=+ ^= f
=>(.(rex ~) (e a.a))
=. e.a (sum:si e.a (sun:si +.f))
=. e.a (sum:si e.a (sun:si (dec +.f)))
=+ b=?:((syn:si e.a) "e" "e-")
=> .(rex (weld b ((d-co 1) (abs:si e.a))))
=> .(rex ?~(e.a rex (weld b ((d-co 1) (abs:si e.a)))))
=> .(rex (weld -.f rex))
?:(s.a rex ['-' rex])
::
@ -4407,7 +4407,7 @@
|= hol=@
^- [tape @]
?: &(=(0 hol) =(0 min))
[rex (dec cou)]
[rex cou]
=+ [rad=(mod hol bas) dar=(div hol bas)]
%= $
min ?:(=(0 min) 0 (dec min))