McNuggets problem: Difference between revisions

 

There are two natural approaches. The first is to generate all valid x, y, and z and then apply the function:

mcNuggets<-do.call(function(x,y,z) 6*x + 9*y + 20*z, allInputs)</lang>

The second is to find all of the valid 6x, 9y, and 20z, and then sum them:

Either way, we get identical results, as checked by:

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.

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:

{{output}}

<pre>> all(mcNuggets==mcNuggets2)