Data commit

Task/ABC-problem/SenseTalk/abc-problem-1.sensetalk

@@ -0,0 +1,41 @@
+function CanMakeWord word
+
+	put [
+		("B", "O"),
+		("X", "K"),
+		("D", "Q"),
+		("C", "P"),
+		("N", "A"),
+		("G", "T"),
+		("R", "E"),
+		("T", "G"),
+		("Q", "D"),
+		("F", "S"),
+		("J", "W"),
+		("H", "U"),
+		("V", "I"),
+		("A", "N"),
+		("O", "B"),
+		("E", "R"),
+		("F", "S"),
+		("L", "Y"),
+		("P", "C"),
+		("Z", "M")
+	] into blocks
+	
+	repeat with each character letter of word
+		put False into found
+		repeat with each item block of blocks by reference
+			if item 1 of block is letter ignoring case or item 2 of block is letter ignoring case
+				delete block
+				put True into found
+				exit repeat
+			end if
+		end repeat
+		if found is False
+			return False
+		end if
+	end repeat
+	return True
+	
+end CanMakeWord

Task/ABC-problem/SenseTalk/abc-problem-2.sensetalk

@@ -0,0 +1,11 @@
+repeat with each item word in [
+	"A",
+	"BARK",
+	"BOOK",
+	"TREAT",
+	"COMMON",
+	"SQUAD",
+	"CONFUSE"
+        ]
+	put CanMakeWord(word)
+end repeat