mirror of
https://github.com/urbit/shrub.git
synced 2024-12-12 18:48:14 +03:00
Moar test.
This commit is contained in:
parent
1984268a2c
commit
d13c0b3ddc
27
main/bin/easy0.hoon
Normal file
27
main/bin/easy0.hoon
Normal 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]
|
Loading…
Reference in New Issue
Block a user