Simplex Big Data Generator

{:hello (clojure-version)}

(def ^:const starting-marbles 1)

(defn get-move []

  (rand-int (+ starting-marbles 1)))

(defn find-winner [a-move b-move]

  (if (> a-move b-move)

    "a"

    (if (< a-move b-move)

      "b"

      "t")))

(defn play []

  (let [a-move (get-move)

        b-move (get-move)]

    [a-move b-move (find-winner a-move b-move)]))

(play)

(require '[clojure.data.csv :as csv]

  '[clojure.java.io :as io])

(defn gen-data [n file-name]

  (with-open [writer (io/writer file-name)]

    (let [data (cons ["a" "b" "r"] (repeatedly n play))]

      (csv/write-csv writer data))))

(gen-data 10000 "train.csv")

cat train.csv

(gen-data 1000 "test.csv")

cat test.csv