このディレクトリの索引
http://toro.2ch.net/test/read.cgi/tech/1276873238/816
#  すいません…テキストの問題なのですが何回やってもわかりません  
#  どなたか教えていただけませんか?  
#   
#  最初に「文字列を入力してください.」と表示して文字列を読みこみ、  
#  次に「確認のため、もう一度入力してください.」と表示して  
#  再び文字列を読み込み、二つの文字列が同じなら「OK」と表示して終了し、  
#  違っている場合は「文字列の照合に失敗しました.  
#  もう一度入力してください」と表示して、照合に成功するまで聞き続けるプログラムをex07-3-02.rbで保存して実行してください.  
#   
# 
# 

'最初に「文字列を入力してください.」と表示して文字列を読みこみ、次に「確認のため、もう一度入力してください.」と表示して再び文字列を読み込み、二つの文字列が同じなら「OK」と表示して終了し、違っている場合は「文字列の照合に失敗しました. もう一度入力してください」と表示して、照合に成功するまで聞き続ける'(_求める文字列) :-
        '最初に「文字列を入力してください.」と表示して文字列を読みこみ'(_最初の文字列),
        '次に「確認のため、もう一度入力してください.」と表示して再び文字列を読み込み'(_確認のための文字列),
        '二つの文字列が同じなら「OK」と表示して終了し、違っている場合は「文字列の照合に失敗しました. もう一度入力してください」と表示して、照合に成功するまで聞き続ける'(_最初の文字列,_確認のための文字列,_求める文字列).

'最初に「文字列を入力してください.」と表示して文字列を読みこみ'(_最初の文字列) :-
        write('文字列を入力してください. '),
        get_line(_最初の文字列).

'次に「確認のため、もう一度入力してください.」と表示して再び文字列を読み込み'(_確認のための文字列) :-
        write('確認のため、もう一度入力してください. '),
        get_line(_確認のための文字列),

'二つの文字列が同じなら「OK」と表示して終了し、違っている場合は「文字列の照合に失敗しました. もう一度入力してください」と表示して、照合に成功するまで聞き続ける'(_求める文字列,_求める文字列,_求める文字列) :-
        write('OK\n'),!.
'二つの文字列が同じなら「OK」と表示して終了し、違っている場合は「文字列の照合に失敗しました. もう一度入力してください」と表示して、照合に成功するまで聞き続ける'(_,_,_求める文字列) :-
        write('文字列の照合に失敗しました. もう一度入力してください\n'),
        '最初に「文字列を入力してください.」と表示して文字列を読みこみ、次に「確認のため、もう一度入力してください.」と表示して再び文字列を読み込み、二つの文字列が同じなら「OK」と表示して終了し、違っている場合は「文字列の照合に失敗しました. もう一度入力してください」と表示して、照合に成功するまで聞き続ける'(_求める文字列).