lnicola
6/26/2014 - 12:11 PM

tc.hs

tc.hs
content_copyfile_download
mergeUniq (x : xs) (y : ys) = if x < y
	then x : mergeUniq xs (y : ys)
	else if y < x
		then y : mergeUniq (x : xs) ys
		else x : mergeUniq xs ys
mergeUniq xs [] = xs
mergeUniq [] ys = ys

mult n = map (* n) [1..]

ans = mult 2 `mergeUniq` mult 3 `mergeUniq` mult 5