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

added file suffix and check

Browse source
This commit is contained in:
sebastian 2023-03-26 00:09:47 +01:00
parent ac43af8110
commit d49e2401bf
2 changed files with 42 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

30
test_program.chf Normal file
View file

@ -0,0 +1,30 @@
data Maybe (a) where {
Nothing : Maybe (a)
Just : a -> Maybe (a)
};
fmap : (a -> b) -> Maybe (a) -> Maybe (b) ;
fmap f ma = case ma of {
Nothing => Nothing ;
Just a => Just (f a) ;
};
pure : a -> Maybe (a) ;
pure x = Just x ;
ap mf ma = case mf of {
Just f => case ma of {
Nothing => Nothing;
Just a => Just (f a);
};
Nothing => Nothing;
};
return = pure;
bind ma f = case ma of {
Nothing => Nothing ;
Just a => f a ;
};