Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Progress

Browse source
This commit is contained in:
Martin Fredin 2023-03-28 15:33:03 +02:00
parent 133cc31e77
commit 76b1c55065
2 changed files with 25 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

7
sample-programs/basic-0
View file

@ -3,9 +3,14 @@ data forall a. List (a) where {
Cons : a -> List (a) -> List (a)
};
length : forall c. List (c) -> Int;
length : List (Int) -> Int;
length = \list. case list of {
Cons x xs => 1 + length xs;
-- Nil => 0;
-- Cons x (Cons y Nil) => 2;
};