11 lines
385 B
Text
11 lines
385 B
Text
/# Rosetta Code problem: https://rosettacode.org/wiki/String_prepend
|
|
by Galileo, 11/2022 #/
|
|
|
|
include ..\Utilitys.pmt
|
|
|
|
"the last thing the man said was the" "the" pstack
|
|
len var l >ps
|
|
1 l slice tps == if "Begins with keyword" ? endif
|
|
0 l - l slice tps == if "Ends with keyword" ? endif
|
|
tail ps> find dup if "Keyword appears first at " print 1 + print " position" ? else drop endif
|
|
drop
|