Distinct power numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 384: / Line 384: @@
 main =
   (print . S.elems . S.fromList) $
-    (\xs -> xs >>= \x -> fmap (x ^) xs)
+    (\xs -> xs >>= (<$> xs) . (^))
       [2 .. 5]</lang>
 {{Out}}