From c9b9e079f49982e2b4106c0dcd552b4fdbe92d90 Mon Sep 17 00:00:00 2001
From: James Smith <js5@sanger.ac.uk>
Date: Mon, 21 Nov 2022 21:00:17 +0000
Subject: Update ch-1.pl

---
 challenge-192/james-smith/perl/ch-1.pl | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/challenge-192/james-smith/perl/ch-1.pl b/challenge-192/james-smith/perl/ch-1.pl
index b2e18ab4be..c3066f12db 100644
--- a/challenge-192/james-smith/perl/ch-1.pl
+++ b/challenge-192/james-smith/perl/ch-1.pl
@@ -13,6 +13,7 @@ my @TESTS = (  [5,2],[4,3],[6,1] );
 is( binary_flip( $_->[0] ), $_->[1] ) for @TESTS;
 is( string_flip( $_->[0] ), $_->[1] ) for @TESTS;
 is( c_flip(      $_->[0] ), $_->[1] ) for @TESTS;
+is( c2_flip(     $_->[0] ), $_->[1] ) for @TESTS;
 done_testing();
 
 sub string_flip {
@@ -36,3 +37,13 @@ int c_flip(int n) {
   }
   return r;
 }
+
+int c2_flip(int n) {
+  int o = n;
+  int m = 1;
+  while(o>>=1) {
+    m<<=1;
+    m++;
+  }
+  return n^m;
+}
-- 
cgit