Return to shuffle.icn CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / icon / src / lib

Initial revision

#	SHUFFLE(2)
#
#	Shuffle values
#
#	Ralph E. Griswold
#
#	Last modified 5/15/83
#

procedure shuffle(x)
   x := string(x)
   if not(type(x) == ("string" | "list")) then xstop(x)
   every !x :=: ?x
   return x
end

procedure xstop(x)
   stop("Run-time error 102 in shuffle_
      \nstring or list expected\noffending value: ",
      image(x))
end

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