如何在序言中用其他数字替换第一个和最后一个出现的数字

Question

repf(B,A,[A|Y],[B|Y]):-repf(B,A,Y,L),L=[B].
repf(B,A,[X|Y],L):- repf(B,A,Y,L1), L=[X|L1].

repf(B,A,[A],[B]).

如何使此代码将另一个值的第一个和最后一个出现替换为另一个？