Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/ABC-problem/Common-Lisp/abc-problem.lisp
+++ b/Task/ABC-problem/Common-Lisp/abc-problem.lisp
@ -0,0 +1,14 @@
+(defun word-possible-p (word blocks)
+  (cond
+    ((= (length word) 0) t)
+    ((null blocks) nil)
+    (t (let*
+         ((c (aref word 0))
+          (bs (remove-if-not #'(lambda (b)
+                                 (find c b :test #'char-equal))
+                             blocks)))
+         (some #'identity
+               (loop for b in bs
+                     collect (word-possible-p
+                               (subseq word 1)
+                               (remove b blocks))))))))