悩めるエンジニアの気まぐれ日誌 - ブログさんから、 □□□□□ - □□□□ 3 3 3 3 3 □には1〜9がひとつずつ入るとする の問題を力ずくで解いてみました。 cpanからMath::Combinatoricsをインストールして、 #!/usr/bin/perl -w use strict; use Math::Combinatoric…

#!/usr/bin/perl -w use strict; use bigint; # 1 # 1 1 # 1 2 1 # 1 3 3 1 # 1 4 6 4 1 sub nextPascal{ my @pascal = @_; return 1 if !@pascal; my @ret = $pascal[0]; for(my $ii=1; $ii<@pascal; $ii++){ push @ret, $pascal[$ii-1] + $pascal[$ii]; } …