mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-23 03:32:09 +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
|