mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-19 09:12:34 +03:00
12 lines
267 B
Idris
12 lines
267 B
Idris
-- %logging 2
|
|
test : List a -> Nat -> Nat
|
|
test xs n
|
|
= case xs of
|
|
[] => Z
|
|
(y :: ys) => case n of
|
|
Z => Z
|
|
(S k) => calculate xs k
|
|
where
|
|
calculate : List a -> Nat -> Nat
|
|
%logging 0
|