hanoi.scm
; Andrew Pennebaker ; 9 Feb 2007 ; License: GPL ; URL: http://snippets.dzone.com/posts/show/3492 (define *start* 0) (define *aux* 1) (define *end* 2) (define hanoi (lambda (n start aux end) (if (= n 1) (list start end) (append (hanoi (- n 1) start aux end) (list start aux) (hanoi (- n 1) aux start end)))))