refactoring

jlangch · Dec 18, 2023 · 710c27b · 710c27b
1 parent 65aa415
commit 710c27b
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 18 deletions.
diff --git a/doc/examples/scripts/aes-speed.venice b/doc/examples/scripts/aes-speed.venice
@@ -68,11 +68,7 @@
     (if (< size-kb 1000) (str size-kb "KB") (str (/ size-kb 1000) "MB")))
 
   (defn identical [file1 file2]
-    (= (io/slurp file1 :binary true) 
-       (io/slurp file2 :binary true)))
-
-  (defn printel [title elapsed]
-    (printf "%-21s %4dms%n" title elapsed))
+    (= (io/slurp file1 :binary true) (io/slurp file2 :binary true)))
 
   (defn encrypt [algo passphrase file-in file-out]
    (crypt/encrypt-file algo passphrase file-in file-out))
@@ -186,10 +182,9 @@
                                          :body   {:align :right}
                                          :width  6)
                               samples))]
-
-         (as-> (map #(run %) samples) data
-               (m/transpose data)
-               (map vector sections data)  ;; insert section column at col 0
-               (map #(cons (first %) (second %)) data)
-               (ascii-table/render columns data :bold-no-data 1)
-               (println data)))))
+      (as-> (map #(run %) samples) data
+            (m/transpose data)
+            (map vector sections data)  ;; insert section column at col 0
+            (map #(cons (first %) (second %)) data)
+            (ascii-table/render columns data :bold-no-data 1)
+            (println data)))))
diff --git a/doc/examples/scripts/hash-speed.venice b/doc/examples/scripts/hash-speed.venice
@@ -79,9 +79,9 @@
                                           :body   {:align :right}
                                           :width  6)
                                samples))]
-         (as-> (map #(run % algorithms) samples) data
-               (m/transpose data)
-               (map vector sections data)  ;; insert section column at col 0
-               (map #(cons (first %) (second %)) data)
-               (ascii-table/render columns data :bold-no-data 1)
-               (println data)))))
+      (as-> (map #(run % algorithms) samples) data
+            (m/transpose data)
+            (map vector sections data)  ;; insert section column at col 0
+            (map #(cons (first %) (second %)) data)
+            (ascii-table/render columns data :bold-no-data 1)
+            (println data)))))