McNuggets problem: Difference between revisions
Content added Content deleted
(→{{header|UNIX Shell}}: Add traditional sh implementation.) |
(→{{header|PowerShell}}: Add implementation) |
||
Line 966: | Line 966: | ||
Maximum non-Mcnugget number using {3,6,15} is: No maximum |
Maximum non-Mcnugget number using {3,6,15} is: No maximum |
||
</pre> |
</pre> |
||
=={{header|PowerShell}}== |
|||
{{trans|UNIX Shell}} |
|||
<lang powershell>$possible = @() |
|||
For ($i=0; $i -lt 18; $i++) { |
|||
For ($j=0; $j -lt 13; $j++) { |
|||
For ( $k=0; $k -lt 6; $k++ ) { |
|||
$possible += @( $i*6 + $j*9 + $k*20 ) |
|||
} |
|||
} |
|||
} |
|||
For ( $n=100; $n -gt 0; $n-- ) { |
|||
If ($possible | ? { $_ -eq $n }) { |
|||
Continue |
|||
} |
|||
Else { |
|||
Break |
|||
} |
|||
} |
|||
Write-Host "Maximum non-McNuggets number is $n"</lang> |
|||
{{out}} |
|||
<pre>Maximum non-McNuggets number is 43</pre> |
|||
=={{header|PicoLisp}}== |
=={{header|PicoLisp}}== |