9 lines
253 B
Text
9 lines
253 B
Text
(function look-and-say n x
|
|
(return-when (empty? n) x)
|
|
(var digit (0 n)
|
|
[before after] ((juxt take-while skip-while) (= digit) n))
|
|
(recur after (strn x (len before) digit)))
|
|
|
|
(var result "1")
|
|
(loop 10 i
|
|
(print (var! result look-and-say)))
|