13 lines
480 B
Text
13 lines
480 B
Text
/# Rosetta Code problem: https://rosettacode.org/wiki/String_comparison
|
|
by Galileo, 11/2022 #/
|
|
|
|
include ..\Utilitys.pmt
|
|
|
|
"Pete" >ps
|
|
|
|
"pete" tps == if "The strings are equal" ? endif
|
|
"pete" tps != if "The strings are not equal" ? endif
|
|
tps "pete" < if ( tps " is lexically first" ) lprint nl endif
|
|
tps "pete" > if ( tps " is lexically last" ) lprint nl endif
|
|
tps upper "pete" upper == if "case insensitive match" ? endif
|
|
ps> lower "pete" find if "petes in there somewhere" ? endif
|