Empty string: Difference between revisions

m
→‎TXR Lisp: Drop @(do ...)
m (→‎{{header|Sidef}}: modified code to work with Sidef 2.10)
m (→‎TXR Lisp: Drop @(do ...))
Line 1,392:
====TXR Lisp====
 
<lang lisptxrlisp>@(dodefvarl (defvar *a* "")
 
(if (equal *a* "")
(format t "empty string\n"))
(setformat *a*t "nonemptyempty string\n"))
 
(if (zerop (length *a*))
(set a "nonempty")
(format t "guess what?\n")))</lang>
 
(if (zerop (length *a*))
(format t "emptyguess stringwhat?\n"))</lang>
 
=={{header|UNIX Shell}}==
543

edits