このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1311089619/51
#  [1] 授業単元:アルゴリズム 
#  [2] 問題文(含コード&リンク):片方向リストの最後に要素を追加するプログラムをさくせいしなさい。 
#  ただし連結リストの最後の要素をさすポインタを持っている時と持ってないときについて作成すること。 
#  

片方向リストの最後に要素を追加する(L1,E,L2) :-
        append(L1,[E],L2).

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

片方向リストの最後に要素を追加する([],E,[E]).
片方向リストの最後に要素を追加する([A|R1],E,[A|R2]) :-
        片方向リストの最後に要素を追加する(R1,E,R2).