- Added solution to Nobel number.

1 files changed, 31 insertions, 0 deletions

diff --git a/challenge-050/mohammad-anwar/perl/ch-2.pl b/challenge-050/mohammad-anwar/perl/ch-2.pl
new file mode 100644
index 0000000000..ab8917c559
--- /dev/null
+++ b/challenge-050/mohammad-anwar/perl/ch-2.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use List::Util 1.54 qw(sample);
+
+my $COUNT = $ARGV[0] || 3;
+
+my @L = sort { $a <=> $b } sample ($COUNT, (1 .. 50));
+my $N = find_noble_number(@L);
+
+(defined $N)
+?
+(print "Found Noble number $N.\n")
+:
+(print "None Noble number found.\n");
+
+#
+#
+# METHOD
+
+sub find_noble_number {
+    my (@L) = @_;
+
+    foreach my $N (@L) {
+        return $N if (scalar( grep { $_ > $N } @L ) == $N);
+    }
+
+    return;
+}