> (make-alist exp '(-1 0 1 2))
((-1 . 0.36787944117144233) (0 . 1) (1 . 2.718281828459045) (2 . 7.38905609893065))
> 
[image] and: bad syntax in: and
> (alist? (make-alist (lambda (x) (+ x 1)) 
> (make-alist 1+ '(1 2 3))
((1 . 2) (2 . 3) (3 . 4))
> (alist? (make-alist 1+ '(1 2 3)))
(#t #t #t)
> (alist? (make-alist 1+ '(1 2 3)))
#t
> (alist? (make-alist 1+ '(1 2 3 1)))
#f
> (assoc 1 (make-alist 1+ '(1 2 3)))
(1 . 2)
> (assoc 1 (make-alist 1+ '(1 2 3)))
> (alist? (make-alist 1+ '(1 2 3 1)))
#f
> (assoc 1 (make-alist 1+ '(1 2 3)))
(1 . 2)
> (assoc 4 (make-alist 1+ '(1 2 3)))
#f
> (assoc 1 (make-alist 1+ '(1 2 3)))
(1 . 2)
> (assoc 4 (make-alist 1+ '(1 2 3)))
#f
> (del-assoc 1 (make-alist 1+ '(1 2 3)))
((2 . 3) (3 . 4))
> (del-assoc 4 (make-alist 1+ '(1 2 3)))
((1 . 2) (2 . 3) (3 . 4))
> 
> (add-assoc 4 5 (make-alist 1+ '(1 2 3)))
((1 . 2) (2 . 3) (3 . 4))
> (add-assoc 3 14 (make-alist 1+ '(1 2 3)))
((1 . 2) (2 . 3) (3 . 14))
> (exists? odd? '(1 2 3))
#t
> (exists? odd? '(10 2 30))
#f
> (search odd? '(10 2 30))
#f
> (search odd? '(1 2 3))
1
> (search (lambda (x) (member 2 x)) '((0 1 3) (1 2 3) (4 5 6)))
(1 2 3)
> (search (lambda (x) (member 2 x)) '((0 1 3) (1 2 3) (4 5 6)))
(2 3)
> (add-assoc 3 14 (make-alist 1+ '(1 2 3)))
((1 . 2) (2 . 3) (3 . 14))
> (add-assoc 4 14 (make-alist 1+ '(1 2 3)))
((4 . 14) (1 . 2) (2 . 3) (3 . 4))
> (assoc 1 (make-alist 1+ '(1 2 3)))
#t
> (assoc 1 (make-alist 1+ '(1 2 3)))
(1 . 2)