#! perl -w
use strict;

local ($,=" - ", $\="\n");

use Quantum::Superpositions;
sub min { eigenstates( any(@_) <= all(@_) ) }
sub max { eigenstates( any(@_) >= all(@_) ) }


my @array = qw/ 10 15 20 10 7 4 /;
my $t1 = all();
print $t1;
my $t2 = max(@array);
print $t2;
print max(@array), ($t1 = max(@array)), $t2;

__DATA__
# Ouput 
C:\test>180278
all()
1
20 - 1 - 1