10/02/07 06:34:42
>>624
% Prolog
'A[m][n]には値 (m+n) % 31が入っている'(A) :-
'A[m][n]には値 (m+n) % 31が入っている'(0,A),!.
'A[m][n]には値 (m+n) % 31が入っている'(M,[]) :- M > 31,!.
'A[m][n]には値 (m+n) % 31が入っている'(M,[L|R]) :-
'A[m][n]には値 (m+n) % 31が入っている'(M,0,L),
M2 is M + 1,
'A[m][n]には値 (m+n) % 31が入っている'(M2,R).
'A[m][n]には値 (m+n) % 31が入っている'(M,N,[]) :- N > 63,!.
'A[m][n]には値 (m+n) % 31が入っている'(M,N,[X|R]) :-
X is (M + N) mod 31,
N2 is N + 1,
'A[m][n]には値 (m+n) % 31が入っている'(M,N2,R),!.