Help for this page
use List::Util qw{ sum }; sub L() { 0} # left ... my $score = abs( sum( @{ $ans[L] } ) - sum( @{ $ans[R] } ) ); return $score, $ans[L], $ans[R]; }
www.com | www.net | www.org
No recent polls found