MPL Bytecode Compiler Code

21 lines (16 with data), 408 Bytes

//
// THE TOWERS OF HANOI
// BCPL
// COPYRIGHT (C) 1998 AMIT SINGH. ALL RIGHTS RESERVED.
// HTTP://HANOI.KERNELTHREAD.COM
//
// TESTED UNDER MARTIN RICHARDS' BCPL OVER INTCODE COMPILER KIT
//
// CONVERTED TO MPL BY DEREK JOHN EVANS
//

;LIBHDR

MOVEIT(F,T) WRITEF("MOVE %N --> %N*N",F,T)

HANOI(N,T,F,U) N ? [
  HANOI(N-1,U,F,T); MOVEIT(F,T); HANOI(N-1,T,U,F)
]

MAIN() HANOI(5, 3, 1, 2)