Select Code to Download

sub list_reduce {
  my ( $top, $bot ) = map [ grep $_ != 1, @$_ ], @_;
...
  my $gcd = Math::BigInt::bgcd( $top, $bottom );
  return ( $top/$gcd, $bottom/$gcd );
}