13 lines
331 B
Clojure
13 lines
331 B
Clojure
(ns cipher-analytical-machine.core
|
|
(:require
|
|
[cipher-analytical-machine.cli :as cli])
|
|
(:gen-class))
|
|
|
|
(defn -main
|
|
[& args]
|
|
(let [{:keys [options arguments action-type exit-message ok?]} (cli/validate-args args)]
|
|
(if exit-message
|
|
(cli/exit exit-message ok?)
|
|
(cli/actions options arguments action-type))))
|
|
|