Return to shuffle.icn CVS log

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

Annotation of 43BSD/contrib/icon/src/lib/shuffle.icn, revision 1.1.1.1

1.1       root        1: #      SHUFFLE(2)
                      2: #
                      3: #      Shuffle values
                      4: #
                      5: #      Ralph E. Griswold
                      6: #
                      7: #      Last modified 5/15/83
                      8: #
                      9: 
                     10: procedure shuffle(x)
                     11:    x := string(x)
                     12:    if not(type(x) == ("string" | "list")) then xstop(x)
                     13:    every !x :=: ?x
                     14:    return x
                     15: end
                     16: 
                     17: procedure xstop(x)
                     18:    stop("Run-time error 102 in shuffle_
                     19:       \nstring or list expected\noffending value: ",
                     20:       image(x))
                     21: end

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