Update all new Tasks

2015-02-20 09:02:09 -05:00 · 2015-02-20 09:02:09 -05:00 · 91df62d461
commit 91df62d461
parent 00a190b0a6
5697 changed files with 93386 additions and 804 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))))))))