OCamlむずす

http://ccserv.adm.ehime-u.ac.jp/ICPC/problems/domestic/d2004/F.jp/F.html
あいかわらず関数型うんたらをやってたりします。
とりあえずsample inputに対してはちゃんと動くのですが、入力数が多くなると一気に遅くなってしまうので、このまま提出してもTLEになってしまうでせう。
簡単な枝刈り位ではオーダーが落ちそうにないので、もっと小細工する必要があるのかも。