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

++drg jet

Browse Source
This commit is contained in:
Max G 2015-07-31 05:01:20 +03:00
parent 6a4b7b4a46
commit 216eed690e
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
arvo/hoon.hoon
View File

@ -1,4 +1,4 @@
!::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
:::::: :::::: Preface ::::::
:::::: ::::::::::::::::::::::::::::::::::::::::::::::::::::::
?> ?=(@ .) :: atom subject
@ -1288,6 +1288,7 @@
:: d=behavior: return denormals, flush denormals to zero,
:: infinite exponent range
=>
~% %cofl +> ~
|% :: don't put 0s into [@s @u] args
++ rou
|= [a=[e=@s a=@u]] ^- fn (rau a &)
@ -1526,7 +1527,7 @@
==
?: &(!l !h)
$(o (^add (^mul o 10) u))
=+ q=|(&(!l h) &(=(l h) (gte (^mul r 2) s)))
=+ q=&(h |(!l (gte (^mul r 2) s)))
=. o (^add (^mul o 10) ?:(q +(u) u))
[k o]
::
@ -1556,6 +1557,7 @@
++ lfe (sum:si emx (sun:si prc)) :: 2^lfe is larger than all floats
++ zer [e=--0 a=0]
--
~% %fl + ~
|%
++ rou
|= [a=fn] ^- fn
@ -1708,7 +1710,7 @@
++ gth
|= [a=fn b=fn] ^- (unit ,?) (lth b a)
::
++ drg :: float to decimal
++ drg ~/ %drg :: float to decimal
|= [a=fn] ^- dn
?: ?=([%n *] a) [%n ~]
?: ?=([%i *] a) [%i s.a]
@ -5537,8 +5539,8 @@
!=(c 0)
==
=+ ^= l ?~ (mod d h)
(div d h)
+((div d h))
(div d h)
+((div d h))
=+ r=(sub d (mul h (dec l)))
=+ [t=0 j=1 k=1]
=. t |- ^- @