Search a list: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 2,664: | Line 2,664: | ||
r = rfind("Zag",s) ?r -- 10 (last) |
r = rfind("Zag",s) ?r -- 10 (last) |
||
r = find("Zog",s) ?r -- 0 (none)</lang> |
r = find("Zog",s) ?r -- 0 (none)</lang> |
||
=={{header|Phixmonti}}== |
|||
<lang Phixmonti>"mouse" "hat" "cup" "deodorant" "television" |
|||
"soap" "methamphetamine" "severed cat heads" "cup" |
|||
pstack |
|||
stklen tolist reverse |
|||
0 tolist var t |
|||
"Enter string to search: " input var s nl |
|||
true |
|||
while |
|||
head s == if |
|||
len t swap 0 put var t |
|||
endif |
|||
tail nip len |
|||
endwhile |
|||
drop |
|||
t len not if |
|||
"String not found in list" print |
|||
else |
|||
reverse |
|||
"First index for " print s print " : " print 1 get print |
|||
len 1 > if |
|||
nl "Last index for " print s print " : " print len get print |
|||
endif |
|||
endif |
|||
drop</lang> |
|||
=={{header|PHP}}== |
=={{header|PHP}}== |
||