Data commit

Task/ABC-problem/Lang/abc-problem.lang

@@ -0,0 +1,37 @@
+fp.canMakeWord = ($word, $blocks) -> {
+	if(!$word) {
+		return 1
+	}
+	
+	$word = fn.toLower($word)
+	
+	$c $= $word[0]
+	$i = 0
+	while($i < @$blocks) {
+		$block $= fn.toLower($blocks[$i])
+		
+		if($block[0] != $c && $block[1] != $c) {	
+			$i += 1
+			
+			con.continue
+		}
+		
+		$blocksCopy $= ^$blocks
+		fn.listRemoveAt($blocksCopy, $i)
+		
+		if(fp.canMakeWord(fn.substring($word, 1), $blocksCopy)) {
+			return 1
+		}
+		
+		$i += 1
+	}
+	
+	return 0
+}
+
+$blocks = fn.listOf(BO, XK, DQ, CP, NA, GT, RE, TG, QD, FS, JW, HU, VI, AN, OB, ER, FS, LY, PC, ZM)
+
+$word
+foreach($[word], [\e, A, BARK, BOOK, TREAT, COMMON, SQUAD, CONFUSE, Treat, cOmMoN]) {
+	fn.printf(%s: %s%n, $word, fp.canMakeWord($word, $blocks))
+}