33 lines
1.0 KiB
Haskell
33 lines
1.0 KiB
Haskell
-- Kovács Dávid - AGVXOV
|
|
--
|
|
-- A. csoport
|
|
-- Zárthelyi dolgozat
|
|
-- Funkcionális nyelvek
|
|
|
|
|
|
|
|
-- 1.) Adjuk meg azt a függvényt, amely első paramétere egy elem és egy bool.
|
|
-- Az elemet csak akkor fűzzük a második paraméterként kapott lista elejére, ha a bool igaz.
|
|
|
|
|
|
condAddToList :: (a, Bool) -> [a] -> [a]
|
|
--condAddToList (x, y) z = if y then x : z else z
|
|
condAddToList (x, y) z
|
|
| y = x : z
|
|
| otherwise = z
|
|
|
|
|
|
-- 2.) Adjuk meg azt a függvényt, amely két egész számot kap, és előállítja a köztük értelmezett
|
|
-- intervallumot! Abban az esetben, ha az első argumentum nagyobb, mint a második, akkor üres
|
|
-- listát adjon vissza!
|
|
|
|
interval :: Int -> Int -> [Int]
|
|
interval x y = if x > y then [] else [x..y]
|
|
|
|
-- 3.)Adjuk meg azt a függvényt, amely egy rendezett párt állít elő egy listából. A pár első eleme a
|
|
-- lista első eleme, a pár második eleme pedig a lista farok része legyen. Feltételezhetjük, hogy a
|
|
-- lista nem üres.
|
|
|
|
headTail :: [a] -> (a, [a])
|
|
headTail (x:xs) = (x, xs)
|