Anonymous user
String matching: Difference between revisions
add language: Retro
m (→{{header|PureBasic}}: copy/paste error....) |
(add language: Retro) |
||
Line 149:
loc = "abab".find("ab",loc+1) #returns 2
</lang>
=={{header|Retro}}==
<lang Retro>with strings'
: startsWith? ( $1 $2 - f )
dup getLength [ swap ] dip 0 swap getSubset compare ;
"abcdefghijkl" "abcde" startsWith?
"abcdefghijkl" "bcd" startsWith?
"abcdefghijkl" "bcd" search
"abcdefghijkl" "zmq" search
: endsWith? ( $1 $2 - f )
swap dup getLength + over getLength - compare ;
"abcdefghijkl" "ijkl" endsWith?
"abcdefghijkl" "abc" endsWith?</lang>
=={{header|Tcl}}==
| |||