Family Day update

2020-02-17 23:21:07 -08:00 · 2020-02-17 23:21:07 -08:00 · 9ad63ea473
commit 9ad63ea473
parent aac6731f2c
2442 changed files with 39761 additions and 8255 deletions
--- a/Task/Dinesmans-multiple-dwelling-problem/Factor/dinesmans-multiple-dwelling-problem.factor
+++ b/Task/Dinesmans-multiple-dwelling-problem/Factor/dinesmans-multiple-dwelling-problem.factor
@ -22,7 +22,7 @@ IN: rosetta.dinesman
    5 [1,b] all-permutations [ meets-constraints? ] filter ;

 : >names ( seq -- seq )
-    [ 1 - qw{ baker cooper fletcher miller smith } nth ] map ;
+     [ qw{ baker cooper fletcher miller smith } nth swap 2array ] map-index ;

 : dinesman ( -- )
    solutions [ >names . ] each ;