Doubly-linked list/Traversal: Difference between revisions
Doubly-linked list/Traversal en FreeBASIC
(Doubly-linked list/Traversal en FreeBASIC) |
|||
Line 1,098:
=={{header|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}}==
| |||