 
 (defn score
   [result]
-  (area-size (apply board result)))
+  (area-size (apply board result) :search-8-way? true))

(defn result
  [execute-program-result]
  (map last execute-program-result))

(defn validate-result
  [result]

                "ポリオミノが重なっています。"))
            (validate-enclosed []
              (try
                (and (score result) nil)
                (catch #+clj clojure.lang.ExceptionInfo #+cljs cljs.core.ExceptionInfo _ "ポリオミノで囲み込めていません。")))]
      (or (validate-origin)
          (validate-overlaps)
