Be( n ) i :=0 m := n Ciklusamíg m >0 i := i +1 x[i]:= m mod (i+1) m := m - x[i] Ciklusvége k := i // dobozok száma kezdetben
Lejátszás
//kezdet: x[1], x[2], ..., x[k] Ciklusamíg n >0 i :=1 Ciklusamíg x[i]<> i i := i +1 Ciklusvége x[i]:=0//kiürítjük Ha i = k akkor k := k -1Elágazásvége//csökkent a dobozszám i := i -1 Ciklusamíg i >0 x[i]:= x[i]+1 i := i -1 Ciklusvége n := n -1 Ki(x[1], x[2],...,x[k]) Ciklusvége