McNuggets problem: Difference between revisions
Content added Content deleted
Alextretyak (talk | contribs) m (→{{header|11l}}) |
(Added Quackery) |
||
Line 1,294: | Line 1,294: | ||
mcNuggetsByListMonad -> 43 |
mcNuggetsByListMonad -> 43 |
||
mcNuggetsByComprehension -> 43</pre> |
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}}== |
=={{header|R}}== |