mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-12 15:01:38 +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