DouKaku?

「アレイのuniq」の応用編です。

入力されたテキストデータから重複する行をとりのぞいて、その結果を標準出力へ出力するプログラムを作成してください。

重複行の排除については、以下の仕様を満たしてください。

1. 読み込み順序は変更しないこと
2. 重複する行があった場合、以前のデータを削除すること (後に読み込んだ方が強い)
3. ファイル全体を一度にメモリに読み込んで処理しないこと
4. 比較は行全体で行うこと

#4.はおまけですがある／なしで作りが変わってくると思われるので追加しました。

---

この問題はraynstardさんにご投稿いただきました。ご協力ありがとうございます。 ところで、素朴な実装のしかたをするとメモリ容量の数倍のサイズのすべての行が異なっているファイルを読ませたときに大変なことが起こりそうな気がしますが、そういうシビアなお題設定ではないので素朴に解いてしまって構いません。シビアなのは続編にしたいと思います。

思いつくままに。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15

fun uniq file =
let
  open TextIO

  val fs = openIn file

  fun f a =
    case inputLine fs of
        NONE => app print a
      | SOME s => f ((List.filter (fn x => x <> s) a) @ [s])
in
  f []
end;

uniq "hoge.txt"