Skip to content

Instantly share code, notes, and snippets.

@hughfdjackson
Created September 29, 2014 09:46
Show Gist options
  • Select an option

  • Save hughfdjackson/add011d665bf0ca436d3 to your computer and use it in GitHub Desktop.

Select an option

Save hughfdjackson/add011d665bf0ca436d3 to your computer and use it in GitHub Desktop.
snoc' : Vect n a -> a -> Vect (S n) a
snoc' (x :: Nil) a = x :: a :: Nil
snoc' (x :: xs) a = x :: (snoc' xs a)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment