我知道互联网上还有其他解决方案，但为什么不是我的工作？
find_thing(1,[H | _T], H) :- !.
find_thing(2, [_H, M | _T], M) :- !.
find_thing(X,[_H | T], S) :- X >= 3, X1 is (X - 1), at_positon(X1, T, S).
find_thing（2，[1,2,3]，X）有效，我的编译器说，当我使用find_thing（3，[1,2,3]，X）时，它会在调用find_thing之类的东西时崩溃（2，[1,2,3] _2840）。
让它知道
Application.Caller正在给出类似的结果