Help for this page
r = foldr merge  . map (\n -> map (*n) [1..])
merge  ys = ys
merge xs  = xs
| x < y = x : merge xs (y:ys)
| y < x = y : merge (x:xs) ys
| otherwise = x : merge xs ys
> take 60 (r [2,3,5])
There is no Extraterrestrial life
There aren't any suitably capable Extraterrestrials
Interstellar travel is too difficult
We're too uncool / not worth the trouble
What do you mean they haven't visited?
Results (526 votes). Check out past polls.