diff --git a/examples/record_unpack.myc b/examples/record_unpack.myc index e02952a..d721f35 100644 --- a/examples/record_unpack.myc +++ b/examples/record_unpack.myc @@ -1,20 +1,11 @@ ;; Benchmark: Record Destructuring Performance -;; This test calls a function that destructures a record 100.000 times. +;; This test calls a function that destructures a record ;; Current implementation is now zero-allocation for destructuring. -;; Output: {:a 1, :b 2} -;; Benchmark: 5.2ms +;; Output: 3 +;; Benchmark: 775ns +;; Benchmark-Repeat: 2587 (do - (def process (fn [[x y]] - (+ x y))) - - (def rec {:a 1 :b 2}) - - (def loop (fn [n acc] - (if (= n 0) - acc - (loop (- n 1) (process rec))))) - - (loop 10000 0) - rec + (def process (fn [[x y]] (+ x y))) + (process {:a 1 :b 2}) )