churf/sample-programs/example-programs/ex3.crf

11 lines
176 B
Text

data Maybe () where {
Just : Int -> Maybe () ;
Nothing : Maybe () ;
};
demoFunc x = case x of {
Just y => y + 24;
Nothing => 0;
};
main = demoFunc (Just 5) ;