NestWhile[Rest@RotateLeft@# &, Range@10, Length@# > 1 &]
{5}
FixedPoint[If[Length@# > 1, Rest@RotateLeft[#], #] &, Range@10]
Dr. belisarius
- 116.2k
- 13
- 205
- 456