26 lines
510 B
Text
26 lines
510 B
Text
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 ]
|
|
char . emit
|