Rosetta Code

List comprehensions: Difference between revisions

Page Discussion

List comprehensions (view source)

Revision as of 02:29, 27 July 2009

20 bytes added ,  14 years ago
m
→‎{{header|Erlang}}: optimized, made more idiomatic in syntax.
(Omit Perl.)
m (→‎{{header|Erlang}}: optimized, made more idiomatic in syntax.)
Line 82:
 
pythag(N) ->
[ {A,B,C} || A <- lists:seq(1,N),
A B <- lists:seq(1A,N),
B C <- lists:seq(1B,N),
A+B+C =<- lists:seq(1,N),
A*A+B+C*B =<= C*C N,].
A*A+B*B == C*C
].
 
=={{header|Haskell}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/41040"