funcoes.clj

; predicate

(defn maior-que-100? [valor]
  (> valor 100))

(defn sorteado? [_]
  (> (rand) 0.5))

(defn valor-descontado [valor-bruto aplica-desconto?]
  (let [desconto 0.1]
    (if (aplica-desconto? valor-bruto)
      (* valor-bruto (- 1 desconto))
      valor-bruto)))

(valor-descontado 100 maior-que-100?)
(valor-descontado 100 sorteado?)

(valor-descontado 1000 maior-que-100?)
(valor-descontado 1000 sorteado?)

(valor-descontado 100 (fn [valor] (> valor 100)) )
(valor-descontado 1000 (fn [valor] (> valor 100)) )

(fn [valor] (> valor 100))

((fn [valor] (> valor 100)) 555)

(valor-descontado 100 (fn [_] (> (rand) 0.5)) )
(valor-descontado 1000 (fn [_] (> (rand) 0.5)) )

(def minha-funcao-de-sorteio (fn [] (> (rand) 0.5)))
(minha-funcao-de-sorteio)