Anonymous user
Empty string: Difference between revisions
Added solution for Action!
Puppydrum64 (talk | contribs) m (→{{header|Z80 Assembly}}: relocated lang closer) |
(Added solution for Action!) |
||
Line 153:
To check if a string is empty:
<lang Lisp>(= (length str) 0)</lang>
=={{header|Action!}}==
<lang Action!>PROC CheckIsEmpty(CHAR ARRAY s)
PrintF("'%S' is empty? ",s)
IF s(0)=0 THEN
PrintE("True")
ELSE
PrintE("False")
FI
RETURN
PROC Main()
CHAR ARRAY str1,str2
str1=""
str2="text"
CheckIsEmpty(str1)
CheckIsEmpty(str2)
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Empty_string.png Screenshot from Atari 8-bit computer]
<pre>
'' is empty? True
'text' is empty? False
</pre>
=={{header|Ada}}==
| |||