Search a list: Difference between revisions
Content added Content deleted
Line 2,660: | Line 2,660: | ||
while |
while |
||
p acum + var acum |
p acum + var acum |
||
word |
( word " located in position " acum ) lprint nl |
||
len p - p 1 + swap slice nip |
len p - p 1 + swap slice nip |
||
search |
search |