Anonymous user
Towers of Hanoi: Difference between revisions
m
Added Racket program
m (Added Racket program) |
|||
Line 1,683:
hanoimove(4,1,2,3)</lang>
=={{header|Racket}}==
<lang scheme>#lang racket
(define (hanoi n a b c)
(when (> n 0)
(hanoi (- n 1) a c b)
(printf "Move ~a to ~a\n" a b)
(hanoi (- n 1) c b a)))
(hanoi 4 'left 'middle 'right)</lang>
=={{header|Rascal}}==
|