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