> (alist? '((l1 1 8) (l2 10 1 2) (l3)))
[image] [image] foldr: undefined;
 cannot reference an identifier before its definition
> (alist? '((l1 1 8) (l2 10 1 2) (l3)))
#t
> al
((1 . 1) (2 . 4) (3 . 9))
> (assoc 2 al)
(2 . 4)
> (assoc 3 al)
(3 . 9)
> (assoc 10 al)
#f
> (map (lambda (x) (assoc x al)) (keys al))
((1 . 1) (2 . 4) (3 . 9))
> (map (lambda (x) (assoc x al)) (keys al))
((1 . 1) (2 . 4) (3 . 9))
> (del-assoc 2 al)
((1 . 1) (3 . 9))
> (del-assoc 3 al)
((1 . 1) (2 . 4))
> (add-assoc 1 10 al)
[image] [image] mmap: arity mismatch;
 the expected number of arguments does not match the given number
  expected: at least 2
  given: 1
> (add-assoc 1 10 al)
((1 . 10) (2 . 4) (3 . 9))
> (add-assoc 2 10 al)
((1 . 1) (2 . 10) (3 . 9))
> (add-assoc 5 10 al)
((1 . 1) (2 . 4) (3 . 9))
> (add-assoc 5 10 al)
((5 . 10) (1 . 1) (2 . 4) (3 . 9))
> (add-assoc 3 10 al)
((1 . 1) (2 . 4) (3 . 10))