List comprehensions: Difference between revisions

Content added Content deleted

Inline

@@ Line 82: / Line 82: @@
   pythag(N) ->
-      [ {A,B,C} ||
+      [ {A,B,C} || A <- lists:seq(1,N),
-          A <- lists:seq(1,N),
+                   B <- lists:seq(A,N),
-          B <- lists:seq(1,N),
+                   C <- lists:seq(B,N),
-          C <- lists:seq(1,N),
+                   A+B+C =< N,
-          A+B+C =< N,
+                   A*A+B*B == C*C ].
-          A*A+B*B == C*C
-      ].
 =={{header|Haskell}}==