2014-06-30 22:43:06 +04:00
|
|
|
::
|
|
|
|
|
:: /=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))
|
2014-07-01 22:33:27 +04:00
|
|
|
:: ~& [%try `@ux`n `@ux`m]
|
|
|
|
|
~| $(i +(i))
|
2014-06-30 22:43:06 +04:00
|
|
|
=+ 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]
|
|
|
|
|
!!
|
2014-07-01 22:33:27 +04:00
|
|
|
?: &(!=(0 i) =(0 (mod i 2)))
|
|
|
|
|
~& [%try i `@ux`n `@ux`m]
|
2014-06-30 22:43:06 +04:00
|
|
|
$(i +(i))
|
|
|
|
|
$(i +(i))
|
