6 lines
203 B
Forth
6 lines
203 B
Forth
|
: starts-with ( a l a2 l2 -- ? )
|
||
|
|
tuck 2>r min 2r> compare 0= ;
|
||
|
|
: ends-with ( a l a2 l2 -- ? )
|
||
|
|
tuck 2>r negate over + 0 max /string 2r> compare 0= ;
|
||
|
|
\ use SEARCH ( a l a2 l2 -- a3 l3 ? ) for contains
|