From 43b76abbd0ba488c396459014495263687d24207 Mon Sep 17 00:00:00 2001
From: CY Fung <fungcheokyin@gmail.com>
Date: Mon, 27 Jun 2022 23:25:12 +0800
Subject: Wk 171 Task 2

---
 challenge-171/cheok-yin-fung/perl/ch-2.pl | 55 +++++++++++++++++++++++++++++++
 1 file changed, 55 insertions(+)
 create mode 100644 challenge-171/cheok-yin-fung/perl/ch-2.pl

diff --git a/challenge-171/cheok-yin-fung/perl/ch-2.pl b/challenge-171/cheok-yin-fung/perl/ch-2.pl
new file mode 100644
index 0000000000..8a5e40c578
--- /dev/null
+++ b/challenge-171/cheok-yin-fung/perl/ch-2.pl
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+# The Weekly Challenge 171
+# Task 2 First-class Function
+use v5.30.0;
+use warnings;
+
+sub compose {
+    my $f = $_[0];
+    my $g = $_[1];
+    return sub {
+        return $f->($g->(@_));
+    }
+}
+
+
+sub multiply {
+    return sub {
+        my $prod = $_[0]*$_[1];
+        return $prod;
+    }
+}
+
+
+sub add {
+    return sub {
+        my $sum = $_[0]+$_[1];
+        return $sum;
+    }
+}
+
+
+sub inc {
+    return sub {
+        my $sum = $_[0]+1;
+        return $sum;
+    }
+}
+
+
+sub double {
+    return sub {
+        my $prod = $_[0]*2;
+        return $prod;
+    }
+}
+
+
+
+use Test::More tests => 9;
+
+for (3..10) {
+    ok compose(double, inc)->($_) == double->(inc->($_));
+}
+
+ok compose(double, multiply)->(4, 25) == 200;
-- 
cgit