このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1289913298/241
#  [1] 授業単元:プログラミング演習  
#  [2] 問題文(含コード&リンク) 
#  問題2
10から1までの整数の表示をするプログラムを、 while 文を使用して作成しなさい。 
#  < 実行例 > 
10 9 8 7 6 5 4 3 2 1 

'10から1までの整数の表示をするプログラムを、 while 文を使用して作成しなさい。' :-
        '10から1までの整数の表示をするプログラムを、 while 文を使用して作成しなさい。'(10,1),
        nl,!.

'10から1までの整数の表示をするプログラムを、 while 文を使用して作成しなさい。'(N,Min) :-
        while(N,Min).

while(N,Min) :- N < Min,!.
while(N,Min) :-
        write_formatted('%t ',[N]),
        N1 is N - 1,
        '10から1までの整数の表示をするプログラムを、 while 文を使用して作成しなさい。'(N1,Min).

% 結論として、while や 'do-while' を組込的なライブラリ述語に仕立てることは難しい。