19 lines
404 B
Text
19 lines
404 B
Text
HOW TO RETURN look.and.say seq:
|
|
PUT "" IN result
|
|
PUT 0 IN n
|
|
PUT "" IN c
|
|
FOR ch IN seq:
|
|
SELECT:
|
|
c=ch:
|
|
PUT n+1 IN n
|
|
ELSE:
|
|
IF n>0: PUT result^"`n`"^c IN result
|
|
PUT 1 IN n
|
|
PUT ch IN c
|
|
RETURN result^"`n`"^c
|
|
|
|
PUT "1" IN item
|
|
|
|
FOR i IN {1..14}:
|
|
WRITE item/
|
|
PUT look.and.say item IN item
|