Re: Speaking of counting...

[byron@netapp.com (Byron Rakitzis)]

Here's my version of seq:

#!/bin/rc
switch ($#*) {
case 1
        lo=1; hi=$1; incr=1
case 2
        lo=$1; hi=$2; incr=1
case 3
        lo=$1; hi=$2; incr=$3;
case *
        echo 'usage: seq [ lo ] hi [ incr ]' >[1=2]; exit 1
}

awk </dev/null 'END {
        if ('$incr' > 0) {
                for (i = '$lo'; i <= '$hi'; i += '$incr')
                        print i
        } else {
                for (i = '$lo'; i >= '$hi'; i += '$incr')
                        print i
        }
}'

It's possible that I got this from Paul Haahr (or someone else for
that matter --- I know my input-less awk scripts do all their work
in the BEGIN clause), and I don't have my plan9 manuals with me in
Europe so I have no idea if it matches up with plan9 seq.