|
|
@@ -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) |
|
|
|
-- |