K2.hs

K2.hs

{- Georgi Ivanov Hristozov 80430 -}

{- 2 ZADACHA -}
-- Vrushta spisak ot chisloto x, povtoreno n puti
repeatn x n
 | n <= 0 = []
 | otherwise = x:(repeatn x (n - 1))

-- Realizaciq na repeat-stream
repeatstream [] = []
repeatstream ((x,n):xs) = (repeatn x n)++(repeatstream xs)

-- Testova funkcia za repeatstream
gendoubles n = (n,n):(gendoubles (n+1))

{- 3 ZADACHA -}
startsWith [] _ = True
startsWith (x:xs) (y:ys)
 | x == y = startsWith xs ys
 | otherwise = False

substAll [] _ _ = []
substAll _ [] _ = []
substAll l1 l2 l3
 | startsWith l2 l1 = l3++(substAll (drop (length l2) l1) l2 l3)
 | otherwise = (head l1):substAll (tail l1) l2 l3

substDictionary l [] = l
substDictionary l (x:xs) = substAll modifiedl (fst x) (snd x)
 where modifiedl = substDictionary l xs