Skip to content

Instantly share code, notes, and snippets.

@jroesch

jroesch/gist:3176f3631aab87f63db4

Created October 14, 2014 21:14
Show Gist options
  • Save jroesch/3176f3631aab87f63db4 to your computer and use it in GitHub Desktop.
Save jroesch/3176f3631aab87f63db4 to your computer and use it in GitHub Desktop.
Download ZIP
dynamic to static idris
Raw
gistfile1.txt
module Main
listToVect : (n: Nat) -> List a -> Maybe (Vect n a)
listToVect Z Nil = Just Nil
listToVect n Nil = Nothing
listToVect (S n) (x :: xs) = map (x ::) (listToVect n xs)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment