/ The Towers Of Hanoi
/ K
/ Copyright (C) 2003 Amit Singh. All Rights Reserved.
/ http://hanoi.kernelthread.com
/
/ Last tested under K 2.95t
/ http://www.kx.com
/
/ Usage:
/ % k hanoi.k
/ ... Copyright messages ...
/ hanoi[3]

H: { :[x > 0; H[x - 1; y; 6 - (y + z)], y, z, 0, H[x - 1; 6 - (y + z); z]; ()] }

hanoi: { :[x > 0; H[x; 1; 3]] }