Sawyer-suggested change

1 files changed, 3 insertions, 8 deletions

diff --git a/challenge-087/dave-jacoby/perl/ch-1.pl b/challenge-087/dave-jacoby/perl/ch-1.pl
index 7287e80475..b2bf9721a2 100644..100755
--- a/challenge-087/dave-jacoby/perl/ch-1.pl
+++ b/challenge-087/dave-jacoby/perl/ch-1.pl
@@ -53,14 +53,9 @@ sub lsc ( @array ) {
         # sequence and the current value is ready to fit into 
         # the current sequence.
 
-        # I feel a little bad for not writing the correct
-        # if without the else, but not _too_ bad.
-        if ( !$zed->[$n][-1] || $i == $zed->[$n][-1] + 1 ) { 
-            # this is intentionally empty
-        }
-        else {
-            $n++;
-        }
+        # thanks to Sawyer X for the more elegent way of
+        # saying if (conditions) {} else { code }
+        ( !$zed->[$n][-1] || $i == $zed->[$n][-1] + 1 ) or $n++;
         push $zed->[$n]->@*, $i;
     }