Return to shuffle1.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / book / 10

Initial revision

procedure shuffle(s)
   local i
   i := *s
   while i >= 2 do {
      s[?i] :=: s[i]
      i -:= 1
      }
   return s
end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.