Rešitev: program Skrčitev zapisa seznama (Mathematica)

Iz MaFiRaWiki

Naloga: program Skrčitev zapisa seznama

skrci::usage = "Funkcija skrci[s] razširjeno obliko zapisa seznama prevede v 
   skrčeno obliko zapisa.";
temp[s_] := {First[s], Length[s]}
skrci[s_] := Map[temp, Split[s]]

Primer uporabe:

In[4]:= skrci[{a, a, a, b, b, b, b, b, c, c, c, c}]
Out[4]= {{a, 3}, {b, 5}, {c, 4}}

Glej tudi

Osebna orodja