Skip to content

Instantly share code, notes, and snippets.

@freiksenet

freiksenet/gist:e6dadeae8dc98ce692e3 Secret

Created October 5, 2010 12:52
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 freiksenet/e6dadeae8dc98ce692e3 to your computer and use it in GitHub Desktop.
Save freiksenet/e6dadeae8dc98ce692e3 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
infixl 90 _$_
_$_ : {n : ℕ}{A B : Set} -> Vec (A -> B) n -> Vec A n -> Vec B n
[] $ xs = []
fs $ [] = []
(f ∷ fs) $ (x ∷ xs) = (f x) ∷ fs $ xs
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment