24/05/07 05:31:13.42 H7owo3Tu.net
>>912
知らない関数がでてきたので仕様と解法のアルゴリズムを理解するために、
小さな数にして途中経過を表示させてみました。
For[a=1/6;buff={},FreeQ[buff,a],a=FractionalPart[2*a],Print[FreeQ[buff,a]];Print[a];Print[buff];AppendTo[buff,a];Print[buff];Print["\n"]]
FreeQ[buff,a]
a
buff
Position[buff,a]
Length[buff]-Position[buff,a][[1]][[1]]+1
エレガントな解法に感服。
他の人のコードを読むのは勉強になります。
今後とも御助言をよろしくお願いします。