Anonymous user
Kolakoski sequence: Difference between revisions
m
→{{header|zkl}}: get rid of variables
(→{{header|zkl}}: rewrite) |
m (→{{header|zkl}}: get rid of variables) |
||
Line 340:
{{trans|Python}}
<lang zkl>fcn kolakoski(start_items=List(1,2), length=20){ //-->List
s,rk,cw := List(), Ref(0), Walker.cycle(start_items).next;▼
Walker.tweak(fcn(s,rk,cw){ // infinite iterator
s.append( c_next:=cw() );
sk:=s[rk.inc()]; // inc returns previous value, ie k++
if(sk>1) s.extend((List.createLong(sk - 1,c_next))); // list of sk cn's
sk // where we are in s, not end of s
}</lang>
<lang zkl>fcn _run_len_encoding(truncated_series){ //List-->List
| |||