;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(in-package :hu.dwim.dises)

(def function exponential (mean)
  (lambda ()
    (- (* (log (random 1.0))
          mean))))