22 lines
581 B
Plaintext
22 lines
581 B
Plaintext
( run-length
|
|
= character otherCharacter acc begin end
|
|
. :?acc
|
|
& 0:?begin
|
|
& @( !arg
|
|
: ?
|
|
[!begin
|
|
%@?character
|
|
?
|
|
[?end
|
|
( (%@:~!character:?otherCharacter) ?
|
|
& !acc !end+-1*!begin !character:?acc
|
|
& !otherCharacter:?character
|
|
& !end:?begin
|
|
& ~`
|
|
| &!acc !end+-1*!begin !character:?acc
|
|
)
|
|
)
|
|
& str$!acc
|
|
)
|
|
& run-length$WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW
|