小中学校範囲の算数・数学の問題のスレ　Part 61

>>695
Wolframでソルバーを作って遊ぶ。
たこ焼きがa,b,c個入ったパックでn個のたこ焼きを発注する方法を返す関数。
問題の意味は小学生でもわかる。
手作業での単純反復作業をプログラムにさせただけの簡単なお仕事です。

Table関数版
f[a_,b_,c_,n_]:=(
t1=Table[{x,y,z},{x,0,Floor[n/a]},{y,0,Floor[n/b]},{z,0,Floor[n/c]}];
t2=Flatten[t1,2];
Select[t2,a #[[1]] + b #[[2]] + c #[[3]] == n&]
)
f[5,9,13,2024] // Length // Timing

For loop版
fn[a_,b_,c_,n_]:=(
re={};
For[x=0,x<=n/a,x++,
For[y=0,y<=n/b,y++,
For[z=0,z<=n/c,z++,
If[a x + b y + c z == n, AppendTo[re,{x,y,z}]]
]]];
re
)
fn[5,9,13,2024] // Length // Timing

どちらが高速かは実行してのお楽しみ。