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