>>208
いろんなやり方あるが

count([Item|Rest], Item, N):-!, count(Rest, Item, M), N is M + 1.
count([_|Rest], Item, N):-!, count(Rest, Item, N).
count(_, _, 0).

futatsu(List, Item):-count(List, Item, 2).

とか使うと簡単では？

３x３なら羅列してもできちゃうけど。