Integrated the garbage collector.

This commit is contained in:
Samuel Hammersberg 2023-03-30 12:31:03 +02:00
parent bbe0d77a19
commit b3525db7fd
5 changed files with 21 additions and 12 deletions

View file

@ -1,9 +1,9 @@
-- main = head (Cons (sum (repeat 10 5)) Nil);
main = head (Cons (sum (repeat 5 9223372036854775807)) Nil); --9223372036854775807
main = case (bind (fmap (\s . s + 1) (Just 5)) (\s . pure (s + 10))) of {
Just a => a ;
Nothing => minusOne ;
};
-- main = case (bind (fmap (\s . s + 1) (Just 5)) (\s . pure (s + 10))) of {
-- Just a => a ;
-- Nothing => minusOne ;
-- };
---- MAYBE MONAD ----
data Maybe () where {