3,314
回編集
「モジュール:数学」の版間の差分
ナビゲーションに移動
検索に移動
編集の要約なし
細編集の要約なし |
編集の要約なし |
||
| 24行目: | 24行目: | ||
return "'''関数 getLmc: 引数には数値のみを入力してください。'''" | return "'''関数 getLmc: 引数には数値のみを入力してください。'''" | ||
end | end | ||
end | |||
function p.listTurples(frame) -- 第2引数以降に入力された有限桁の整数または小数からなる三つ組のうち、その要素の総和が第1引数に入力された有限桁の整数または小数となるようなものを列挙する関数 | |||
local ans = assert(tonumber(frame.args[1]), "答えを半角数字で指定してください。") | |||
local arr = {} | |||
local t = 2 | |||
while frame.args[t] do | |||
arr[t-1] = tonumber(frame.args[t]) | |||
t = t + 1 | |||
end | |||
local output = "" | |||
for i = 1, #arr - 2 do | |||
for j = i + 1, #arr - 1 do | |||
if i ~= j then | |||
local rest = ans - i - j | |||
for k = j + 1, #arr do | |||
if arr[k] == rest then | |||
output = output.."("..arr[i]..","..arr[j]..","..rest..")" | |||
end | |||
end | |||
end | |||
end | |||
end | |||
if output == "" then return "指定された条件に適する組はありません。" end | |||
return output | |||
end | end | ||
return p | return p | ||