RosettaCodeData/Task/Van-Eck-sequence/Zkl/van-eck-sequence-1.zkl
2023-07-01 13:44:08 -04:00

8 lines
242 B
Text

fcn vanEck(startAt=0){ // --> iterator
(startAt).walker(*).tweak(fcn(n,seen,rprev){
prev,t := rprev.value, n - seen.find(prev,n);
seen[prev] = n;
rprev.set(t);
t
}.fp1(Dictionary(),Ref(startAt))).push(startAt)
}