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

Merge branch 'master' of github.com:superboum/schemelib

Browse source
This commit is contained in:
Quentin 2020-07-14 19:28:31 +02:00
parent e7fc31b7f0 2df10ebf9e
commit 6daa1f4d49
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
data-structures/lists.scm
View file

@ -10,7 +10,18 @@
((> b e) '()) ((> b e) '())
(#t (cons b (rangeinc (+ 1 b) e))))) (#t (cons b (rangeinc (+ 1 b) e)))))
(define (less-than l n) (cond ((null? l) #t) ((<= n 0) #f) (#t (less-than (cdr l) (- n 1))))) (define (less-than l n)
(cond
((null? l) #t)
((<= n 0) #f)
(#t (less-than (cdr l) (- n 1)))))
(define (beginning l n)
(cond
((null? l) '())
((<= n 0) '())
(#t (cons (car l) (beginning (cdr l) (- n 1))))))
(define (unit v) v) (define (unit v) v)
(define (aget key alist) (cdr (assoc key alist))) (define (aget key alist) (cdr (assoc key alist)))
(define (aset key val alist) (define (aset key val alist)