Data commit

Task/ABC-problem/Q/abc-problem-1.q

@@ -0,0 +1,7 @@
+BLOCKS:string`BO`XK`DQ`CP`NA`GT`RE`TG`QD`FS`JW`HU`VI`AN`OB`ER`FS`LY`PC`ZM
+WORDS:string`A`BARK`BOOK`TREAT`COMMON`SQUAD`CONFUSE
+
+cmw:{[s;b]                                                   / [str;blocks]
+  $[0=count s; 1b;                                           /   empty string
+    not any found:any each b=s 0; 0b;                        /   cannot proceed
+    any(1_s).z.s/:b(til count b)except/:where found] }

Task/ABC-problem/Q/abc-problem-2.q

@@ -0,0 +1,2 @@
+q)WORDS cmw\:BLOCKS
+1101011b

Task/ABC-problem/Q/abc-problem-3.q

@@ -0,0 +1,2 @@
+Words:string`A`bark`BOOK`Treat`COMMON`squad`CONFUSE
+cmwi:{(`$x), `false`true cmw . upper each(x;y) }

Task/ABC-problem/Q/abc-problem-4.q

@@ -0,0 +1,8 @@
+q)Words cmwi\:BLOCKS
+A       true
+bark    true
+BOOK    false
+Treat   true
+COMMON  false
+squad   true
+CONFUSE true