30分プログラム、その45。foldlとfoldrのPerlによる実装。foldlとfoldr自体はもう何度も自分で書いているので、Perlで再帰関数の書き方を覚える意味合いが強い。 use strict; use warnings; sub fact($){ my ($i) = @_; if($i == 0){ 1; }else{ $i * &fact($…

ハフマン木を作りたいので勉強中。LHAとZIP―圧縮アルゴリズム×プログラミング入門をもう一度、読もう。関数言語っぽいアレンジはあとですることにして、とりあえず本の内容をまとめる。 ハフマン符号器 バッファ中のデータの頻度をカウントする(FrequencyTab…