Data commit

Task/Set-puzzle/J/set-puzzle-1.j

@@ -0,0 +1,24 @@
+require 'stats/base'
+
+Number=: ;:'one two three'
+Colour=: ;:'red green purple'
+Fill=: ;:'solid open striped'
+Symbol=: ;:'oval squiggle diamond'
+Features=: Number ; Colour ; Fill ;< Symbol
+Deck=: > ; <"1 { i.@#&.> Features
+sayCards=: (', ' joinstring Features {&>~ ])"1
+drawRandom=: ] {~ (? #)
+isSet=: *./@:(1 3 e.~ [: #@~."1 |:)"2
+getSets=: [: (] #~ isSet) ] {~ 3 comb #
+countSets=: #@:getSets
+
+set_puzzle=: verb define
+ target=. <. -: y
+ whilst. target ~: countSets Hand do.
+   Hand=. y drawRandom Deck
+ end.
+ echo 'Dealt ',(": y),' Cards:'
+ echo sayCards sort Hand
+ echo LF,'Found ',(":target),' Sets:'
+ echo sayCards sort"2 getSets Hand
+)

Task/Set-puzzle/J/set-puzzle-2.j

@@ -0,0 +1,28 @@
+   set_puzzle 9
+Dealt 9 Cards:
+one, red, solid, oval
+one, green, open, squiggle
+two, purple, striped, squiggle
+three, red, solid, squiggle
+three, red, open, oval
+three, green, solid, oval
+three, green, open, diamond
+three, purple, open, oval
+three, purple, striped, oval
+
+Found 4 Sets:
+three, red, solid, squiggle
+three, green, open, diamond
+three, purple, striped, oval
+
+one, red, solid, oval
+two, purple, striped, squiggle
+three, green, open, diamond
+
+one, green, open, squiggle
+two, purple, striped, squiggle
+three, red, solid, squiggle
+
+three, red, open, oval
+three, green, solid, oval
+three, purple, striped, oval