Linked List Attempt
12345678910111213141516171819202122232425262728293031323334
type
Node = ref object of RootObj
prev, next: Node
data: string
List = ref object of RootObj
starting, ending: Node
count: int
proc addItem( list: List, val: string ): int =
if list.count == 0:
list.starting = Node( prev: nil, next: nil, data: val )
list.starting.data = val
list.ending = list.starting
else:
list.ending.next = Node( prev: nil, next: nil, data: val )
list.ending.next.prev = list.ending
list.ending = list.ending.next
list.count += 1
result = list.count
iterator items( list: List ): string =
var itr = list.starting
while itr != nil:
yield itr.data
itr = itr.next
if isMainModule:
var list: List = List( starting: nil, ending: nil, count: 0 )
echo addItem( list, "hello" )
echo addItem( list, "world" )
for item in list:
echo item
Nim
INFO