Pull cards until ace

gistfile1.clj

(let [big 100000.0
      suit (range 1 (inc 13))
      deck (concat suit suit suit suit)
      ; fn: how many cards pulled before ace is reached?
      pulled (fn [] (inc (count (take-while (partial not= 1)
                                            (shuffle deck)))))]
  ; take average
  (/ (apply + (repeatedly big pulled))
     big))

; sample output:
; => 10.57806