7 lines
291 B
Forth
7 lines
291 B
Forth
: str-eq ( str len str len -- ? ) compare 0= ;
|
|
: str-neq ( str len str len -- ? ) compare 0<> ;
|
|
: str-lt ( str len str len -- ? ) compare 0< ;
|
|
: str-gt ( str len str len -- ? ) compare 0> ;
|
|
: str-le ( str len str len -- ? ) compare 0<= ;
|
|
: str-ge ( str len str len -- ? ) compare 0>= ;
|