Programming Languages 2019/20 fall

Kolmas Praktikum

Näiteülesanded

fst -- paari esimene element

-- järgnevad funktsioonid on standardteegis juba defineeritud
import Prelude hiding (head, tail, null, length, (++), concat,
    (!!), take, drop, reverse, lines, fst, snd)

fst :: (a, b) -> a
fst = undefined

head -- listi esimene element

head :: [a] -> a
head = undefined

tail -- listi "saba"

tail :: [a] -> [a]
tail = undefined 

length -- listi pikkuse arvutamine

length :: [a] -> Int
length = undefined

Redutseeri avaldis length [2,3,4] .

++ -- kahe listi konkateneerimine

infixr 5 ++
(++) :: [a] -> [a] -> [a]
(++) = undefined

Redutseeri avaldis [1] ++ [2].

!! -- listist n-nda elemendi võtmine

infixl 9 !!
(!!) :: [a] -> Int -> a
(!!) = undefined

Redutseeri avaldis [1,2] !! 1.

take -- listist algusosa võtmine

take :: Int -> [a] -> [a]
take = undefined

Harjutusülesanded

Ülesanne 1 -- snd -- paari teine element

snd :: (a, b) -> b
snd = undefined

-- Näited:
-- snd (1,"bla")     ==> "bla"
-- snd (2,"bla")     ==> "bla"
-- snd (False, True) ==> True

Ülesanne 2 -- null -- tühilisti kontroll

null :: [a] -> Bool
null = undefined

-- Näited:
-- null [1,2,3]       ==> False
-- null [[]]          ==> False
-- null []            ==> True

Ülesanne 3 -- drop -- listi lõpuosa võtmine

drop :: Int -> [a] -> [a]
drop = undefined

-- Näited:
-- drop 0 [1,2,3,4]       ==> [1,2,3,4]
-- drop 1 [1,2,3,4]       ==> [2, 3, 4]
-- drop 3 [1,2,3,4]       ==> [4]
-- drop 100 [1,2,3,4]     ==> []

Ülesanne 4 -- reverse -- listi ümberpööramine

reverse :: [a] -> [a]
reverse = undefined

-- Näited:
-- reverse [1,2,3]       ==> [3,2,1]
-- reverse [True, False] ==> [False, True]
-- reverse []            ==> []

Ülesanne 5 -- sumList -- listi elementide summa

Kirjutada funktsioon sumList, mis leiab täisarvude listi summa.

sumList :: [Integer] -> Integer
sumList = undefined

-- Näited:
-- sumList [1..10]   ==>   55
-- sumList [3,1,2]   ==>   6
-- sumList [2]       ==>   2
-- sumList []        ==>   0

Redutseeri avaldis sumList [100,76,24].

Ülesanne 6 -- lastElem -- listi viimane element

lastElem :: [a] -> a
lastElem = undefined

-- Näited:
--   lastElem [1]      ==>   1
--   lastElem [1,2,3]  ==>   3
--   lastElem [1..10]  ==>   10
--   lastElem "kala"   ==>   'a'

Redutseeri avaldis lastElem [1,2,3,4].

Ülesanded*

Ülesanne 7*

Kirjuta funktsioon lines, mis võtab sisse sõne ja tagastab sõnede listi, mille elemendid on sisendi (reavahetusega eraldatud) teksitread. Ülesannet võib lahendada abifunktsiooniga, kus on lisaks argumendid juba loetud ridade listi ja lugemisel olev poolik rea jaoks.

lines :: String -> [String]
lines = undefined

-- Näited:
-- lines ""           ==> []
-- lines "asfd"       ==> ["asfd"]
-- lines "asfd\n"     ==> ["asfd"]
-- lines "as\nfd\n"   ==> ["as","fd"]
-- lines "as\nfd\n\n" ==> ["as","fd",""]