Wordle comparison: Difference between revisions

Content added Content deleted

Inline

@@ Line 345: / Line 345: @@
    my ($aSet, $gSet, @return) = (answer,guess)».&{ (set .comb.pairs).SetHash };
-   for ($aSet ∩ $gSet).keys -> \common { # pair
+   (my \intersection = $aSet ∩ $gSet).keys».&{ @return[.key] = 'green' }
+   ($aSet,$gSet)».&{ $_ ∖= intersection } # purge common subset
-      @return[common.key] = 'green';
-      ($aSet,$gSet)».&{ .{common}:delete }
-   }
    for $gSet.keys.sort -> \trial { # pair