Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

(Golf) Towers of Hanoi

by z0d (Hermit)
on Jul 29, 2001 at 00:49 UTC ( [id://100601] : perlmeditation . print w/replies, xml ) Need Help??

I searched PerlMonks for towers of hanoi, but couldn't find anything. It is strange because there isn't any good reason not to golf this game. Since I'm not good at golf, I can provide only Ton Hospel's two solutions to the problem.

perl -wle 'print log(~$_&($_+1))/log 2 for 0..2**pop()-2' 3 perl -wle '$n=-1+2**pop;print log($n--&~$n)/log 2while$n' 3
It tells which disk to move for 3 disks. Replace the 3 at the end for the other numbers up to 32. There's always only one possibility since top disk goes where it has not been yet. Unfortunatelly it works only under 32.


<-- z0d -->

Replies are listed 'Best First'.
Re: (Golf) Towers of Hanoi
by Anonymous Monk on Jun 23, 2002 at 23:05 UTC
    perl -we '$\.=$_.$/.$\for 0..~-pop;print' 3
      You don't just eviscerate a Ton Hospel solution, and walk nonchalantly away with a smug grin under your masked visage. Identify yourself, and the planet and star-system from which you hale.
         MeowChow                                   
                     s aamecha.s a..a\u$&owag.print
        I'm allowed to eviscerate my own solutions ! Though this time Jukka Suomela helped a lot.
Re: (Golf) Towers of Hanoi
by lemming (Priest) on Jul 29, 2001 at 07:19 UTC