#!/usr/bin/perl

use 5.040;

my @p = qw( 0.1 0.5 0.9 1.1 2 2.1 3 3.1 100 10000);
my $pi = 4*atan2(1,1);
push @p, $pi;
my $e = exp(1);
push @p, $e;

# La hipótesis es que menor^mayor > mayor^menor
# luego solo busco las excepciones 

my ($menor , $mayor);
say "Excepción de ejemplo: menor ^ mayor < mayor ^ menor";
for my $x (@p){
    for my $y (@p){
	next if $x == $y;
	$menor = ($x < $y) ? $x : $y;
	$mayor = ($x > $y) ? $x : $y;
	if ( $menor ** $mayor < $mayor ** $menor) {
	    say "Excepción: $menor ^ $mayor < $mayor ^ $menor";
	}
    }
}

exit 2;