16 lines
398 B
Text
16 lines
398 B
Text
* # Encode RLE
|
|
define('rle(str)c,n') :(rle_end)
|
|
rle str len(1) . c :f(return)
|
|
str span(c) @n =
|
|
rle = rle n c :(rle)
|
|
rle_end
|
|
|
|
* # First m members of sequence with seed n
|
|
define('looksay(n,m)') :(looksay_end)
|
|
looksay output = n; m = gt(m,1) m - 1 :f(return)
|
|
n = rle(n) :(looksay)
|
|
looksay_end
|
|
|
|
* Test and display
|
|
looksay(1,10)
|
|
end
|