Как читать три последовательных целых числа от stdin в Haskell?

Question

Я хочу прочитать ввод как 12 34 56 в три целых числа, используя Haskell.

Для одного целого можно использовать myInteger <- readLn. Но в этом случае, я не нашел ни одного решения, за исключением одного из первого чтения строки, а затем заменить все пробелы с ,, (используя что-то вроде:

spaceToCommas str = 
    let repl ' ' = ',' 
     repl c = c 
    in map repl str 

) и затем вызвать read '[' ++ str ++ ']', который чувствует себя очень хаком. Кроме того, это не позволяет мне заявить, что я хочу прочитать три целых числа, он попытается прочитать любой количество целых чисел от stdin.

Должен быть лучший способ.

Обратите внимание, что я хотел бы получить решение, которое делает не полагаться на внешние пакеты. Использование, например, Parsec, конечно, здорово, но этот простой пример не должен требовать использования полноценной рамки Parser Combinator, верно?

Answer 1

Что о преобразовании строки как:

convert :: Read a => String -> [a] 
convert = map read . words 

words разделяет данную строку в список строк («слова»), а затем мы выполняем read на каждом элементе, используя map.

и, например, использовать его как:

main = do 
    line <- getLine 
    let [a,b,c] = convert line :: [Int] in putStrLn (show (c,a,b)) 

или, если вы, например, хотите, чтобы прочитать первые три элемента и не заботятся об остальном (да это, по-видимому, требует супер -creativity навыки) :

main = do 
    line <- getLine 
    let (a:b:c:_) = convert line :: [Int] in putStrLn (show (c,a,b)) 

Я здесь вернулся кортеж, который поворачивается на одно место вправо, чтобы показать синтаксический анализ делается.