14 lines
221 B
Text
14 lines
221 B
Text
(CharacterLength=
|
|
length c p
|
|
. 0:?length:?p
|
|
& @( !arg
|
|
: ?
|
|
( [!p %?c
|
|
& utf$!c:?k
|
|
& 1+!length:?length
|
|
)
|
|
([?p&~)
|
|
?
|
|
)
|
|
| !length
|
|
);
|