<div dir="ltr">Exactly. Thanks.</div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Fri, Mar 26, 2021 at 12:33 PM Francesco Ariis <<a href="mailto:fa-ml@ariis.it">fa-ml@ariis.it</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">Il 26 marzo 2021 alle 12:20 Galaxy Being ha scritto:<br>
> I've got this code I've entered into the ghci by hand between :{ and :}<br>
> <br>
> :{<br>
> {-# LANGUAGE LambdaCase #-}<br>
> data List a = Empty | Cons a (List a) deriving (Eq, Ord, Show)<br>
> infixr 5 `Cons`<br>
> <br>
> subst_c :: (a -> Bool)  -> (a, MyList a) -> MyList a<br>
> subst_c pred = \ case<br>
>                      (_, Empty)    -> Empty<br>
>                      (n, Cons e t)<br>
>                        | pred e    -> Cons n $ subst_c pred (n, t)<br>
>                        | otherwise -> Cons e $ subst_c pred (n, t)<br>
> :}<br>
> <br>
<br>
    λ> :set -XLambdaCase<br>
_______________________________________________<br>
Beginners mailing list<br>
<a href="mailto:Beginners@haskell.org" target="_blank">Beginners@haskell.org</a><br>
<a href="http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners" rel="noreferrer" target="_blank">http://mail.haskell.org/cgi-bin/mailman/listinfo/beginners</a><br>
</blockquote></div>