;; Fichero "hanoi.s" ;; Definición de la función "hanoi" (define (hanoi n a b c) (define (cambio a b) (display a) (display " --> ") (display b) (newline) 1 ) ;; (cond ( (= n 1) (cambio a b)) (else ( + (hanoi (- n 1) a c b) (cambio a b) (hanoi (- n 1) c b a) ) ) ) ) ;; Llamada a la función "hanoi" (hanoi 3 "A" "B" "C")