Twelve statements: Difference between revisions

no edit summary
No edit summary
No edit summary
Line 1,214:
my @condition = (
sub { 0 }, # dummy sub for index 0
sub { (13==@_) ? 1 : 0 },
sub { (3==sum @_[7..12]) ? 1 : 0 },
sub { (2==sum @_[2,4,6,8,10,12]) ? 1 : 0 },
sub { ($_[5]) ? (($_[6] and $_[7])?1:0) : 1 },
sub { (!$_[2] and !$_[3] and !$_[4]) ? 1 : 0 },
sub { (4==sum @_[1,3,5,7,9,11]) ? 1 : 0 },
sub { ($_[2]==1-$_[3]) ? 1 : 0 },
sub { ($_[7]) ? (($_[5] and $_[6])?1:0) : 1 },
sub { (3==sum @_[1..6]) ? 1 : 0 },
sub { (2==sum @_[11..12]) ? 1 : 0 },
sub { (1==sum @_[7,8,9]) ? 1 : 0 },
sub { (4==sum @_[1..11]) ? 1 : 0 },
);
 
Anonymous user