<div class="notebook"> <div class="nb-cell program" name="p1"> f([X|T],C):-nth0(C,X,0),(T==[];f(T,C);D is mod(C+1,2),f([X|T],D)). </div> <div class="nb-cell query" name="q1"> f([[0,1],[0,1],[0,0],[1,0],[1,0],[0,0],[0,1]],0) </div> </div>
<div class="notebook"> <div class="nb-cell program" name="p1"> f([X|T],C):-nth0(C,X,0),(T==[];f(T,C);D is mod(C+1,2),f([X|T],D)). </div> <div class="nb-cell query" name="q1"> f([[0,1],[0,1],[0,0],[1,0],[1,0],[0,0],[0,1]],0) </div> </div>