Написание лексики Haskell, которая соответствует строкам из файла CSV

Question

Я пытаюсь написать простой лексер, который распознает слова, такие как предлоги. У меня есть списки этих слов в формате CSV. На данный момент у меня есть лексер, который работает, но я, чтобы вводить каждую строку из моего списка индивидуален например .:

... 
("before",rest) -> TokenPreposition : lexer rest 
("behind",rest) -> TokenPreposition : lexer rest 
... 

Можно прочитать слова в из файлов CSV? Я знаю, что есть библиотека для разбора CSV-файлов, но я не знаю, как продолжить после этого?

Answer 1

Вы можете использовать Set String, чтобы сохранить список слов и использовать функцию member, чтобы определить, находится ли слово в наборе.

Вот пример кода. Вход в lexer списки глаголов, существительных и предлогов, а также список слов, которые он классифицирует в соответствии с которым список слово в.

import qualified Data.Set as S 

data Speech = Verb | Noun | Preposition | Other 

-- classify a single word  
classify :: S.Set String -> S.Set String -> S.Set String -> String -> Speech 
classify verbs nouns preps word 
    | S.member word verbs = Verb 
    | S.member word nouns = Noun 
    | S.member word preps = Preposition 
    | otherwise   = Other 

lexer :: [String] -> [String] -> [String] -> [String] -> [Speech] 
lexer vlist nlist plist words = 
    let nouns = S.fromList nlist -- convert each word list into a set 
     verbs = S.fromList vlist 
     preps = S.fromList plist 
    in map (classify verbs nouns preps) words