From 9e9a14c455445f33b11c72d06b3f674b29b49576 Mon Sep 17 00:00:00 2001
From: Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com>
Date: Sun, 21 Jun 2020 18:52:33 +0800
Subject: Add files via upload

---
 ch-1.pl | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 ch-1.pl

diff --git a/ch-1.pl b/ch-1.pl
new file mode 100644
index 0000000000..777de7f037
--- /dev/null
+++ b/ch-1.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+use strict;
+use List::Util qw/sum/;
+
+my $N;
+my $S;
+
+if ($ARGV[0] and $ARGV[1]) {
+    $N = $ARGV[0];
+    $S = $ARGV[1];
+}
+else {  #example
+    $N = 2;   
+    $S = 4;
+}
+
+
+sub digitsum {
+    my $candidate = $_[0];
+    my @digits = split //, $candidate;
+    return sum @digits;
+}
+
+sub is {
+    my $candidate = $_[0];
+    return 1 if $S == digitsum $candidate;
+    return 0; #return false
+}
+
+my $start = 10**($N-1);
+my $end = 10**$N - 1;
+
+for ($start..$end) {
+    print $_,"\n" if is($_);
+}
-- 
cgit