mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-16 15:52:43 +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
|