pATRIK

6.1.1
======

module Main
where

silnia :: Int -> Int
silnia n | n == 0 = 1
         | n > 0 = n * silnia (n - 1)
main =
   do putStrLn "Enter natural number: "
      k <- readLn
      let result = silnia k
      print result

{--*Main> main
Enter natural number:
5
120
*Main>
 --}



6.1.2
======

module Main
where

silnia :: Int -> Int
silnia n | n == 0 = 1
         | n > 0 = n * silnia (n - 1)
main =
   do putStrLn "Enter natural number: "
      k <- readLn
      print (silnia k)

{-
*Main> main
Enter natural number:
5
120
*Main>
-}


6.1.3
======

module Main
where



silnia :: Int -> Int
silnia n | n == 0 = 1
         | n > 0 = n * silnia (n - 1)
main =
     do putStrLn "Enter natural number: "
        k <- getLine
        let result = silnia (read k)
        putStrLn (show result)