% Piotr Mikulski alt(LISTA,0,LISTA). alt(LISTA,1,KONIEC) :- wart(LISTA,1,RESZTA), alt(RESZTA,_,KONIEC). alt(LISTA,W,KONIEC) :- wart(LISTA,0,RESZTA), alt(RESZTA,W,KONIEC). kon(LISTA,1,LISTA). kon(LISTA,W,KONIEC) :- wart(LISTA,1,RESZTA), kon(RESZTA,W,KONIEC). kon(LISTA,0,KONIEC) :- wart(LISTA,0,RESZTA), kon(RESZTA,_,KONIEC). wart(["["|LISTA],W,RESZTA) :- alt(LISTA,W,["]"|RESZTA]). wart(["{"|LISTA],W,RESZTA) :- kon(LISTA,W,["}"|RESZTA]). wart(LISTA,W) :- wart(LISTA,W,[]).