tests/iota_rec.bth


1
2
3
4
5
6
7

(defn (iota' arr i max)
	(if (< i max)
		(iota' (append arr i) (+ i 1) max)
		arr))
(set! _G_iota' iota')
(defn (iota n) (_G_iota' [] 0 n))
(say (iota 10))