Skip to content

Instantly share code, notes, and snippets.

@samth

samth/silly-me.rkt

Forked from jbclements/silly-me.rkt
Created September 12, 2013 20:22
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save samth/6543217 to your computer and use it in GitHub Desktop.
Save samth/6543217 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 : (List Nonnegative-Fixnum)} ,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