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

Fix sample-program

Browse source
This commit is contained in:
Martin Fredin 2023-04-03 09:42:14 +02:00
parent c998241c65
commit 03bb6a8534
1 changed files with 9 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

23
sample-programs/basic-0
View file

@ -1,20 +1,15 @@
data Bool () where {
True : Bool ()
data Bool () where
True : Bool ()
False : Bool ()
};
even : Int -> Bool ();
even x = not (odd x) ;
not x = case x of
True => False
False => True
even : Int -> Bool ()
even x = not (odd x)
odd x = not (even x)
odd x = not (even x) ;
not x = case x of {
True => False;
False => True;
};
f = g;
g = f;