Return to shuffile.icn CVS log

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

Annotation of 43BSD/contrib/icon/src/cmd/shuffile.icn, revision 1.1.1.1

1.1       root        1: #      SHUFFILE(1)
                      2: #
                      3: #      Shuffle file
                      4: #
                      5: #      Ralph E. Griswold
                      6: #
                      7: #      Last modified 5/13/83
                      8: #
                      9: 
                     10: procedure main(x)
                     11:    local a
                     12:    a := []
                     13:    if x[1] == "-s" then &random := integer(x[2]) |
                     14:       stop("usage:  shuffile [-s n]")
                     15:    every put(a,!&input)
                     16:    shuffle(a)
                     17:    every write(!a)
                     18: end
                     19: 
                     20: procedure shuffle(x)
                     21:    every !x :=: ?x
                     22: end

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