spec.cljs

(ns kilppari.spec
  (:require [clojure.spec.alpha :as s]))

(s/def ::type keyword?)
(s/def ::v any?) ;; ???

(s/def ::argument
  (s/keys
   :req-un [::type ::v]))

;; I would like to say: if :type = :value then :v must be a number, or if :type = :variable, then :v must be a keyword

(s/def ::arguments (s/coll-of ::argument))

(defn command? [x]
  (case x
    :move true
    :turn true
    :repeat true
    false))

(s/def ::command command?)

(s/def ::instruction (s/tuple ::command ::arguments))

(s/def ::script (s/coll-of ::instruction))

turtle.cljs

(def default-turtle-env {:x 90})

(def default-script
  ;; move 10
  [[:move [{:type :value
            :v 10}]]
    ;; turn x
   [:turn [{:type :variable
            :v :x}]]
    ;; repeat 10
    ;; move x
    ;; end
   [:repeat [{:type :value
              :v 10}
             {:type :value
              :v [:move [{:type :variable :v :x}]]}]]])