Perl日記

PerlとかRubyとかPHPとかPythonとか

先日の勉強会の問題をPerlで解いた

出題された問題↓
http://mizti.hatenablog.com/entry/2013/01/26/011841

作ったもの↓
https://github.com/rightgo09/crazy_gin


安直に全パターン網羅しようとすると絶賛爆死するので、アルゴリズムってやっぱり大事だなーと思った。


あと、初めてstateを使えたので満足。
もう外側に変数を保持しておかなくていいんだね。

# いままで
my $hoge
sub hoge {
  unless ($hoge) {
    $hoge = 1+2+3+4+5;
  }
  return $hoge;
}
# これから
use feature qw/ state /;
sub hoge {
  return state $hoge ||= 1+2+3+4+5;
}