Программирование на языке Haskell, урок № 8

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


Итак, открываем знакомый нам notepad++ или обычный блокнот и пишем там такой код:
import IO
sumInt :: IO Integer
sumInt =
  let readNum :: IO Integer
      readNum = readLn
  in do putStr "Enter number Integer: "
        x1 <- readNum
        putStr "Enter 2 chislo: "
        x2 <- readNum
        putStr ("This summ = ")
        return (x1 + x2)

Разберём построчно, первая строка подключает библеотеку ввода/вывода (Input/Output); далее присваем тип переменной readNum целый(integer). Далее назначаем ей действие "считывание" (readLn); возвращаем сумму двух введённых переменных: x1 и x2. 


Следующий этап, это запуск:
Main> sumInt
Enter number Integer: 1
Enter 2 chislo: 23
This summ = 24 :: IO Integer

И напоследок:
Если вы забыли как запускать программу из файла, вам сюда: уроке № 2, п. 2