하노이 타워

#lang racket
(define (hanoitower disc src aux dst)
  (cond
    [(> disc 0)
     (hanoitower (- disc 1) src dst aux)
     (displayln (format "Move ~s from ~s to ~s"disc src dst))
     (hanoitower (- disc 1) aux src dst)]))

(hanoitower 3 1 2 3)