Использование аккумулятора в основном

Question

Я хочу использовать аккумулятор в основном.

Позволяет сказать:

main = do 
    putStrLn "Hey there, what's your name and age?" 
    name <- getLine 
    age <- getLine 
    putStrLn ("Hi " ++ name ++ " you are " ++ age ++ " years old!") 
    main 

Так что я хочу сделать, если пользователь не предоставил свое имя и только возраст, я хочу использовать возраст, который был введен ранее в следующей основной вызов. Любое предложение, как я могу это достичь?

Благодаря

Answer 1

уверен просто использовать другую функцию, где вы можете использовать аргументы по своему выбору:

ask :: String -> IO() 
ask lastAge = do 
    -- don't know what you want to do with lastAge 
    -- so I just use it when the user did not enter anything 
    putStrLn "Hey there, what's your name and age?" 
    name <- getLine 
    age' <- getLine 
    let age = if null age' then lastAge else age' 
    putStrLn ("Hi " ++ name ++ " you are " ++ age ++ " years old!") 
    ask age 

main :: IO() 
main = ask "" 

---

позволяют мне представить небольшое улучшение: вероятно, вы не хотите бесконечный цикл здесь вы можете легко избавиться от него, используя unless:

import Control.Monad (unless) 

ask :: String -> IO() 
ask lastAge = do 
    -- don't know what you want to do with lastAge but here you have it 
    putStrLn "Hey there, what's your name and age?" 
    name <- getLine 
    unless (null name) $ do 
    age' <- getLine 
    let age = if null age' then lastAge else age' 
    putStrLn ("Hi " ++ name ++ " you are " ++ age ++ " years old!") 
    ask age 

это остановит цикл, как только пользователь не даст свое имя.