PasteRack.org
Paste # 46310
2018-06-17 04:17:42

Fork as a new paste.

Paste viewed 130 times.


Embed:

rest argument with match

  1. #lang racket
  2. (struct bloom-filter (bv k m [n #:mutable]))
  3.  
  4. (define (false-positive-rate . args)
  5.   (define (fp-rate k m n)
  6.     (expt (- 1 (exp (- (/ (* k n)
  7.                           m)))) k))
  8.   (match args
  9.     [(bloom-filter _ k m n) (fp-rate k m n)]
  10.     [(list k m n)           (fp-rate k m n)]))

=>