<div dir="ltr">I don't think that code snippets presented without motivation, explanation, or commentary are an effective way to teach.</div><br><div class="gmail_quote"><div dir="ltr">On Sun, Dec 13, 2015 at 9:14 AM Imants Cekusins <<a href="mailto:imantc@gmail.com">imantc@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">This snippet increments integer n times using state monad.<br>
<br>
How to call:<br>
main 10 5<br>
<br>
<br>
<br>
<br>
module BasicState where<br>
<br>
import Control.Monad.State.Strict<br>
import Debug.Trace<br>
<br>
type St a = State a a<br>
<br>
<br>
--  caller is not aware that main uses state<br>
--  mai is a pure function<br>
main :: Int -> Int -> Int<br>
main start0 repeat0 =<br>
        evalState (repeatN repeat0) start0<br>
<br>
<br>
--  state-passing computation<br>
repeatN :: Int -> St Int<br>
repeatN n0              --  repeat n times<br>
    | n0 < 1 = get      --  current state<br>
    | otherwise = do<br>
        withState pureStateModifier get     -- update state<br>
        repeatN $ n0 - 1                    --  recurse<br>
<br>
<br>
--  state unaware modifier function<br>
pureStateModifier :: Int -> Int<br>
pureStateModifier = (+ 1)<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>