いろんな言語で宿題スレ第三編

いろんな言語で宿題ス ..

488:デフォルトの名無しさん
10/01/29 05:29:08
>>483
% Prolog 1:

'１：0～99 の 100 個の数字から異なる 30 個を選び，配列 COM[30] に格納する'(COM) :-
　　'COMを確保する'(COM),
　　'0～99 の 100 個の数字から異なる 30 個を選び，配列 COM[30] に格納する'([],COM).

'0～99 の 100 個の数字から異なる 30 個を選び，配列 COM[30] に格納する'(COM,COM) :- !.
'0～99 の 100 個の数字から異なる 30 個を選び，配列 COM[30] に格納する'(L1,COM) :-
　　'0～99の数字'(N),
　　\+(member(N,L1)),
　　'0～99 の 100 個の数字から異なる 30 個を選び，配列 COM[30] に格納する'([N|L1],COM),!.
'0～99 の 100 個の数字から異なる 30 個を選び，配列 COM[30] に格納する'(L1,COM) :-
　　'0～99 の 100 個の数字から異なる 30 個を選び，配列 COM[30] に格納する'(L1,COM),!.

'COMを確保する'(COM) :- length(COM,30).

'0～99の数字'(N) :- N is random mod 100.

次ページ

続きを表示

1を表示