Moar test.

This commit is contained in:
C. Guy Yarvin 2014-09-06 15:43:54 -07:00
parent 1984268a2c
commit d13c0b3ddc

27
main/bin/easy0.hoon Normal file
View File

@ -0,0 +1,27 @@
!:
:: /=main=/bin/solid/hoon
::
=> .(- `[who=@p how=path]`-)
|= [est=time eny=@uw]
|= arg=~
=+ ^= cor
=< |= [x=@ y=@]
(add x y)
=> %164
|%
++ add
|= [a=@ b=@]
^- @
?: =(0 a) b
$(a (dec a), b +(b))
::
++ dec
|= a=@
?< =(0 a)
=+ b=0
|- ^- @
?: =(a +(b)) b
$(b +(b))
--
:_ ~ :_ ~
[%xx %sage [%easy0 %pill ~] cor]