kratid prototype

(ns kratid.core
  (:gen-class))

(defn call-B
  "This is the other side, the worker application which gets input as edn encoded strings of source-code."
  [mapper-fn-str reducer-fn-str data-source-fn-str]
  (println (str "call b invoked with data: " data-source-fn-str " ---> map: "  mapper-fn-str " ---> reduce: " reducer-fn-str))
  (let [data-list ((eval (clojure.edn/read-string data-source-fn-str)))
        map-applied-list (map (eval (clojure.edn/read-string mapper-fn-str)) data-list)
        reduced-result (reduce (eval (clojure.edn/read-string reducer-fn-str)) map-applied-list)]
    ;; return eventual result as a list of one element, encoded as a string
    (str (list reduced-result))))

(defn call-a-B
  "Encodes all three forms as strings to be executed on the 'other side', invokes other-side"
  [form-mapper form-reducer form-datasource]
  (let [remote-call-result(call-B
                           (str form-mapper)
                           (str form-reducer)
                           (str form-datasource))]
    (clojure.edn/read-string remote-call-result)))

(defn app-A
  "Emulates someone asking app-A for something useful, in this case to increase 1,2,3 and sum the result, returns 9"[]
  (call-a-B
   '(fn [x] (inc x))     ;; the mapper func
   '(fn [a b] (+ a b))   ;; the reducer func
   '(fn [] (range 1 4))  ;; the data producer func
   ))

(defn -main
  "This is something odd."
  [& args]
  (println (app-A)))