いろんな言語で宿題スレ

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

326:デフォルトの名無しさん
09/07/02 08:49:55
>>319 ②
% Prolog

t319_2(X) :-
　　findall(U,(for(1,N,52),t319_2_1(N,U)),X).

t319_2_1(N,U) :-
　　M is N mod 13,
　　t319_2_2(M,U).

t319_2_2(1,'A') :- !.
t319_2_2(10,'T') :- !.
t319_2_2(11,'J') :- !.
t319_2_2(12,'Q') :- !.
t319_2_2(0,'K') :- !.
t319_2_2(N,N).

次ページ