SHOW:
|
|
- or go back to the newest paste.
| 1 | - | (defun insert(x L) |
| 1 | + | (defun insert (x L) |
| 2 | - | (cond ((null L) nil) |
| 2 | + | (cond |
| 3 | - | ((equal (cdr L) nil) (cons (cdr L) x)) |
| 3 | + | ((null L) nil) |
| 4 | - | (t (cons (car L) (insert x (cdr L)))) |
| 4 | + | ((equal (cdr L) nil) (cons (cdr L) x)) |
| 5 | - | ) |
| 5 | + | (t (cons (car L) (insert x (cdr L)))))) |
