mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-16 07:34:45 +03:00
5 lines
111 B
Idris
5 lines
111 B
Idris
import Data.Vect
|
|
|
|
dvec : (n : Nat) -> {default (replicate n 1) xs : Vect n Nat} -> Nat
|
|
dvec n = foldr (+) Z xs
|