RosettaCodeData/Task/String-length/Forth/string-length-2.fth

3 lines
35 B
Forth

S" string" ( addr len)
DUP . \ 6