Data commit

Task/ABC-problem/J/abc-problem-1.j

@@ -0,0 +1,11 @@
+reduce=: verb define
+  'rows cols'=. i.&.> $y
+  for_c. cols do.
+    r=. 1 i.~ c {"1 y             NB. row idx of first 1 in col
+    if. r = #rows do. continue. end.
+    y=. 0 (<((r+1)}.rows);c) } y  NB. zero rest of col
+    y=. 0 (<(r;(c+1)}.cols)) } y  NB. zero rest of row
+  end.
+)
+
+abc=: *./@(+./)@reduce@(e."1~ ,)&toupper :: 0:

Task/ABC-problem/J/abc-problem-2.j

@@ -0,0 +1,14 @@
+   Blocks=:  ];._2 'BO XK DQ CP NA GT RE TG QD FS JW HU VI AN OB ER FS LY PC ZM '
+   ExampleWords=: <;._2 'A BaRK BOoK tREaT COmMOn SqUAD CoNfuSE '
+
+   Blocks&abc &> ExampleWords
+1 1 0 1 0 1 1
+   require 'format/printf'
+   '%10s  %s' printf (dquote ; 'FT' {~ Blocks&abc) &> ExampleWords
+       "A"  T
+    "BaRK"  T
+    "BOoK"  F
+   "tREaT"  T
+  "COmMOn"  F
+   "SqUAD"  T
+ "CoNfuSE"  T

Task/ABC-problem/J/abc-problem-3.j

@@ -0,0 +1,4 @@
+delElem=: {~<@<@<
+uppc=:(-32*96&<*.123&>)&.(3&u:)
+reduc=: ] delElem  1 i.~e."0 1
+forms=:  (1 - '' -: (reduc L:0/ :: (a:"_)@(<"0@],<@[))&uppc) L:0

Task/ABC-problem/J/abc-problem-4.j

@@ -0,0 +1,10 @@
+Blocks=:  >;:'BO XK DQ CP NA GT RE TG QD FS JW HU VI AN OB ER FS LY PC ZM '
+ExampleWords=: ;: 'A BaRK BOoK tREaT COmMOn SqUAD CoNfuSE '
+
+canform=:4 :0
+  word=: toupper y
+  need=: #/.~ word,word
+  relevant=: (x +./@e."1 word) # x
+  candidates=: word,"1>,{ {relevant
+  +./(((#need){. #/.~)"1 candidates) */ .>:need
+)

Task/ABC-problem/J/abc-problem-5.j

@@ -0,0 +1,14 @@
+   Blocks canform 0{::ExampleWords
+1
+   Blocks canform 1{::ExampleWords
+1
+   Blocks canform 2{::ExampleWords
+0
+   Blocks canform 3{::ExampleWords
+1
+   Blocks canform 4{::ExampleWords
+0
+   Blocks canform 5{::ExampleWords
+1
+   Blocks canform 6{::ExampleWords
+1

Task/ABC-problem/J/abc-problem-6.j

@@ -0,0 +1,14 @@
+   Blocks canform 0{::ExampleWords
+1
+   word
+A
+   need
+2
+   relevant
+NA
+AN
+   candidates
+ANA
+ANN
+AAA
+AAN