10 lines
357 B
Text
10 lines
357 B
Text
templates largestNonMcNuggetNumber
|
|
@: { largest: 0, mcNuggetNumbers: [1..$+20 -> 0] };
|
|
@.mcNuggetNumbers([6,9,20]): 1..3 -> 1;
|
|
1..$ -> #
|
|
$@.largest !
|
|
when <?($@.mcNuggetNumbers($) <=0>)> do @.largest: $;
|
|
otherwise @.mcNuggetNumbers([$ + 6, $ + 9, $ + 20]): 1..3 -> 1;
|
|
end largestNonMcNuggetNumber
|
|
|
|
100 -> largestNonMcNuggetNumber -> !OUT::write
|