Courses of functional programming 2015

FP; Lab 1.hs

factorial n = if n == 0 then 1 else n * factorial (n - 1) 	-- рекурсивная функция факториала

main = do
        putStrLn "Enter number:"							-- выведет "Enter number:"
        inpStr <- getLine									-- получить значения
        let x = (read inpStr)::Integer						-- чар в инт
        putStrLn ("Factorial:" ++ show (factorial x))		-- расчет и вывод факториала

Task Lab 1.txt

Установите компилятор языка Haskell
Создайте файл Main.hs, содержащий в себе программу, принимающую на стандартный ввод число и выводящую факториал этого числа. Функция вычисления факториала числа приведена в лекции 2. Для преобразования строки в число воспользуйтесь стандартной функцией read. Для преобразования числа в строку используйте функцию show.
Скомпилируйте и запустите программу, убедитесь в её работоспособности.
Выложите полученную программу на любой доступный вам хостинг сэмплов кода (например, pastebin или github gist) и пришлите на адрес belyaev <собака> kspt.icc.spbstu.ru письмо со ссылкой на вашу программу, указав в заголовке письма своё имя, номер группы и номер задания.