RosettaCodeData/Task/String-length/Factor/string-length-1.factor

: string-byte-length ( string -- n ) [ code-point-length ] map-sum ;
: string-byte-length-2 ( string -- n ) utf8 encode length ;