all tasks

Task/String-length/Forth/string-length-1.fth

@@ -0,0 +1,3 @@
+CREATE s ," Hello world" \ create string "s"
+s C@ ( -- length=11 )
+s COUNT  ( addr len )   \ convert to a stack string, described below

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

@@ -0,0 +1,2 @@
+S" string" ( addr len)
+DUP .   \ 6

Task/String-length/Forth/string-length-3.fth

@@ -0,0 +1,9 @@
+2 base !
+: utf8+ ( str -- str )
+  begin
+    char+
+    dup c@
+    11000000 and
+    10000000 <>
+  until ;
+decimal

Task/String-length/Forth/string-length-4.fth

@@ -0,0 +1,8 @@
+: count-utf8 ( zstr -- n )
+  0
+  begin
+    swap dup c@
+  while
+    utf8+
+    swap 1+
+  repeat drop ;