> (make-alist (lambda (x) (* x x)) '(1 2 3 5))
((1 . 1) (2 . 4) (3 . 9) (5 . 25))
> 
> Al
((1 . 1) (2 . 4) (3 . 9) (4 . 16) (5 . 25))
> (asso
> (assoc 1 al)
(1 . 1)
> (assoc 3 al)
(3 . 9)
> (assoc 6 al)
#f
> (alist? al)
#t
> (del-assoc 3 al)
[image] [image] foldl: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 3
  given: 1
> (del-assoc 3 al)
((5 . 25) (4 . 16) (2 . 4) (1 . 1))
> (del-assoc 3 al)
[image] [image] mcar: contract violation
  expected: mpair?
  given: ()
> (del-assoc 3 al)
((1 . 1) (2 . 4) (4 . 16) (5 . 25))
> 
> (del-assoc 3 al)
((1 . 1) (2 . 4) (4 . 16) (5 . 25))
> (del-assoc 3 al)
[image] [image] filter: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 2
  given: 1
> (del-assoc 3 al)
[image] [image] equal?: arity mismatch;
 the expected number of arguments does not match the given number
  expected: 2
  given: 1
> (del-assoc 3 al)
((1 . 1) (2 . 4) (4 . 16) (5 . 25))