From fe5f04e11db88e9cc57d20d5827396252efc0577 Mon Sep 17 00:00:00 2001
From: Fung Cheok Yin <61836418+E7-87-83@users.noreply.github.com>
Date: Tue, 5 May 2020 14:47:23 +0800
Subject: Rename ch-2.pl to challenge-059/cheok-yin-fung/perl/ch-2.pl

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

(limited to 'challenge-059')

diff --git a/challenge-059/cheok-yin-fung/perl/ch-2.pl b/challenge-059/cheok-yin-fung/perl/ch-2.pl
new file mode 100644
index 0000000000..420c20d172
--- /dev/null
+++ b/challenge-059/cheok-yin-fung/perl/ch-2.pl
@@ -0,0 +1,31 @@
+#!/usr/bin/perl
+use strict;
+use Test::Simple tests => 2;
+use List::Util qw/max sum/;
+
+#reference: https://www.tutorialspoint.com/perl/bitwise_operators_example.htm
+
+
+sub f {  # compare two bit-strings by xor
+    my $hint = ($_[0] ^ $_[1]) ;
+    my $ans = sum (split //, sprintf("%b", $hint));
+    return $ans;  
+}
+
+# first parameter: number of terms; remaining: terms in the list
+sub conclude {
+    my ($N, @val) = @_; 
+    my $sum = 0;
+    for my $i (0..$N-2) {
+       for my $j ($i+1..$N-1) {
+          $sum += f($val[$i], $val[$j]); 
+       }
+    }
+    return $sum; 
+}
+
+
+ok (conclude(3,2,3,4) == 6), "bad";
+ok (conclude(2,1,3)==1), "too bad";
+
+
-- 
cgit