8 lines
225 B
Text
8 lines
225 B
Text
(define str "WWWWWWWWWWWWBWWWWWWWWWWWWBBBWWWWWWWWWWWWWWWWWWWWWWWWBWWWWWWWWWWWWWW")
|
|
(print str)
|
|
|
|
(define rle (RLE str))
|
|
(for-each (lambda (pair)
|
|
(print (car pair) " : " (string (cdr pair))))
|
|
rle)
|
|
(print (decode rle))
|