Skip to content

Instantly share code, notes, and snippets.

@siddhartha-gadgil
Created March 20, 2014 10:51
Show Gist options
  • Select an option

  • Save siddhartha-gadgil/9661266 to your computer and use it in GitHub Desktop.

Select an option

Save siddhartha-gadgil/9661266 to your computer and use it in GitHub Desktop.
zipop : {A : Set} → {n : ℕ} → Vec A n → Vec A n → (A → A → A) → Vec A n
zipop [] [] _ = []
zipop (x :: xs) (y :: ys) op = (op x y) :: (zipop xs ys op)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment