История изменений
Исправление monk, (текущая версия) :
Чтобы последующее вычисление могло зависеть от результата предыдущего.
Пример программы в начале недостаточен?
main x = "Введите своё имя: ":g x
g (имя:числа) = ["Привет, " ++ имя, "Вводите числа, q для выхода"] ++ корни числа
корни ("q":_) = []
корни (x:xs) = (show . sqrt) (read x :: Double):корни xs
против
main = do
putStrLn "Введите своё имя: "
имя <- getLine
putStrLn $ "Привет, " ++ имя
putStrLn "Вводите числа, q для выхода"
getLine >>= корни
where
корни "q" = return ()
корни x = do
putStrLn $ (show . sqrt) (read x :: Double)
getLine >>= корни
Исходная версия monk, :
Чтобы последующее вычисление могло зависеть от результата предыдущего.
Пример программы в начале недостаточен?
main x = "Введите своё имя: ":g x
g (имя:числа) = ["Привет, " ++ имя, "Вводите числа, q для выхода"] ++ корни числа
корни ("q":_) = []
корни (x:xs) = (show . sqrt) (read x :: Double):корни xs
против
main = do
putStrLn "Введите своё имя: "
имя <- getLine
putStrLn "Привет, " ++ имя
putStrLn "Вводите числа, q для выхода"
getLine >>= корни
where
корни "x" = return ()
корни x = do
putStrLn $ (show . sqrt) (read x :: Double)
getLine >>= корни