use strict;
use warnings;
use Data::Dumper;
use Func;

print any(1..6) > all(1..3,5) , "\n";

my @numbers = (1..10);
print any(@numbers) >= all(@numbers), "\n";

my $t = all('a' .. 'z') ne all('g','a','b');
print "These matched: $t \n" if $t;
print "These caused the failure: $t\n" unless $t;

my @admins = ("eric","wappoo","tony");

my $test = any(@admins);

print "You are an admin.\n" if any(@admins) eq "eric";
print "There are scores over 5\n" if any(1 .. 5, 10) > 5;
print "All scores are over 0\n" if all(1 .. 5, 10) > 0;

print "Some scores are over last times scores \n" if any(1 .. 5, 10) > all(3..7);

print "No scores are over 100\n" if none(1 .. 5, 10) > 100;

print "Any 1..10 = " . any(1..10) . "\n";
print "All 1..10 = " . all(1..10) . "\n";

print "Any " . any( qw/hi hello dude cool/ ) . "\n";