Skip to content

Instantly share code, notes, and snippets.

@bigos

bigos/excercise-1_9.lisp

Created December 18, 2016 23:55
Show Gist options
  • Save bigos/d50c6f8fc08c677f5822d7032c97feed to your computer and use it in GitHub Desktop.
Save bigos/d50c6f8fc08c677f5822d7032c97feed to your computer and use it in GitHub Desktop.
Download ZIP
Unfolded lisp code
Raw
excercise-1_9.lisp
(defun max-int (a)
(cond ((null a)
(error "empty list"))
((null (cdr a))
(car a))
(T
(max (car a)
(max-int (cdr a))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment