McNuggets problem: Difference between revisions
Added Quackery
Alextretyak (talk | contribs) m (→{{header|11l}}) |
(Added Quackery) |
||
Line 1,294:
mcNuggetsByListMonad -> 43
mcNuggetsByComprehension -> 43</pre>
=={{header|Quackery}}==
<lang Quackery>0 temp put
100 6 / times
[ i 6 *
100 9 / times
[ dup i 9 * +
100 20 / times
[ dup i 20 * +
dup 101 < if
[ dup bit
temp take | temp put ]
drop ]
drop ]
drop ]
-1 temp take
101 times
[ dup i bit & 0 =
if
[ nip i swap
conclude ] ]
drop dup 0 < iff
[ drop
say "There are no non-McNugget numbers below 101" ]
else
[ say "The largest non-McNugget number below 101 is "
echo ]</lang>
'''Output:'''
<pre>The largest non-McNugget number below 101 is 43</pre>
=={{header|R}}==
| |||