gists/gists/apply-maybe.el

(defun my/apply-maybe (f probability &rest args)
  "Apply function F with a certain PROBABILITY [0-1)."
  (if (< (random 100) (* probability 100))
      (apply f args)
    'my/not-applied))