= do
putStrLn "What do you want to do?"
putStrLn "1 - Add task"
putStrLn "2 - List tasks"
putStrLn "3 - Get plan of the day and exit the program"
hFlush stdout
var <- readLn :: IO Int
tasks <- t
putStrLn "What do you want to do?"
putStrLn "1 - Add task"
putStrLn "2 - List tasks"
putStrLn "3 - Get plan of the day and exit the program"
hFlush stdout
var <- readLn :: IO Int
tasks <- act tasks var
loop (act tasks var)
ыыы почти ничего не понятно но типа что-то понятно но ничего не понятно
Обсуждают сегодня