RosettaCodeData/Task/Van-Eck-sequence/Mathematica/van-eck-sequence.math
2023-07-01 13:44:08 -04:00

1 line
146 B
Text

TakeList[Nest[If[MemberQ[#//Most, #//Last], Join[#, Length[#] - Last@Position[#//Most, #//Last]], Append[#, 0]]&, {0}, 999], {10, -10}] // Column