C_C++
Haskell
10.hs
2.hs
3.hs
4.hs
5.hs
7.hs
dist.hs
guards.hs
hw.hs
operators.hs
prime.hs
test.hs
unzip.hs
zh_I.hs
zh_II.hs
Java
LaTeX
Misc.
Python
Vim
Webdev
git
.gitignore
Makefile
27 lines
307 B
Haskell
27 lines
307 B
Haskell
module Tipusok where
|
|
|
|
inc a = a + 1
|
|
|
|
inc2 :: Int -> Int
|
|
inc2 a = inc (inc a)
|
|
|
|
-- div :: Fractional a => a -> a -> a
|
|
-- div a b = a / b
|
|
|
|
shw :: n -> n
|
|
shw n = n
|
|
|
|
sho0, sho1 :: Int
|
|
sho0 = maxBound
|
|
sho1 = minBound
|
|
|
|
i :: Num a => a -> a
|
|
i a = a
|
|
|
|
--
|
|
sumt 0 = 0
|
|
sumt n = n + sumt (n - 1)
|
|
|
|
--
|
|
curryer a b = a / b
|