Skip to content

Instantly share code, notes, and snippets.

@nomeaning777

nomeaning777/gist:3420443

Created August 21, 2012 23:32
Show Gist options
  • Save nomeaning777/3420443 to your computer and use it in GitHub Desktop.
Save nomeaning777/3420443 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.lisp
(let ((pat (make-array 402 :initial-element 0)))
(setf (aref pat 0) 1)
(dolist (coin '(1 2 5 10 20 50 100 200))
(dotimes (i 201)
(incf (aref pat (+ i coin)) (aref pat i))))
(print (aref pat 200)))
; 73682
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment