このディレクトリの索引
#  twitter_by_@mog_shi_20140225
#  
#            【ググった?】
#       /      \
#     YES        NO
#    /            \
#  【見つかった?】       死ね
#    |    |
#    YES   NO
#    |     \
#  じゃあ聞くな  なら、無ぇよ
#  

%  
%  ?- ググリ信仰(_御託宣).
%  ググッた? YES
%  見つかった? NO
%  _御託宣 = じゃ、無ぇよ.
%  true.
%  ?- 

ググリ信仰(_御託宣) :-
        '【ググった?】'(_答え),
        ググッた(_答え,_御託宣).

ググッた('YES',_御託宣) :-
        '【見つかった?】'(_答え),
        見つかった(_答え,_御託宣),!.
ググッた('NO','死ね').

見つかった('YES',じゃあ聞くな).
見つかった('NO','なら、無ぇよ').

'【ググった?】'(_答え) :-
        write('ググった? '),
        get_line(_答え),
        member(_答え,['YES','NO']),!.
'【ググった?】'(_答え) :-
        '【ググった?】'(_答え).

'【見つかった?】'(_答え) :-
        write('見つかった? '),
        get_line(_答え),
        member(_答え,['YES','NO']),!.
'【見つかった?】'(_答え) :-
        '【見つかった?】'(_答え).


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

get_line(X) :-
        get_char(C),
        get_line_1(C,Chars),
        atom_chars(X,Chars).

get_line_1('\n',[]) :- !.
get_line_1(end_of_file,[e,n,d,'_',o,f,'_',f,i,l,e]) :- !.
get_line_1(C,[C|R]) :-
        get_char(C2),
        get_line_1(C2,R).