OCamlというラクダにのって砂漠をさまよっていると4年前のソースを発見しました。
砂漠をさまよって自信をなくしつつあったのでちょっと休憩。
4年前がこちらです。
今だとこんな感じです。
コメントと未使用ライブラリを取ります。
1行目 最初に読み取った数だけ さらに読み取って数値化して 配列に入れていき ソートしてhoに入れます。
2行目 配列を1つずらしたものをまとめてループさせ大きいものから小さいものを引いたものから一番小さいものを表示しています。
ZIPはあえて使ってみました。