hanoi.scm

#!/usr/bin/gosh

(define (move n from to space)
  (cond ((= n 1) (display (string-append "move #1 from " from " to " to "\n")))
       (else 
	(move (- n 1) from space to)
	(display (string-append "move #" (number->string n) " from " from " to " to "\n"))
	(move (- n 1) space to from))))

(move 3 "A" "B" "C")