このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1272006124/125
#  <問題> 
#  リストX, Y とZ を繋いだ結果をリストWに格納するプログラムtriple append(X,Y,Z,W) を作 
#  りなさい。 
#   

triple_append([],Y,Z,W) :- append(Y,Z,W). 
triple_append([A|X],Y,Z,[A|W]) :- triple_append(X,Y,Z,W).