10/01/19 12:17:19
>>341
使用言語：J
f=:monad define
'p q d'=.y
a=./:~~.,(p*i.d)+/q*i.d
b=.}.(d>:a)#a
smoutput b
smoutput '合計で',(":#b),'個あります'
)
f 3 5 10
3 5 6 8 9 10
合計で6個あります
10/01/19 12:17:19
>>341
使用言語：J
f=:monad define
'p q d'=.y
a=./:~~.,(p*i.d)+/q*i.d
b=.}.(d>:a)#a
smoutput b
smoutput '合計で',(":#b),'個あります'
)
f 3 5 10
3 5 6 8 9 10
合計で6個あります