v2/examples/hanoi.ck

   1 // towers of annoy : non-sonified version
   2
   3 // number of disks
   4 10 => int disks;
   5
   6 // moves
   7 0 => int moves;
   8
   9 // the hanoi
  10 fun void hanoi( int num, int src, int dest, int other )
  11 {
  12     // stop here
  13     if( num <= 0 ) return;
  14
  15     // move all except the biggest
  16     hanoi( num - 1, src, other, dest );
  17     // move the biggest
  18     <<< "move disk from peg", src, " -> ", "peg", dest, ": #", ++moves >>>;
  19     // move onto the biggest
  20     hanoi( num - 1, other, dest, src );
  21 }
  22
  23 // start it
  24 hanoi( disks, 1, 3, 2 );
  25
  26 <<<"done!">>>;