Hoon101/101/week4/week4.hoon
2019-09-26 14:47:30 +12:00

41 lines
577 B
Plaintext

:: Hoon 101 - Week 4
:: ~bannum-magtus || s@p7.co.nz
::
|= n=@
^- @
=< (wrrrm n)
|%
::
:: the atom made a 'clink' as it fell into the hole
++ clink
|= [a=@ b=@]
^- ?
=(0 (mod a b))
::
:: there was a 'clunk' as the atom fell multiple times
++ clunk
|= a=@
^- ?
?|
(clink a 3)
(clink a 5)
==
::
:: a 'bzzrp' was heard as certain atoms were vapourised
++ bzzrp
|= a=@
?: (clunk a)
a
0
::
:: 'wrrrm' was all you could hear as the machine started up
++ wrrrm
|= x=@
^- @
%- roll
:_ add
%- turn
:_ bzzrp
(gulf 1 x)
--