Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun sll (l n) (labels ( (sl (l n) (append (cons (car l) nil) (if (eq n 1) nil (sl (cdr l) (- n 1) )))) (rest (l n) (if (eq n 0) l (rest (cdr l) (- n 1))) )) (list (sl l n) (rest l n)) ))
Add Comment
Please, Sign In to add comment