先日の勉強会の問題を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; }