Question

用mathematica写程序回答下面的问题

围绕着山洞有10个洞, 一只兔子和一只狐狸分别住在洞里, 狐狸总想吃掉兔子, 一天兔子对狐狸说 : 你想吃掉我有一个条件, 先把洞顺序编号,
你从最后一个洞出发, 第一次先到第一个洞找我, 第二次隔一个洞找我, 第三次隔两个洞找我, 第四次隔三个洞找我, ...,
依次类推, 寻找次数不限; 我躲在一个洞里不动; 只要找到我就可以饱餐了.结果狐狸跑断了腿也没找到兔子, 请问兔子躲在哪个洞里?

Answer 1

又是这题
Complement[Range[10],
DeleteDuplicates[{1}~Join~
Reap[Block[{k = 3, t = 3},
While[! (k == 1 && t == 2), Sow[k]; k += t;
If[k >= 11, k -= 10]; t++; If[t == 10, t = 1]]]][[2, 1]]]]

追问

。。。。你的程序太难了，看不懂。。能简单点吗？？初学者伤不起

追答

........有不会的函数就去查帮助 reference.wolfram.com/language/ 帮助很全的，总能查到你要的东西。
总体思路就是从狐狸在3号洞时开始循环，然后再狐狸返回1号洞（同时下一目标是3号洞）时结束循环，累积循环过程中所有出现的k值，再把1加进去，然后求补集。