Distinct power numbers: Difference between revisions
m
→{{header|Haskell}}
(→{{header|Haskell}}: Added a variant) |
|||
Line 377:
(print . S.elems . S.fromList) $
(\xs -> [x ^ y | x <- xs, y <- xs]) [2 .. 5]</lang>
or equivalent expression:
<lang haskell>import qualified Data.Set as S
main :: IO ()
main =
(print . S.elems . S.fromList) $
(\xs -> xs >>= \x -> fmap (x ^) xs)
[2 .. 5]</lang>
{{Out}}
<pre>[4,8,9,16,25,27,32,64,81,125,243,256,625,1024,3125]</pre>
| |||