このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1362715265/22
'可変長のリストの入力に対して固定長のリストを出力したいのですが 
足りない部分を先頭の要素から0で埋めようと思います'(_可変長リスト,_固定長リストの長さ) :-
        length(_固定長リスト,_固定長リストの長さ),
        append(_足りない部分のリスト,_可変長リスト,_固定長リスト),
        '0で埋める'(_足りない部分のリスト),
        write(_固定長リスト).

'0で埋める'([]).
'0で埋める'([0|_残りリスト]) :-
        '0で埋める'(_残りリスト).