Deprecated: The each() function is deprecated. This message will be suppressed on further calls in /home/zhenxiangba/zhenxiangba.com/public_html/phproxy-improved-master/index.php on line 456
Funktsionaalprogrammeerimise meetodid - eksami näidisülesanded
[go: Go Back, main page]

Funktsionaalprogrammeerimise meetodid

Eksami näidisülesanded

Ülesanne 1

Kirjutada funktsioon natToBin, mis saab argumendiks naturaalarvu ja väljastab selle esituse kahendsüsteemis: 
natToBin :: Int -> [Int]
Näiteks: 
natToBin 0  ==>  [0]
natToBin 1  ==>  [1]
natToBin 4  ==>  [1,0,0]
natToBin 7  ==>  [1,1,1]

Ülesanne 2

Kirjutada funktsioon takeUntilRep, mis võtab listist elemente kuni esimese korduva elemendini: 
takeUntilRep :: Eq a => [a] -> [a]
Näiteks: 
takeUntilRep [1,2,3,3]    ==>  [1,2,3]
takeUntilRep [1,2,1,4,2]  ==>  [1,2]
takeUntilRep [1,2,3,4,5]  ==>  [1,2,3,4,5]

Ülesanne 3

Kirjutada funktsioon split2, mis jagab argumentlisti kaheks listiks nii, et esimeses listis on argumentlisti esimene, kolmas, viies jne. element ning teises on argumentlisti teine, neljas, kuues jne element: 
      
split2 :: [a] -> ([a], [a])
Näiteks: 
split2 [1..10]  ==>  ([1,3,5,7,9],[2,4,6,8,10])
split2 [3,1,4]  ==>  ([3,4],[1])

Ülesanne 4

Olgu funktsioon twice defineeritud järgnevalt:

twice f = f . f

Redutseerida allpool toodud avaldis normaalkujule kasutades normaaljärjekorda / aplikatiivset järjekorda / laiska väärtustamist.

twice twice (+1) 2

Ülesanne 5

Mis on järgneva avaldise väärtus? 
(sum . concat . takeWhile (not . null) . iterate tail) [1..3]
Vali üks toodud variantidest: 
(a) 6   (b) 10   (c) 14   (d) 18