12 lines
224 B
Text
12 lines
224 B
Text
pointer(struct item scalar) scalar list_get(struct list scalar a,
|
|
real scalar n) {
|
|
|
|
pointer(struct item scalar) scalar p
|
|
real scalar i
|
|
|
|
p = a.head
|
|
for (i = 1; p != NULL & i < n; i++) {
|
|
p = (*p).next
|
|
}
|
|
return(p)
|
|
}
|