Knuth shuffle: Difference between revisions
m
→{{header|Oforth}}
m (→{{header|Delphi}}: Nicer internal links) |
|||
Line 2,103:
<lang Oforth>Indexable method: shuffle
| s i l |
self asListBuffer ->l
self size dup ->s 1- loop: i [ s i
l dup freeze ; </lang>
=={{header|Oz}}==
|