15 lines
261 B
Text
15 lines
261 B
Text
chain: UTF8'
|
|
{{
|
|
: utf+ ( $-$ )
|
|
[ 1+ dup @ %11000000 and %10000000 = ] while ;
|
|
|
|
: count ( $-$ )
|
|
0 !here
|
|
repeat dup @ 0; drop utf+ here ++ again ;
|
|
---reveal---
|
|
: getLength ( $-n )
|
|
count drop @here ;
|
|
}}
|
|
;chain
|
|
|
|
"møøse" ^UTF8'getLength putn
|