@@ -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 | |||||
|= [a=@ b=@] | |||||
^- ? | |||||
=(0 (mod a b)) | |||||
:: | |||||
:: there was a 'clunk' as the atom fell multiple times | |||||
|= a=@ | |||||
^- ? | |||||
?| | |||||
(clink a 3) | |||||
(clink a 5) | |||||
== | |||||
:: | |||||
:: a 'bzzrp' was heard as certain atoms were vapourised | |||||
|= a=@ | |||||
?: (clunk a) | |||||
a | |||||
0 | |||||
:: | |||||
:: 'wrrrm' was all you could hear as the machine started up | |||||
|= x=@ | |||||
^- @ | |||||
%- roll | |||||
:_ add | |||||
%- turn | |||||
:_ bzzrp | |||||
(gulf 1 x) | |||||
-- |