CSVファイルで各行の先頭を見て、重複した値があったら取り出すスクリプト - shokosブログ

CSVファイルで各行の先頭を見て、重複した値があったら取り出すスクリプト - shokosブログ

業務で必要になったので、勉強がてらHaskellで書いてみた。 import Data.List.Split main = do csv <- r...概要を表示 業務で必要になったので、勉強がてらHaskellで書いてみた。 import Data.List.Split main = do csv <- readFile "./foo.csv" print $ check $ dataList csv --各行の先頭をリスト化する dataList :: String -> [String] dataList csv = foldr (\x xs -> (head (splitOn "," x)) : xs) [] (lines csv) --リスト内に重複したデータがあるかチェック check :: [String] -> [String] check [] = [] check (x:xs) | elem x xs = x : (check xs) | otherwise = check xs lines csv 行ごとにリストにする処理がたっ