Функція для розміну монет на Common Lisp

назад до списку постів

Зараз читаю sicp, зацікавила задача по розміну монет, написав свій варіант функції.
На диво функція працює. Додав кілька тестів.

Функція лежить тут http://gist.github.com/458313

Зараз буду дивитись варіант цієї функції з книги.

оновлення...
в книзі використовуються аж 3 функції, коду набагато більше, приємно що вдалось знайти краще рішення. Відповіді вийшли однакові.