% Piotr Cerobski wart(X,Y) :- wart2(X, Y , []). wart2(["{"|X], Y, AK) :- andy(X, Y, AK). wart2(["["|X], Y, AK) :- ory(X, Y, AK). andy(["}" | X], 1, X). andy(X, W, A) :- wart2(X, W2, A2), andy(A2, W3, A), W is W2*W3. maxx(1,_,1). maxx(_,1,1). maxx(0,0,0). ory(["]" | X] , 0, X). ory(X, W, A) :- wart2(X, W2, A2), ory(A2, W3, A), maxx(W2,W3,W).