Anonymous user
List comprehensions: Difference between revisions
m
→{{header|ALGOL 68}}: nl ww
m (→{{header|Tcl}}: remove unnecessary [expr]) |
m (→{{header|ALGOL 68}}: nl ww) |
||
Line 18:
{{works with|ALGOL 68|Standard - no extensions to language used}}
{{works with|ALGOL 68G|Any - tested with release mk15-0.8b.fc9.i386}}
{{works with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release 1.8.8d.fc9.i386}}
<lang algol>MODE XYZ = STRUCT(INT x,y,z);
Line 39 ⟶ 41:
+3 +4 +5 +5 +12 +13 +6 +8 +10 +8 +15 +17 +9 +12 +15 +12 +16 +20
</pre>
=={{header|Clojure}}==
(for [x (range 1 21) y (range x 21) z (range y 21) :when (= (+ (* x x) (* y y)) (* z z))] [x y z])
|