LispForum

Thanks, solved! Now I came up with another problem. Consider this function: (defun list-intersection (l1 l2) (cond ((null l1) nil) ((member (first l1) l2) (cons (first l1) (list-intersection (rest l1) l2))) (t (list-intersection (rest l1) l2)))) It works fine with: (A B C) and (H F A) -> (A), but I ...

Thanks for the reply.

I'll give it a try.

Hi, I'm trying to implement a simple sudoku solver and came up with this problem: Consider this: (defvar board '( (1 0 0 0 0 7 4 0 0) (9 0 6 4 0 0 0 0 0) (0 5 0 8 3 0 0 0 0) (3 6 0 0 0 0 0 0 5) (0 0 0 0 2 0 0 0 0) (5 0 8 0 0 0 0 1 4) (0 0 0 0 7 3 0 9 0) (0 0 0 0 0 8 7 0 6) (0 0 5 9 0 0 0 0 1))) How ...