|
|
1.1 root 1: # SHUFFLE
2: #
3: # Shuffle values
4: #
5: # Ward Cunningham
6: #
7: # Last modified 12/15/85 by Ralph E. Griswold
8: #
9:
10: procedure shuffle(x)
11: x := string(x)
12: every !x :=: ?x
13: return x
14: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.