mirror of
https://github.com/edwinb/Idris2-boot.git
synced 2024-12-19 19:01:44 +03:00
6 lines
112 B
Idris
6 lines
112 B
Idris
|
import Data.Vect
|
||
|
|
|
||
|
|
dvec : (n : Nat) -> {default (replicate n 1) xs : Vect n Nat} -> Nat
|
||
|
|
dvec n = foldr (+) Z xs
|
||
|
|
|