アレイのuniq
アレイのuniq - どう書く? org をf#で考えてみました。
本当は投稿したかったのですが、ユーザー登録時にエラーが発生するのであきらめました。
module UniqArray = let Make (list : int list) = let AddListIfUniqItem (uList : int list) item = match List.exists (fun x -> x = item) uList with | false -> List.append uList [item] | _ -> uList let result : int list = [] List.fold AddListIfUniqItem result list [<EntryPoint>] let main(args : string[]) = let uniqlist = UniqArray.Make [1; 2; 3; 3; 4; 5; 6; 2; 7; 8; 9; 10] List.iter (printf "%d") uniqlist printfn "" 0