Add srfi-1:iota.
* module/srfi/srfi-1.mes (iota,srf-1:iota): New function.
This commit is contained in:
parent
1eba164dd9
commit
aa82c408eb
|
@ -81,4 +81,17 @@
|
||||||
(if (null? rest) (mes:member x lst)
|
(if (null? rest) (mes:member x lst)
|
||||||
(srfi-1:member x lst (car rest))))
|
(srfi-1:member x lst (car rest))))
|
||||||
|
|
||||||
|
(define mes:iota iota)
|
||||||
|
|
||||||
|
(define (srfi-1:iota n start step)
|
||||||
|
(if (<= n 0) '()
|
||||||
|
(cons start (srfi-1:iota (- n 1) (+ start step) step))))
|
||||||
|
|
||||||
|
(define (iota n . rest)
|
||||||
|
(if (null? rest) (mes:iota n)
|
||||||
|
(let ((start (car rest))
|
||||||
|
(step (if (null? (cdr rest)) 1
|
||||||
|
(cadr rest))))
|
||||||
|
(srfi-1:iota n start step))))
|
||||||
|
|
||||||
(include-from-path "srfi/srfi-1.scm")
|
(include-from-path "srfi/srfi-1.scm")
|
||||||
|
|
Loading…
Reference in New Issue