From e0136cce44281b819a7ca7ff5d098ea57202727b Mon Sep 17 00:00:00 2001
From: Julio <julio.dcs@gmail.com>
Date: Sun, 27 Sep 2020 03:18:38 +0200
Subject: Update ch-1.pl solution to work with bigints

---
 challenge-079/juliodcs/perl/ch-1.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/challenge-079/juliodcs/perl/ch-1.pl b/challenge-079/juliodcs/perl/ch-1.pl
index d88040dd85..7118f0aa83 100644
--- a/challenge-079/juliodcs/perl/ch-1.pl
+++ b/challenge-079/juliodcs/perl/ch-1.pl
@@ -38,9 +38,7 @@ sub next_number($number) {
 }
 
 sub calculate ( $number, $total = 0 ) {
-    if ( $number == 0 ) {
-        return $total % MODULE;
-    }
+    return $total % MODULE if $number == 0;
 
     # All bits besides the first need extra flips
     # extra flips are equal to the number itself
-- 
cgit