Select Code to Download

%%writefile raku-zebra-puzzle-002.raku
use trace;
my Hash @houses = (1 .. 5).map: { %(:num($_)) }; # 1 there are five ho
+uses
...
sub plausible(%house, %props) {
   ! %props.first: {%house{.key} && %house{.key} ne .value };
}

2 (/content/raku-zebra-puzzle-002.raku line 2)
my Hash @houses = (1 .. 5).map: { %(:num($_)) }
3 (/content/raku-zebra-puzzle-002.raku line 2)
...
  in sub solve at raku-zebra-puzzle-002.raku line 43
  in sub MAIN at raku-zebra-puzzle-002.raku line 24
  in block <unit> at raku-zebra-puzzle-002.raku line 78