This commit is contained in:
Thorn Avery 2019-08-12 14:11:27 +12:00
parent 016dc8728d
commit d3b9e34ed4

40
week4/week4.hoon Normal file
View File

@ -0,0 +1,40 @@
:: 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)
--