Haskell harici txt dosyasını listeye yükle

Question

Aşağıdaki kod bir sözcük kitaplığı programıdır. Bir önek, sonek ve bazı harflerle eşleşen sözcüklerin bir listesini aramanızı sağlar. Sorum şu: altta listeyi kullanmak yerine, kelimeleri içeren harici bir metin dosyası kullanmak ve listeye yüklemek istiyorum. Bunu yapmayı nasıl yaparım?

count :: String -> String -> Int 
count _[] = 0 
count [] _ = 0 
count (x:xs) square 
    |x `elem` square = 1 + count xs (delete x square) 
    |otherwise = count xs square 

check :: String -> String -> String -> String -> Bool 
check prefix suffix word square 
    | (length strippedWord) == (count strippedWord square) = True 
    | otherwise = False 
    where 
     strippedWord = drop (length prefix) (take ((length word) - (length suffix)) word) 


wordfeud :: String -> String -> String -> [String] 
wordfeud a b c = test1 
    where 
    test =["horse","chair","chairman","bag","house","mouse","dirt","sport"] 

    test1 = [x| x <- test, a `isPrefixOf` x, b `isSuffixOf` x, check a b x c] 

Answer 1

Çok basit, (kelimeleri satır sonları daha boşluk, başka formu ayrılmış veya words) lines fonksiyonu yardımıyla: Ayrıca

-- Loads words from a text file into a list. 
getWords :: FilePath -> IO [String] 
getWords path = do contents <- readFile path 
        return (lines contents) 

, muhtemelen gerekecek Daha önce yapmadıysanız, IO'da Haskell'de ('gode' io haskell tutorial ') tavsiye ederim. Ayrıca programınıza etkileşimi tanıtmak için ona ihtiyacınız olacak.