Doubly-linked list/Traversal: Difference between revisions
Content added Content deleted
(Doubly-linked list/Traversal en FreeBASIC) |
|||
| Line 1,098: | Line 1,098: | ||
=={{header|Fortran}}== |
=={{header|Fortran}}== |
||
see [[Doubly-linked list/Definition#Fortran]] |
see [[Doubly-linked list/Definition#Fortran]] |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>Dim As Integer i, MiLista() |
|||
For i = 0 To Int(Rnd * 100)+25 |
|||
Redim Preserve MiLista(i) |
|||
MiLista(i) = Rnd * 314 |
|||
Next |
|||
'Tour from the beginning |
|||
For i = Lbound(MiLista) To Ubound(MiLista) |
|||
Print MiLista(i) |
|||
Next i |
|||
Print |
|||
'Travel from the end |
|||
For i = Ubound(MiLista) To Lbound(MiLista) Step -1 |
|||
Print MiLista(i) |
|||
Next i |
|||
Sleep</lang> |
|||
=={{header|Go}}== |
=={{header|Go}}== |
||