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

---
 challenge-192/james-smith/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-192/james-smith/perl/ch-1.pl b/challenge-192/james-smith/perl/ch-1.pl
index bc94462d44..4a347bc343 100644
--- a/challenge-192/james-smith/perl/ch-1.pl
+++ b/challenge-192/james-smith/perl/ch-1.pl
@@ -15,6 +15,6 @@ done_testing();
 
 sub binary_flip {
   my($r,$k,$n) = (0,1,shift);
-  $r=(1-$n&1)*$k+$r,$k<<=1,$n>>=1 while $n;
+  $r|=(~$n&1)<<$k++, $n>>=1 while $n;
   $r;
 }
-- 
cgit