Rešitev: program Potenčna množica (Mathematica)

Iz MaFiRaWiki

Naloga: program Potenčna množica

 potencna::usage = "Funkcija potencna[m] vrne potenčno množico množice m.";
 potencna[{}] := {{}}
 potencna[l_List] := Module[{o, z, p},
    z = Last[l];
    o = Most[l];
    p = potencna[o];
    Join[p, Map[Append[#, z] &, p]]
    ]

Primer uporabe:

In[1]:= potencna[{1, 2, 3}]

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

Glej tudi

Osebna orodja