13 lines
492 B
Text
13 lines
492 B
Text
to indexof :item :list
|
|
if empty? :list [(throw "NOTFOUND 0)]
|
|
if equal? :item first :list [output 1]
|
|
output 1 + indexof :item butfirst :list
|
|
end
|
|
|
|
to showindex :item :list
|
|
make "i catch "NOTFOUND [indexof :item :list]
|
|
ifelse :i = 0 [(print :item [ not found in ] :list)] [(print :item [ found at position ] :i [ in ] :list)]
|
|
end
|
|
|
|
showindex "dog [My dog has fleas] ; dog found at position 2 in My dog has fleas
|
|
showindex "cat [My dog has fleas] ; cat not found in My dog has fleas
|