quentin/schemelib
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

add nth

Browse source
This commit is contained in:
Quentin 2020-07-02 17:47:05 +02:00
parent 86c60fb402
commit 4a4d706798
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
data-structures/lists.scm
View file

@ -1,3 +1,10 @@
(define (nth li pos)
(cond
((null? li) #f)
((= pos 0) (car li))
(#t (nth (cdr li) (- pos 1)))))
(define (rangeinc b e) (define (rangeinc b e)
(cond (cond
((> b e) '()) ((> b e) '())