added a version of the call without comments as the comments make it harder to view the "beauty" of the method

1 files changed, 6 insertions, 1 deletions

diff --git a/challenge-092/james-smith/perl/ch-1.pl b/challenge-092/james-smith/perl/ch-1.pl
index 7b6ce67bb0..43a1d4c5e3 100644
--- a/challenge-092/james-smith/perl/ch-1.pl
+++ b/challenge-092/james-smith/perl/ch-1.pl
@@ -31,6 +31,11 @@ sub iso {
       map { $m{$_}||=$x++ } ## Return letter from cache (or next letter)
       split m{}, $_         ## Split into individual characters
   } @_;
-  return $a eq $b ? 1 : 0;  ## Check to see if generated words are isomorphic
+  return $a eq $b || 0;  ## Check to see if generated words are isomorphic
+}
+
+sub iso_without_comments {
+  my ($a,$b) = map { my ($x,%m)='a'; join '', map { $m{$_}||=$x++ } split m{}, $_ } @_;
+  return $a eq $b || 0;
 }