17 lines
283 B
Text
17 lines
283 B
Text
|
#import std
|
||
|
|
#import nat
|
||
|
|
|
||
|
|
encode = (rlc ==); *= ^lhPrNCT\~&h %nP+ length
|
||
|
|
|
||
|
|
decode = (rlc ~&l-=digits); *=zyNCXS ^|DlS/~& iota+ %np
|
||
|
|
|
||
|
|
test_data = 'WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW'
|
||
|
|
|
||
|
|
#show+
|
||
|
|
|
||
|
|
example =
|
||
|
|
|
||
|
|
<
|
||
|
|
encode test_data,
|
||
|
|
decode encode test_data>
|