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