20 lines
757 B
Plaintext
20 lines
757 B
Plaintext
#import system.
|
|
#import extensions.
|
|
|
|
#symbol compareStrings = (:val1 :val2)
|
|
[
|
|
(val1 == val2)? [ console writeLine:"The strings ":val1:" and ":val2:" are equal". ].
|
|
(val1 != val2)? [ console writeLine:"The strings ":val1:" and ":val2:" are not equal". ].
|
|
(val1 > val2)? [ console writeLine:"The string ":val1:" is lexically after than ":val2. ].
|
|
(val1 < val2)? [ console writeLine:"The string ":val1:" is lexically before than ":val2. ].
|
|
(val1 >= val2)? [ console writeLine:"The string ":val1:" is not lexically before than ":val2. ].
|
|
(val1 <= val2)? [ console writeLine:"The string ":val1:" is not lexically after than ":val2. ].
|
|
].
|
|
|
|
#symbol program =
|
|
[
|
|
#var s1 := "this".
|
|
#var s2 := "that".
|
|
compareStrings :s1 :s2.
|
|
].
|