条件を満たす行を取り除く

条件を満たす行を取り除く
http://ja.doukaku.org/10/

今回も時間がないので簡単な問題を選択

namespace Doukakuorg

open System
open System.IO

(*
    条件を満たす行を取り除く
    http://ja.doukaku.org/10/
*)
type C10 private () =
    static member Run path =
        if File.Exists(path) then
            let write texts = File.WriteAllLines(path, texts)
            File.ReadAllLines(path)
                |> Array.filter (fun a -> not(a.StartsWith("#")))
                |> write
            ()