メモリ使用量と速度を上げる方法もありますが。
ある座標を基に、縦横斜めで計算に成功したもののリストを得てそれをソートしてリバースすれば解です。
set(X):-
X=[[08,02,22,97,38,15,00,40,00,75,04,05,07,78,52,12,50,77,91,08],
[49,49,99,40,17,81,18,57,60,87,17,40,98,43,69,48,04,56,62,00],
[81,49,31,73,55,79,14,29,93,71,40,67,53,88,30,03,49,13,36,65],
[52,70,95,23,04,60,11,42,69,24,68,56,01,32,56,71,37,02,36,91],
[22,31,16,71,51,67,63,89,41,92,36,54,22,40,40,28,66,33,13,80],
[24,47,32,60,99,03,45,02,44,75,33,53,78,36,84,20,35,17,12,50],
[32,98,81,28,64,23,67,10,26,38,40,67,59,54,70,66,18,38,64,70],
[67,26,20,68,02,62,12,20,95,63,94,39,63,08,40,91,66,49,94,21],
[24,55,58,05,66,73,99,26,97,17,78,78,96,83,14,88,34,89,63,72],
[21,36,23,09,75,00,76,44,20,45,35,14,00,61,33,97,34,31,33,95],
[78,17,53,28,22,75,31,67,15,94,03,80,04,62,16,14,09,53,56,92],
[16,39,05,42,96,35,31,47,55,58,88,24,00,17,54,24,36,29,85,57],
[86,56,00,48,35,71,89,07,05,44,44,37,44,60,21,58,51,54,17,58],
[19,80,81,68,05,94,47,69,28,73,92,13,86,52,17,77,04,89,55,40],
[04,52,08,83,97,35,99,16,07,97,57,32,16,26,26,79,33,27,98,66],
[88,36,68,87,57,62,20,72,03,46,33,67,46,55,12,32,63,93,53,69],
[04,42,16,73,38,25,39,11,24,94,72,18,08,46,29,32,40,62,76,36],
[20,69,36,41,72,30,23,88,34,62,99,69,82,67,59,85,74,04,36,16],
[20,73,35,29,78,31,90,01,74,31,49,71,48,86,81,16,23,57,05,54],
[01,70,54,71,83,51,54,69,16,92,33,48,61,43,52,01,89,19,67,48]].
area([[0,0],[1,0],[2,0],[3,0]]).
area([[0,0],[0,1],[0,2],[0,3]]).
area([[0,0],[1,1],[2,2],[3,3]]).
area([[0,0],[-1,1],[-2,2],[-3,3]]).
calcE(_,_,_,[],Mult,Mult):-!.
calcE(Mat,X,Y,[[Dx,Dy]|Rest],Mult,Result):-
X1 is X+Dx,
Y1 is Y+Dy,
nth0(Y1,Mat,Row),
nth0(X1,Row,K),
Mult1 is Mult*K,
calcE(Mat,X,Y,Rest,Mult1,Result).
calc(E):-
set(Mat),
between(0,19,X),
between(0,19,Y),
area(Ds),
calcE(Mat,X,Y,Ds,1,E).
main:-
findall(E,calc(E),Es),
sort(Es,Es1),
reverse(Es1,[Ans|_]),
write(Ans).
リスト操作にこだわって書いた見たパターン。
拡張性もわかりやすさも保守性もなくコードも冗長。
こんなのを書くくらいならスピードを犠牲にしてリストを配列に見立てるほうが良い.
原理主義はよくないということがこんな簡単な問題からも浮き彫りになる。
data(Mat):-Mat=[[8,02,22,97,38,15,00,40,00,75,04,05,07,78,52,12,50,77,91,08],
[49,49,99,40,17,81,18,57,60,87,17,40,98,43,69,48,04,56,62,00],
[81,49,31,73,55,79,14,29,93,71,40,67,53,88,30,03,49,13,36,65],
[52,70,95,23,04,60,11,42,69,24,68,56,01,32,56,71,37,02,36,91],
[22,31,16,71,51,67,63,89,41,92,36,54,22,40,40,28,66,33,13,80],
[24,47,32,60,99,03,45,02,44,75,33,53,78,36,84,20,35,17,12,50],
[32,98,81,28,64,23,67,10,26,38,40,67,59,54,70,66,18,38,64,70],
[67,26,20,68,02,62,12,20,95,63,94,39,63,08,40,91,66,49,94,21],
[24,55,58,05,66,73,99,26,97,17,78,78,96,83,14,88,34,89,63,72],
[21,36,23,09,75,00,76,44,20,45,35,14,00,61,33,97,34,31,33,95],
[78,17,53,28,22,75,31,67,15,94,03,80,04,62,16,14,09,53,56,92],
[16,39,05,42,96,35,31,47,55,58,88,24,00,17,54,24,36,29,85,57],
[86,56,00,48,35,71,89,07,05,44,44,37,44,60,21,58,51,54,17,58],
[19,80,81,68,05,94,47,69,28,73,92,13,86,52,17,77,04,89,55,40],
[04,52,08,83,97,35,99,16,07,97,57,32,16,26,26,79,33,27,98,66],
[88,36,68,87,57,62,20,72,03,46,33,67,46,55,12,32,63,93,53,69],
[04,42,16,73,38,25,39,11,24,94,72,18,08,46,29,32,40,62,76,36],
[20,69,36,41,72,30,23,88,34,62,99,69,82,67,59,85,74,04,36,16],
[20,73,35,29,78,31,90,01,74,31,49,71,48,86,81,16,23,57,05,54],
[01,70,54,71,83,51,54,69,16,92,33,48,61,43,52,01,89,19,67,48]].
big(X,Y,X):-X>Y,!.
big(_,Y,Y).
g([],[]):-!.
g([X|Y],[X1|Y1]):-
reverse(X,X1),
g(Y,Y1).
r(X,X).
r(X,X1):-g(X,X1).
f(X,X).
f(X,[A,B,C,D]):-r(X,[A,[_|B],[_,_|C],[_,_,_|D]]).
h([_,_,_,[]],Res,Res):-!.
h([[X|X1],[Y|Y1],[Z|Z1],[A|A1]],Max,Res):-
Max1 is X*Y*Z*A,
big(Max1,Max,Max2),
h([X1,Y1,Z1,A1],Max2,Res).
i([_,_,_],Res,Res):-!.
i([X,Y,Z,A|R],Max,Res):-
Max1 is X*Y*Z*A,
big(Max,Max1,Max2),
i([Y,Z,A|R],Max2,Res).
j(Mat,Res):-
member(E,Mat),
i(E,0,Res).
j(Mat,Res):-
append(_,[A,B,C,D|_],Mat),
E=[A,B,C,D],
f(E,E1),
h(E1,0,Res).
main:- data(Mat),
findall(E,j(Mat,E),Es),
length(Es,L),
write([L]),
sort(Es,Es1),
reverse(Es1,[Ans|_]),
write(Ans).
最終更新：2016年12月16日 11:16
