ch-2.pl « perl « dave-cross « challenge-050 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-050/dave-cross/perl/ch-2.pl

blob: 4e31842c85970347b6c74e57db920974e89d83aa (plain)

#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

die "No input given\n" unless @ARGV;

for my $i (@ARGV) {
  say "$i is a Noble Integer" if scalar (grep { $_ > $i } @ARGV) == $i;
}