このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1306768580/535
#  要素数7のリストで6番目からスタートして最後まで来たら最初に戻り5番目を取り出して終わる 
#   

'要素数7のリストで6番目からスタートして最後まで来たら最初に戻り5番目を取り出して終わる'(_要素,_要素数7のならび) :-
        length([_|Ln],6),
        append(L0,[A|R],_要素数7のならび),
        append([A|R],L0,L2),
        append(_,[_要素|_],L2).