Skip to content
Snippets Groups Projects
Commit 60196766 authored by Thomas Bock's avatar Thomas Bock :speech_balloon:
Browse files

bug in rpm4 pp

parent 4c9db026
No related branches found
No related tags found
No related merge requests found
......@@ -16,7 +16,7 @@
;; => [0.078 0.078 33.076 111111.079 222.078]
(mapv extract-unit test-vec)
;; => ["mbar" "mbar" "mbar" "mbar" "mbar"]
,,,)
)
(defn extract [s]
(let [r #"^R\s*([0-9]*\.[0-9]*)\s([a-zA-Z]*)a$"]
......@@ -24,7 +24,7 @@
(defn extract-value [s] (-> s extract second u/number))
(defn extract-unit [s] (-> s extract last)
(defn extract-unit [s] (-> s extract last))
(defn read-vec [{x :_x :as task}]
(assoc task :Result [{:Type (get-in task [:PostScriptInput :Type])
......@@ -37,4 +37,3 @@
(drop 2)
vec)
(extract-unit (first x)))]))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment