artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Add list-index.

Browse source 
* module/srfi/srfi-1.scm (list-index): New function.
This commit is contained in:
Jan Nieuwenhuizen 2017-06-11 14:45:01 +02:00
parent 2c0f5c346c
commit 01b4c0846b
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
module/srfi/srfi-1.scm
View file

@ -65,6 +65,21 @@
(else (else
(and (pred (car ls)) (lp (cdr ls))))))) (and (pred (car ls)) (lp (cdr ls)))))))
(define (list-index pred clist1 . rest)
(if (null? rest)
(let lp ((l clist1) (i 0))
(if (null? l)
#f
(if (pred (car l))
i
(lp (cdr l) (+ i 1)))))
(let lp ((lists (cons clist1 rest)) (i 0))
(cond ((any1 null? lists)
#f)
((apply pred (map car lists)) i)
(else
(lp (map cdr lists) (+ i 1)))))))
;;; Set operations on lists ;;; Set operations on lists
(define (lset-union = . rest) (define (lset-union = . rest)