hristozov

{
	"maxparams": 4
}

hristozov

{- 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 [] = []

hristozov

;Pravo kontrolno po FP
;KN - 20.11.2010
;Georgi Ivanov Hristozov - 1 adm. grupa, FN 80430
;Ostavil sum testovete dadeni po uslovie ili ot asistentite.
;Polzvam Pretty Big.

;;;;;;;;;;;;;;;;;;;;;
;Task 1 - prod-sum-div

;get-divisors vrushta spisak ot delitelite v intervala [1;n]

hristozov

;Georgi Ivanov Hristozov 80430

(define g '(
            (1 2 3)
            (2 3 6)
            (3 4 5)
            (4 1 2 5)
            (5 3)
            (6 2)))