##
$ideal = any(
all("tall", "rich", "handsome"),
all("rich", "old"),
all("smart","Australian","rich")
);
while (@features = get_description) {
if (any(@features) eq $ideal) {
print "True love";
}
}
##
##
sub factors
{
my ($n) = @_;
my $q = $n / any(2..$n-1);
return eigenstates(floor($q)==$q);
}
##
##
sub factors
{
my ($n) = @_;
my @q = map { $n / $_ } (2..$n-1);
return grep {
floor( $_ ) == $_
} @q;
}