Select Code to Download

$product = any(1, 2, 3) * any( 2, 3, 4);
print eigenvalues( $product );

$ideal = any(  
 all("tall", "rich", "handsome"),
...
  print "True love";
 }
}

sub factors 
{
...
 my $q = $n / any(2..$n-1);
 return eigenstates(floor($q)==$q);
}

sub factors 
{
...
  floor( $_ ) == $_
 } @q;
}