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

WolframにはPermutationsという関数が標準装備されているのでこれを使って

Wolfram Language 14.0.0 Engine for Microsoft Windows (64-bit)
Copyright 1988-2023 Wolfram Research, Inc.

In[1]:= f[x_] := (
{a,b,c,d,e}=x;
b+c==d+e && b*c==a+d && a*(c+d)==b+e
)

In[2]:= Select[Permutations[Range[5]],f]

Out[2]= {{3, 5, 1, 2, 4}}


Combinationsという関数が当然あるだろうと思っていたら、存在しない。
Rだとcombnというのが標準装備されているが、順列の方は標準装備されていない。
言語にはいろいろ癖がある。