19 lines
588 B
Factor
19 lines
588 B
Factor
USING: ascii math.order sorting.human ;
|
|
|
|
IN: scratchpad "foo" "bar" = . ! compare for equality
|
|
f
|
|
IN: scratchpad "foo" "bar" = not . ! compare for inequality
|
|
t
|
|
IN: scratchpad "foo" "bar" before? . ! lexically ordered before?
|
|
f
|
|
IN: scratchpad "foo" "bar" after? . ! lexically ordered after?
|
|
t
|
|
IN: scratchpad "Foo" "foo" <=> . ! case-sensitive comparison
|
|
+lt+
|
|
IN: scratchpad "Foo" "foo" [ >lower ] bi@ <=> . ! case-insensitive comparison
|
|
+eq+
|
|
IN: scratchpad "a1" "a03" <=> . ! comparing numeric strings
|
|
+gt+
|
|
IN: scratchpad "a1" "a03" human<=> . ! comparing numeric strings like a human
|
|
+lt+
|