Search a list: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,660: / Line 2,660: @@
 while
     p acum + var acum
-    word print " located in position " print acum print nl
+    ( word " located in position " acum ) lprint nl
     len p - p 1 + swap slice nip
     search