AlexTsyganov

module Lab2 where  

data BinaryTree = Empty | Node BinaryTree Integer BinaryTree 

emptyTree :: BinaryTree-- создание пустого дерева 
emptyTree = Empty


insert :: BinaryTree -> Integer -> BinaryTree -- добавления элемента 
insert (Empty) a = Node Empty a Empty

AlexTsyganov

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))		-- расчет и вывод факториала