mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Empty-string/Forth/empty-string.fth

4 lines
68 B
Forth
Raw Blame History

: empty? ( c-addr u -- ? ) nip 0= ;
s" " dup . empty? . \ 0 -1
Reference in New Issue View Git Blame Copy Permalink