16 lines
283 B
Text
16 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>
|