Tower of Hanoi / Perl 6

Tags

{"maxCount":23,"tags":[{"page_count":23,"count":null,"name":"People"},{"page_count":19,"count":null,"name":"Tablet"},{"page_count":18,"count":null,"name":"Welcome"},{"page_count":12,"count":null,"name":"Implementation"},{"page_count":9,"count":null,"name":"Tutorial"},{"page_count":7,"count":null,"name":"parrot"},{"page_count":6,"count":null,"name":"rakudo"},{"page_count":4,"count":null,"name":"Specification"},{"page_count":4,"count":null,"name":"documentation"},{"page_count":3,"count":null,"name":"Pugs"},{"page_count":3,"count":null,"name":"algorithms"},{"page_count":3,"count":null,"name":"benchmarks"},{"page_count":3,"count":null,"name":"index"},{"page_count":2,"count":null,"name":"status"},{"page_count":2,"count":null,"name":"About This Website"},{"page_count":2,"count":null,"name":"milestones"},{"page_count":1,"count":null,"name":"Sample Weblog"},{"page_count":1,"count":null,"name":"fibonacci"},{"page_count":1,"count":null,"name":"exersizes"},{"page_count":1,"count":null,"name":"epo"},{"page_count":1,"count":null,"name":"problems"},{"page_count":1,"count":null,"name":"event"},{"page_count":1,"count":null,"name":"modules"},{"page_count":1,"count":null,"name":"pm"},{"page_count":1,"count":null,"name":"perl 6"},{"page_count":1,"count":null,"name":"glossary"},{"page_count":1,"count":null,"name":"hackathon"},{"page_count":1,"count":null,"name":"running perl 6"},{"page_count":1,"count":null,"name":"try it now"},{"page_count":0,"count":null,"name":"about"},{"page_count":0,"count":null,"name":"Perl Table"},{"page_count":0,"count":null,"name":"ssd Weblog"},{"page_count":0,"count":null,"name":"Conferences"},{"page_count":0,"count":null,"name":"modules, try it now, rakudo"},{"page_count":0,"count":null,"name":"welcome Weblog"},{"page_count":0,"count":null,"name":"buy wellbutrin, wellbutrin online"},{"page_count":0,"count":null,"name":"pm, modules, try it now, perl6 code"},{"page_count":0,"count":null,"name":"DavidWu's Weblog"},{"page_count":0,"count":null,"name":"personal"},{"page_count":0,"count":null,"name":"St Petersburg Web Design Weblog"},{"page_count":0,"count":null,"name":"algorithms, milestones, benchmarks"},{"page_count":0,"count":null,"name":"test Weblog"},{"page_count":0,"count":null,"name":"petersburg Weblog"},{"page_count":0,"count":null,"name":"hackathon rakudo perl 6 parrot"}]}

Incoming Links

What can I do with Perl 6 today?

Attachments

Perl 6

Tower of Hanoi

Description

Invented by the French mathematician Édouard Lucas in 1883, this is a mathematical game/puzzle about moving a set of disks between a set of pegs, limited by the following rules :

Only one disk may be moved at a time.
Each move consists of taking the upper disk from one of the pegs and sliding it onto another peg, on top of the other disks that may already be present on that peg.
No disk may be placed on top of a smaller disk.

Solutions

http://svn.pugscode.org/pugs/examples/algorithms/hanoi.pl

Status with current release of perl 6 / parrot

Parrot 0.5.1 December 2007 : compiler errors - subs and argv not implemented
Parrot SVN Revision 24336 20 December 2007 : works without // and argv syntax (http://nopaste.snit.ch:8001/11939)
Parrot SVN Revision 24478 3 January 2008 : works as is
Pugs SVN revision 18224 : works as is

Benchmarks

1000 iterations with 6 disks - skip output ( or comment on output to file, etc : http://sial.org/pbot/29516 thanks to Stephen Weeks / Tene on #perl6 )

Pugs revision 18224 ( 1ghz, 640M ram )

(100 iterations with 1 say per iteration) : real 0m22.611s, user 0m22.384s, sys 0m0.101s

Parrot revision 24336 ( 1.6ghz, 2G ram )

(1000 iterations no printing ) : real 0m3.577s, user 0m3.119s, 0m0.452s
(100 iterations with 1 say per iteration) : real 0m0.841s, user 0m0.694s, sys 0m0.141s

Comparisons against Perl 5, etc

http://hop.perl.plover.com/Examples/ALL/hanoi # MJD's simple perl solution to Hanoi (further examples and detail in the Higher Order Perl book)
http://www.kernelthread.com/hanoi/html/rb.html # simple ruby program to solve hanoi from command line
http://www.ruby-forum.com/topic/107700 # object oriented ruby class to solve hanoi from command line and discussion thereof
http://codegolf.com/tower-of-hanoi # golfing tower of hanoi
http://www.kernelthread.com/hanoi/html/py.html # simple python solution

Description

Solutions

Status with current release of perl 6 / parrot

Benchmarks

Comparisons against Perl 5, etc

References