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

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

いろんな言語で宿題スレ第三編 - 暇つぶし2ch688:デフォルトの名無しさん
10/02/11 19:06:48
>>686
% Prolog

main:-for(1,N,100),(q(N),u(N)->A='A';q(N)->A='B';u(N)->A='C';A=N),write(A),nl,N
=100.
q(N):-0 is N mod 5.
u(N):-0 is N mod 9.

次ページ

続きを表示

1を表示