List comprehensions: Difference between revisions
List comprehensions en FreeBASIC
(Added Wren) |
(List comprehensions en FreeBASIC) |
||
Line 780:
end program list_comprehension
</lang>
=={{header|FreeBASIC}}==
{{trans|Run BASIC}}
FreeBASIC no tiene listas de comprensión. Una implementación:
<lang freebasic>Dim As Integer x, y, z, n = 25
For x = 1 To n
For y = x To n
For z = y To n
If x^2 + y^2 = z^2 Then Print Using "{##_, ##_, ##}"; x; y; z
Next z
Next y
Next x
Sleep</lang>
{{out}}
<pre>
{ 3, 4, 5}
{ 5, 12, 13}
{ 6, 8, 10}
{ 7, 24, 25}
{ 8, 15, 17}
{ 9, 12, 15}
{12, 16, 20}
{15, 20, 25}
</pre>
=={{header|FunL}}==
| |||