このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1339338438/366
#   
#  [1] プログラミング入門  
#  [2] 問題文 
#  画面に my name is ******と表示する 
#  プログラムを作成する。 
#  一文字ずつゆっくりと表示するには 
#  表示ごとにfor文で無駄なループを入れるとよい 
#   

'画面に my name is ******と表示するプログラムを作成する。一文字ずつゆっくりと表示するには表示ごとにfor文で無駄なループを入れるとよい'(_名前) :-
        '画面に my name is と表示する'(_名前).
        '画面に名前を ******と一文字ずつゆっくりと表示する'(_名前).

'画面に my name is と表示する' :-
        write('my name is ').

'画面に名前を ******と一文字ずつゆっくりと表示する'(_名前) :-
        画面に名前を一文字ずつ(_名前,_文字,_残り文字数),
        ゆっくりと,
        表示する(_文字),
        _残り文字数 = 0.

画面に名前を一文字ずつ(_名前,_文字,_残り文字数) :-
        sub_atom(_名前,_,1,_残り文字数,_文字).

ゆっくりと :-
        sleep(0.3).

表示する(_文字) :-
        writef('%t',[_文字]).