List comprehensions: Difference between revisions
Content added Content deleted
(Added Wren) |
(List comprehensions en FreeBASIC) |
||
Line 780: | Line 780: | ||
end program list_comprehension |
end program list_comprehension |
||
</lang> |
</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}}== |
=={{header|FunL}}== |