Revision as of 02:31, 16 January 2019 view source rosettacode>Dwarring →‎{{header\|Perl 6}}: rename consider() -> choices() ← Older edit		Revision as of 02:50, 16 January 2019 view source rosettacode>Dwarring m →‎{{header\|Perl 6}}: tweak solve() muti subs Newer edit →
Line 4,916: #\| found a solution that fits all the facts multi sub solve(@~~houses~~solution, @facts [ ]) { take @~~houses~~solution; } #\| ~~process~~extend a scenario to cover the next fact multi sub solve(@~~houses~~scenario, [ $fact, *@facts ] is copy) { for gather choices(@~~houses~~scenario, \|$fact) {▼ ~~my $fact = @facts.shift;~~ ▲ for gather choices(@houses, \|$fact) { solve(@$_, @facts) }

Zebra puzzle: Difference between revisions