aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Empty-string/Forth/empty-string.fth
View file

@ -1,3 +1,6 @@
: empty? ( c-addr u -- ? ) nip 0= ;
\ string words operate on the address and count left on the stack by a string
\ ? means the word returns a true/false flag on the stack
s" " dup . empty? . \ 0 -1
: empty? ( c-addr u -- ? ) nip 0= ;
: filled? ( c-addr u -- ? ) empty? 0= ;
: ="" ( c-addr u -- ) drop 0 ; \ It's OK to copy syntax from other languages