20 lines
434 B
Haskell
20 lines
434 B
Haskell
{-# LANGUAGE ParallelListComp #-}
|
||
addTwo :: Num a => a -> a
|
||
addTwo x = x + 2
|
||
|
||
threeParam :: Num a => a -> a -> a -> a
|
||
threeParam x y z = let w = x+y in w*z
|
||
|
||
myFirst :: (a,b) -> a
|
||
myFirst t = let (x,y)=t in x
|
||
|
||
okko :: [Int] -> [[Char]]
|
||
okko xs = [if x<10 then "OK" else "KO" | x <- xs]
|
||
|
||
addList :: [Int] -> [Int] -> [Int]
|
||
addList xs ys = [x+y | x <- xs, y <- ys]
|
||
|
||
|
||
length2 :: [a] -> Int
|
||
length2 xs = last [n | _ <- xs | n <- [2,4..]]
|