いろんな言語で宿題スレ

いろんな言語で宿題スレ at TECH

608:607
09/08/03 08:05:18
>>606 >>607 また違っていたようです。

t606_2(N,R,X) :-
　　Y is N-R+1,
　　findall(N1,for(N,N1,Y),L1),
　　findall(N2,for(R,N2,1),L2),
　　concat_atom(L1,'*',S1),
　　concat_atom(L2,'*',S2),
　　atom_to_term(S1,Term1,_),
　　atom_to_term(S2,Term2,_),
　　X is Term1 // Term2.

次ページ

続きを表示

1を表示