Anonymous user
String matching: Difference between revisions
→{{header|Forth}}
Underscore (talk | contribs) (Added Haskell.) |
|||
Line 103:
int loc=s2.find(s3)//returns 0
loc=s2.find(s3,loc+1)//returns 2</lang>
=={{header|Clojure}}==
{{trans|Java}}
<lang clojure>(def evals '((. "abcd" startsWith "ab")
(. "abcd" endsWith "zn")
(. "abab" contains "bb")
(. "abab" contains "ab")
(. "abab" indexOf "bb")
(. "abab" indexOf "ab")
(. "abab" indexOf "ab" 1)))
user> (for [i evals] [i (eval i)])
([(. "abcd" startsWith "ab") true] [(. "abcd" endsWith "zn") false] [(. "abab" contains "bb") false] [(. "abab" contains "ab") true] [(. "abab" indexOf "bb") -1] [(. "abab" indexOf "ab") 0] [(. "abab" indexOf "ab" 1) 2])</lang>
=={{header|Forth}}==
| |||