Merge pull request #522 from kianmeng/master

Add task 1 for weekly challenge 021

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-021/kian-meng-ang/perl5/ch-1.pl b/challenge-021/kian-meng-ang/perl5/ch-1.pl
new file mode 100644
index 0000000000..2019ac804d
--- /dev/null
+++ b/challenge-021/kian-meng-ang/perl5/ch-1.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+# vi:et:sw=4 ts=4 ft=perl
+
+use strict;
+use warnings;
+use utf8;
+use feature qw(say signatures);
+no warnings qw(experimental::signatures);
+
+# See https://en.wikipedia.org/wiki/E_(mathematical_constant)
+sub euler_number ($n) {
+    return (1 + 1 / $n) ** $n;
+}
+
+say euler_number(1_000_000);
+
+1;