challange-331

Bug fix.

2 files changed, 16 insertions, 20 deletions

diff --git a/challenge-331/peter-meszaros/perl/ch-2.pl b/challenge-331/peter-meszaros/perl/ch-2.pl
index c4853609eb..df426bb1d6 100755
--- a/challenge-331/peter-meszaros/perl/ch-2.pl
+++ b/challenge-331/peter-meszaros/perl/ch-2.pl
@@ -48,7 +48,7 @@ my $cases = [
     [["fuck", "fcuk"], 1, "Example 1"],
     [["love", "love"], 0, "Example 2"],
     [["fodo", "food"], 1, "Example 3"],
-    [["feed", "feed"], 0, "Example 4"],
+    [["feed", "feed"], 1, "Example 4"],
 ];
 
 sub buddy_strings
@@ -57,17 +57,15 @@ sub buddy_strings
     my $target = $_[0]->[1];
 
     my $buddy = 0;
-    if (length($source) == length($target) and $source ne $target) {
+    if (length($source) == length($target)) {
         for my $i (0 .. length($source) - 1) {
-            if (substr($source, $i, 1) ne substr($target, $i, 1)) {
-                my $j = index($target, substr($source, $i, 1), $i + 1);
-                if ($j != -1 and substr($source, $j, 1) eq substr($target, $i, 1)) {
-                    if ($buddy) {
-                        $buddy = 0;
-                        last;
-                    }
-                    $buddy = 1;
+            my $j = index($target, substr($source, $i, 1), $i + 1);
+            if ($j != -1 and substr($source, $j, 1) eq substr($target, $i, 1)) {
+                if ($buddy) {
+                    $buddy = 0;
+                    last;
                 }
+                $buddy = 1;
             }
         }
     }
diff --git a/challenge-331/peter-meszaros/tcl/ch-2.tcl b/challenge-331/peter-meszaros/tcl/ch-2.tcl
index d486b2b3ae..a5ff2ffaf9 100755
--- a/challenge-331/peter-meszaros/tcl/ch-2.tcl
+++ b/challenge-331/peter-meszaros/tcl/ch-2.tcl
@@ -44,7 +44,7 @@ set cases {
     {{"fuck" "fcuk"} 1 "Example 1"}
     {{"love" "love"} 0 "Example 2"}
     {{"fodo" "food"} 1 "Example 3"}
-    {{"feed" "feed"} 0 "Example 4"}
+    {{"feed" "feed"} 1 "Example 4"}
 }
 
 proc buddy_strings {strs} {
@@ -52,17 +52,15 @@ proc buddy_strings {strs} {
     set target [lindex $strs 1]
 
     set buddy 0
-    if {[string length $source] == [string length $target] && $source ne $target} {
+    if {[string length $source] == [string length $target]} {
         for {set i 0} {$i < [string length $source]} {incr i} {
-            if {[string index $source $i] ne [string index $target $i]} {
-                set j [string first [string index $source $i] $target [expr $i + 1]]
-                if {$j != -1 && [string index $source $j] eq [string index $target $i]} {
-                    if {$buddy} {
-                        set buddy 0
-                        break
-                    }
-                    set buddy 1
+            set j [string first [string index $source $i] $target [expr $i + 1]]
+            if {$j != -1 && [string index $source $j] eq [string index $target $i]} {
+                if {$buddy} {
+                    set buddy 0
+                    break
                 }
+                set buddy 1
             }
         }
     }