This commit is contained in:
Quentin 2020-07-02 17:47:05 +02:00
parent 86c60fb402
commit 4a4d706798

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)
(cond
((> b e) '())