to zaporedna :n localmake "s [] repeat :n [make "s lput repcount :s] op :s end to premesaj :s (local "i "j "t) localmake "n count :s localmake "r [] make "z (array :n 1) repeat :n [setitem repcount :z item repcount :s] repeat :n [ make "i :n+1-repcount make "j 1+random :i make "t item :j :z setitem :j :z item :i :z make "r fput :t :r ] op :r end print "test make "vrstnired zaporedna 10 show :vrstnired repeat 10 [ make "vrstnired premesaj :vrstnired show :vrstnired ]