neparni n = [2*i+1 | i <- [0..n]]

pitagorinet :: Integer->[(Integer,Integer,Integer)]
pitagorinet n = [(x,y,z) | x<-[1..n], y<-[1..x], z<-[1..n],x^2+y^2==z^2]
--pitagorinet n = [(x,y,round(sqrt(x^2+y^2))) | x<-[1..n], y<-[1..n], sqrt(x^2+y^2)==round(sqrt(x^2+y^2))]

savrseni n = [x | x<-[1..n], (sum [y | y <- [1..(x-1)], x `mod` y ==0])==x]

skalarni l1 l2 = sum [(\(x,y) -> x*y) z | z <- (zip l1 l2)]