Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-08 05:27:33 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added list-index2

Browse source
This commit is contained in:
Justin Ethier 2016-02-03 02:07:03 -05:00
parent b918770827
commit b1091aabd6
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/cyclone/util.sld
View file

@ -40,6 +40,7 @@
delete delete
delete-duplicates delete-duplicates
list-insert-at! list-insert-at!
list-index2
filter) filter)
(begin (begin
@ -112,6 +113,17 @@
(else (else
(list-insert-at! (cdr lis) obj (- k 1))))) (list-insert-at! (cdr lis) obj (- k 1)))))
;; Find index of element in list, or -1 if not found
(define list-index2
(lambda (e lst)
(if (null? lst)
-1
(if (eq? (car lst) e)
0
(if (= (list-index2 e (cdr lst)) -1)
-1
(+ 1 (list-index2 e (cdr lst))))))))
; gensym-count : integer ; gensym-count : integer
(define gensym-count 0) (define gensym-count 0)