いろんな言語で宿題第四編

いろんな言語で宿題第四編 at TECH

35:デフォルトの名無しさん
10/03/15 17:37:53
>>34
% Prolog

十行の数値が書かれたメモ帳を保存し、このファイルから5個の数値をランダムに取り出す(_保存済みのメモ帳,_5個の数値ならび) :-
　　　get_lines(_保存済みのメモ帳,Lines),
　　　findall(N,(for(1,M,5),ならびからランダムに数値を取り出す(Lines,N)),_5個の数値ならび).

ならびからランダムに数値を取り出す(L,N) :-
　　　length(L,Len),Len > 0,
　　　repeat,
　　　M is (random mod Len) + 1,
　　　list_nth(M,Lines,A),
　　　atom_to_term(A,N,_),
　　　number(N),!.

次ページ

続きを表示

1を表示