mirror of
https://github.com/urbit/shrub.git
synced 2024-12-14 11:08:45 +03:00
28 lines
457 B
Plaintext
28 lines
457 B
Plaintext
::
|
|
:: /=try=/bin/aestest/hoon
|
|
::
|
|
|= [est=time eny=@uw]
|
|
|= ~
|
|
:_ ~ :_ ~
|
|
=+ i=0
|
|
:- %$
|
|
!>
|
|
|- ^- @
|
|
?: =(1.000.000 i) 0
|
|
=+ n=`@rd`(end 6 1 (en:aesc eny i))
|
|
=+ m=`@rd`(rsh 6 1 (en:aesc +(eny) i))
|
|
:: ~& [%try `@ux`n `@ux`m]
|
|
~| $(i +(i))
|
|
=+ a=(add:rd n m)
|
|
=+ b=(sub:rd n m)
|
|
=+ c=(mul:rd n m)
|
|
=+ d=(div:rd n m)
|
|
=+ suc=%.y
|
|
?. suc
|
|
~| [%fail i `@ux`n `@ux`m]
|
|
!!
|
|
?: &(!=(0 i) =(0 (mod i 2)))
|
|
~& [%try i `@ux`n `@ux`m]
|
|
$(i +(i))
|
|
$(i +(i))
|