menu.pl
usato nel compito CLP del 22 giugno 2011
menu.pl — text/x-perl, 258 bytes
Contenuto del file
menu([1,1,0,0,0,1],10). menu([0,1,1,0,1,0],8). menu([1,0,1,0,0,1],10). menu([0,0,1,1,0,0],7). menu([0,0,1,1,1,0],11). menu([1,0,0,0,0,0],5). menu([0,1,0,0,0,0],5). menu([0,0,1,0,0,0],5). menu([0,0,0,1,0,0],5). menu([0,0,0,0,1,0],4). menu([0,0,0,0,0,1],3).