mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-17 00:10:31 +03:00
a972778eab
They don't all pass yet, for minor reasons. Coming shortly... Unfortunately the startup overhead for chez is really noticeable here!
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
|