My first post here, and also first try in golfing so this isn't too good ;)
$/=pop;$,=pop;for$i(0..15){
($_=sprintf'%04b',$i)=~s/(.)(.)(.)(.)/$1$2\n$3$4\n/;
y/01/.O/,print,last,if$/eq$1+$2.($3+$4)&&$,eq$1+$3.($2+$4)}
btw, how is the score calculated?
--
Markus Laire 'malaire' <[EMAIL PROTECTED]>
