Skip to content

Instantly share code, notes, and snippets.

@jbclements

jbclements/silly-me.rkt

Created September 12, 2013 20:20
Show Gist options
  • Save jbclements/6543197 to your computer and use it in GitHub Desktop.
Save jbclements/6543197 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
silly-me.rkt
#lang typed/racket
(: fir-filter ((Listof (List Nonnegative-Fixnum Real)) -> Any))
(define (fir-filter params)
(match params
[`((,delays ,amplitudes) ...)
(+ 1 (apply max delays))]
[other (error 'ouch)]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment