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

10 lines
112 B
Forth
Raw Permalink Blame History

2 base !
: utf8+ ( str -- str )
begin
char+
dup c@
11000000 and
10000000 <>
until ;
decimal
Reference in New Issue View Git Blame Copy Permalink