Tower of Hanoi

Hanoi.elm

import Text (..)

type alias Peg = String
type alias Move = (Peg, Peg)

hanoi: Int -> Peg -> Peg -> Peg -> List Move
hanoi n a b c = 
  if n == 0 then [] 
  else 
    let 
      step1 = hanoi (n - 1) a c b
      step2 = (a, b)
      step3 = hanoi (n - 1) c b a
    in step1 ++ [step2] ++ step3
  

main = asText (hanoi 3 "a" "b" "c")