09/07/02 09:03:32
>>319 ③
% Prolog
t319_3(X) :-
findall(U,(for(1,N,52),t319_3_1(N,U)),X).
t319_3_1(N,U) :-
M is N mod 13,
M2 is (N - 1) // 13,
t319_2_2(M,U1),
t319_2_3(M2,U2),
atom_concat(U1,U2,U).
t319_2_3(0,s).
t319_2_3(1,h).
t319_2_3(2,d).
t319_2_3(3,c).
% どこでswapを使うのかわからない!
% これからカードを「切る」課題でも出てくるのだろうか。