*iroi*

mechairoi の Blog

2009-06-14から1日間の記事一覧

スターがついてる

こんなに嬉しいとは思わなかった.

Project Euler Problem61

Perlの練習ということで #!/usr/bin/perl use strict; use warnings; my @paths; $paths[$_] = [] for(0..99); push(@{$paths[target($_)]}, [{8 => 1}, [source($_), target($_)]]) for (polygonals(8)); for(3..7) { my @prev = @paths; $paths[$_] = [] f…