RosettaCodeData/Task/Empty-string/Red/empty-string.red
2018-06-22 20:57:24 +00:00

6 lines
178 B
Text

Red []
s: copy "" ;; assign empty string
?? s
if empty? s [print "string is empty "] ;; check if string is empty
s: "abc"
prin s unless empty? s [print " not empty"]