Add implicit foralls for bidir, update and unify pipeline
This commit is contained in:
parent
12bca1c32d
commit
9870802371
33 changed files with 1010 additions and 1055 deletions
20
sample-programs/basic-0.crf
Normal file
20
sample-programs/basic-0.crf
Normal file
|
|
@ -0,0 +1,20 @@
|
|||
data Bool () where
|
||||
True : Bool ()
|
||||
False : Bool ()
|
||||
|
||||
not x = case x of
|
||||
True => False
|
||||
False => True
|
||||
|
||||
even : Int -> Bool ()
|
||||
even x = not (odd x)
|
||||
odd x = not (even x)
|
||||
|
||||
main = case even 64 of
|
||||
True => 1
|
||||
False => 0
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue