Perlで実装

自分も同じ結果になりました。
```
$ time carton exec perl bin/crazy_gin.pl data/data01.txt 
0.00397697351023591

real    0m0.221s
user    0m0.192s
sys     0m0.024s
```

hamaknさん用にコメントいっぱい書きました。