McNuggets problem: Difference between revisions
→{{header|R}}: Optimisation.
ReeceGoding (talk | contribs) m (→{{header|R}}) |
ReeceGoding (talk | contribs) (→{{header|R}}: Optimisation.) |
||
Line 1,289:
Either way, we get identical results, as checked by:
<lang r>all(mcNuggets==mcNuggets2)</lang>
For our final answer, note that our choice to remove values from the vector 0:100 means our outputs will already be sorted, unique, and no greater than 100.
<lang r>results<-setdiff(0:100,mcNuggets
cat("The non-McNuggets numbers that are no greater than 100 are:",results,"\nThe largest is",max(results),"\n")</lang>
#Ultimately, this can be done in one line
max(setdiff(0:100,rowSums(expand.grid(seq(0,100,6),seq(0,100,9),seq(0,100,20)))))
{{output}}
<pre>> all(mcNuggets==mcNuggets2)
Line 1,298 ⟶ 1,300:
The largest is 43 </pre>
<pre>> max(setdiff(0:100,rowSums(expand.grid(seq(0,100,6),seq(0,100,9),seq(0,100,20)))))
[1] 43</pre>
=={{header|Racket}}==
| |||