From 50a865fbddb2741e37c4b2bef361d8323094ad58 Mon Sep 17 00:00:00 2001
From: "Kian-Meng, Ang" <kianmeng@cpan.org>
Date: Sun, 18 Aug 2019 15:00:48 +0800
Subject: Add task 1 for weekly challenge 021

---
 challenge-021/kian-meng-ang/perl5/ch-1.pl | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 challenge-021/kian-meng-ang/perl5/ch-1.pl

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;
-- 
cgit