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

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

31:デフォルトの名無しさん
10/03/15 10:54:35
>>30
% Prolog 「10個の」をどう反映させればよいか解らない・・・

保存済みのメモ帳に書いてある10個の数字からランダムに5個読み取る(_保存済みのメモ帳,L) :-
　　　get_chars(_保存済みのメモ帳,Chars),
　　　findall(N,(for(1,M,5),数字にヒットするまでランダムにならびを探す(Chars,N)),L).

数字にヒットするまでランダムにならびを探す(L,N) :-
　　　length(L,Len),Len > 0,
　　　repeat,
　　　M is (random mod Len) + 1,
　　　list_nth(M,L,A),
　　　member(A,['0','1','2','3','4','5','6','7','8','9']),!.

次ページ

続きを表示

1を表示