patrick/agdaproofs
1
0
Fork 0
mirror of https://github.com/Smaug123/agdaproofs synced 2025-10-16 08:58:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

ProjectEuler 2, nearly (#125)

Browse Source
This commit is contained in:
Patrick Stevens
2020-04-19 13:40:22 +01:00
committed by GitHub
parent e660eceb43
commit 485b27e009
11 changed files with 751 additions and 488 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Vectors.agda
View File

@@ -14,6 +14,8 @@ data Vec {a : _} (X : Set a) : ℕ -> Set a where
[] : Vec X zero
_,-_ : {n : ℕ} -> X -> Vec X n -> Vec X (succ n)
infixr 10 _,-_
vecLen : {a : _} {X : Set a} {n : ℕ} → Vec X n → ℕ
vecLen {a} {X} {n} v = n