Alexis Petrounias petrounias

## clojure-concat-performance-comparison.cljc
; Comparing 'normal' versus lazy concat

(apply concat [[:a] [:b] [:c :d] [:e :f :g] [:h]])
; => (:a :b :c :d :e :f :g :h)

(take 3 (apply concat [[:a] [:b] [:c :d] [:e :f :g] [:h]]))
; => (:a :b :c)


; normal concat

## clojure-find-first-performance-comparison.cljc
; Comparing performance of 'normal' versus transducer 'find-first' in Clojure, where:
;
; (find-first (fn [thing] (number? thing)) [:foo 'bar 42 "zog" 67])
; => 42


; Normal version

(defn find-first
  "Normal version."

## clojure-safe-merge-performance.cljc
(require '[criterium.core :as crit])

; figuring out the most performant way to merge two maps with only non-nil values in the right hand map,
; without failing for `false` values:
;
; (safe-merge {:foo true :bar 4} {:foo false :bar nil})
; => {:foo false, :bar 4}
;
; ordered by decreasing execution time mean

## gist:f23be8a585dd1cffaf0e203d56c7561a
Verifying my Blockstack ID is secured with the address 1P1jxAMnfn9aRjWUjUGvbM1j9A8KyjWdhx https://explorer.blockstack.org/address/1P1jxAMnfn9aRjWUjUGvbM1j9A8KyjWdhx

## keybase.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                petrounias
                / keybase.md
            
            
              Last active
              September 10, 2019 05:01
            
          
    Keybase proof

I hereby claim:

I am petrounias on github.
I am petrounias (https://keybase.io/petrounias) on keybase.
I have a public key whose fingerprint is C37C EEC3 77CB 6DED 0402  131F 5575 3CDF 8C85 6D85

To claim this, I am signing this object:
	; Comparing 'normal' versus lazy concat

	(apply concat [[:a] [:b] [:c :d] [:e :f :g] [:h]])
	; => (:a :b :c :d :e :f :g :h)

	(take 3 (apply concat [[:a] [:b] [:c :d] [:e :f :g] [:h]]))
	; => (:a :b :c)


	; normal concat
	; Comparing performance of 'normal' versus transducer 'find-first' in Clojure, where:
	;
	; (find-first (fn [thing] (number? thing)) [:foo 'bar 42 "zog" 67])
	; => 42


	; Normal version

	(defn find-first
	"Normal version."
	(require '[criterium.core :as crit])

	; figuring out the most performant way to merge two maps with only non-nil values in the right hand map,
	; without failing for `false` values:
	;
	; (safe-merge {:foo true :bar 4} {:foo false :bar nil})
	; => {:foo false, :bar 4}
	;
	; ordered by decreasing execution time mean