10/02/05 06:07:07
>>206
% Prolog (その二)
問題文は入力した五つの中から10題がランダムに出題される(N,_,[]) :- N > 10,!.
問題文は入力した五つの中から10題がランダムに出題される(N,_問題集,[_問題|R]) :-
M is (random mod 5) + 1,
list_nth(M,_問題集,_問題),
N2 is N + 1,
問題文は入力した五つの中から10題がランダムに出題される(N2,_問題集,R).
タイプ練習([],0) :- !.
タイプ練習([_問題文|R],_正解数) :-
write_formatted('%t\n',[_問題文]),get_line(Line),
_問題文 = Line,
タイプ練習(R,_正解数2),
_正解数 is _正解数2 + 1,!.
タイプ練習([_|R],_正解数) :- タイプ練習(R,_正解数).