summaryrefslogtreecommitdiff
path: root/examples/functions/seq
diff options
context:
space:
mode:
Diffstat (limited to 'examples/functions/seq')
-rw-r--r--examples/functions/seq29
1 files changed, 29 insertions, 0 deletions
diff --git a/examples/functions/seq b/examples/functions/seq
new file mode 100644
index 0000000..87c8a2c
--- /dev/null
+++ b/examples/functions/seq
@@ -0,0 +1,29 @@
+# Generate a sequence from m to n, m defaults to 1.
+
+seq ()
+{
+ declare -i lo hi i # makes local
+ local _SEQ
+
+ case $# in
+ 1) seq 1 "$1" ; return $? ;;
+ 2) lo=$1 hi=$2
+ i=$lo _SEQ=""
+ while let "i <= hi"; do
+ _SEQ="${_SEQ}$i "
+ let i+=1
+ done
+ echo "${_SEQ# }"
+ return 0 ;;
+ *) echo seq: usage: seq [low] high 1>&2 ; return 2 ;;
+ esac
+}
+
+# like the APL `iota' function (or at least how I remember it :-)
+iota()
+{
+ case $# in
+ 1) seq 1 "$1"; return $?;;
+ *) echo "iota: usage: iota high" 1>&2; return 2;;
+ esac
+}