McNuggets problem: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add ABC) |
Not a robot (talk | contribs) (Add Refal) |
||
Line 2,370: | Line 2,370: | ||
Maximum non-Mcnugget number using 2, 4, 6 is: ∞ |
Maximum non-Mcnugget number using 2, 4, 6 is: ∞ |
||
Maximum non-Mcnugget number using 3, 6, 15 is: ∞</pre> |
Maximum non-Mcnugget number using 3, 6, 15 is: ∞</pre> |
||
=={{header|Refal}}== |
|||
<syntaxhighlight lang="refal">$ENTRY Go { |
|||
, <Iota 0 6 100>: e.A |
|||
, <Iota 0 9 100>: e.B |
|||
, <Iota 0 20 100>: e.C |
|||
, <Iota 0 1 100>: e.Nums |
|||
, <SumPairs (e.A) (<SumPairs (e.B) (e.C)>)>: e.Nuggets |
|||
, <RemoveAll (e.Nuggets) e.Nums>: e.NonNuggets |
|||
, e.NonNuggets: e.X s.Last |
|||
= <Prout 'The largest non-McNuggets number < 100 is: ' s.Last>; |
|||
}; |
|||
SumPairs { |
|||
() (e.Y) = ; |
|||
(s.I e.X) (e.Y) = <SumPairs1 s.I (e.Y)> <SumPairs (e.X) (e.Y)>; |
|||
}; |
|||
SumPairs1 { |
|||
s.I () = ; |
|||
s.I (s.X e.X) = <+ s.I s.X> <SumPairs1 s.I (e.X)>; |
|||
}; |
|||
Remove { |
|||
s.I e.X s.I e.Y = e.X <Remove s.I e.Y>; |
|||
s.I e.X = e.X; |
|||
}; |
|||
RemoveAll { |
|||
() e.X = e.X; |
|||
(s.R e.R) e.X = <RemoveAll (e.R) <Remove s.R e.X>>; |
|||
}; |
|||
Iota { |
|||
s.Start s.Step s.End, <Compare s.Start s.End>: { |
|||
'+' = ; |
|||
s.X = s.Start <Iota <+ s.Start s.Step> s.Step s.End>; |
|||
}; |
|||
};</syntaxhighlight> |
|||
{{out}} |
|||
<pre>The largest non-McNuggets number < 100 is: 43</pre> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |