Scott Wlaschin ThinkOfNumber example











up vote
0
down vote

favorite












I'm trying to find my way in functional programming with haskell.
I saw this nice video https://www.youtube.com/watch?v=vDe-4o8Uwl8 by Scott Wlaschin.
I'm tryng to implement his ThinkOfNumber example using haskell.



Think of a number: f#



The only solution I found is this one:



thinkOfANumber  numberYouThoughtOf =  (x -> x - numberYouThoughtOf) 

                                      . (x -> x / numberYouThoughtOf) 

                                      . (x -> x - 1) 

                                      . (x -> x * x) 

                                      . (x -> x + 1)


So I have to invoke the function in this way, using 2 parameters



thinkOfANumber 13 13


in order to memorize the numberYouThoughtOf in the call chain.



I there a way to simplify the code, using a pipe like operator such as the "|>" operator in F# ?



Maybe I'm surely missing something :)
Regards.
Ivan






haskell







share|improve this question









New contributor




Ivan Saracino is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.




















  • I mean, you could just write the whole thing in one line think n x = (a * a - 1) / n - n where a = x + 1
    – Mateen Ulhaq
    3 hours ago












  • I think this is more appropriate for codereview.stackexchange.com
    – hellow
    3 hours ago






  • 2




    The F# pipe operator is available as (>>>) in the Control.Arrow module. You could also try using operator sections.
    – bradrn
    2 hours ago















up vote
0
down vote

favorite












I'm trying to find my way in functional programming with haskell.
I saw this nice video https://www.youtube.com/watch?v=vDe-4o8Uwl8 by Scott Wlaschin.
I'm tryng to implement his ThinkOfNumber example using haskell.



Think of a number: f#



The only solution I found is this one:



thinkOfANumber  numberYouThoughtOf =  (x -> x - numberYouThoughtOf) 

                                      . (x -> x / numberYouThoughtOf) 

                                      . (x -> x - 1) 

                                      . (x -> x * x) 

                                      . (x -> x + 1)


So I have to invoke the function in this way, using 2 parameters



thinkOfANumber 13 13


in order to memorize the numberYouThoughtOf in the call chain.



I there a way to simplify the code, using a pipe like operator such as the "|>" operator in F# ?



Maybe I'm surely missing something :)
Regards.
Ivan






haskell







share|improve this question









New contributor




Ivan Saracino is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.




















  • I mean, you could just write the whole thing in one line think n x = (a * a - 1) / n - n where a = x + 1
    – Mateen Ulhaq
    3 hours ago












  • I think this is more appropriate for codereview.stackexchange.com
    – hellow
    3 hours ago






  • 2




    The F# pipe operator is available as (>>>) in the Control.Arrow module. You could also try using operator sections.
    – bradrn
    2 hours ago













up vote
0
down vote

favorite









up vote
0
down vote

favorite











I'm trying to find my way in functional programming with haskell.
I saw this nice video https://www.youtube.com/watch?v=vDe-4o8Uwl8 by Scott Wlaschin.
I'm tryng to implement his ThinkOfNumber example using haskell.



Think of a number: f#



The only solution I found is this one:



thinkOfANumber  numberYouThoughtOf =  (x -> x - numberYouThoughtOf) 

                                      . (x -> x / numberYouThoughtOf) 

                                      . (x -> x - 1) 

                                      . (x -> x * x) 

                                      . (x -> x + 1)


So I have to invoke the function in this way, using 2 parameters



thinkOfANumber 13 13


in order to memorize the numberYouThoughtOf in the call chain.



I there a way to simplify the code, using a pipe like operator such as the "|>" operator in F# ?



Maybe I'm surely missing something :)
Regards.
Ivan






haskell







share|improve this question









New contributor




Ivan Saracino is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.











I'm trying to find my way in functional programming with haskell.
I saw this nice video https://www.youtube.com/watch?v=vDe-4o8Uwl8 by Scott Wlaschin.
I'm tryng to implement his ThinkOfNumber example using haskell.



Think of a number: f#



The only solution I found is this one:



thinkOfANumber  numberYouThoughtOf =  (x -> x - numberYouThoughtOf) 

                                      . (x -> x / numberYouThoughtOf) 

                                      . (x -> x - 1) 

                                      . (x -> x * x) 

                                      . (x -> x + 1)


So I have to invoke the function in this way, using 2 parameters



thinkOfANumber 13 13


in order to memorize the numberYouThoughtOf in the call chain.



I there a way to simplify the code, using a pipe like operator such as the "|>" operator in F# ?



Maybe I'm surely missing something :)
Regards.
Ivan






haskell




haskell






share|improve this question









New contributor




Ivan Saracino is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.











share|improve this question









New contributor




Ivan Saracino is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









share|improve this question




share|improve this question








edited 3 hours ago









Mateen Ulhaq

11.1k114690




11.1k114690






New contributor




Ivan Saracino is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.









asked 3 hours ago









Ivan Saracino

11




11




New contributor




Ivan Saracino is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.





New contributor





Ivan Saracino is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.






Ivan Saracino is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.












  • I mean, you could just write the whole thing in one line think n x = (a * a - 1) / n - n where a = x + 1
    – Mateen Ulhaq
    3 hours ago












  • I think this is more appropriate for codereview.stackexchange.com
    – hellow
    3 hours ago






  • 2




    The F# pipe operator is available as (>>>) in the Control.Arrow module. You could also try using operator sections.
    – bradrn
    2 hours ago


















  • I mean, you could just write the whole thing in one line think n x = (a * a - 1) / n - n where a = x + 1
    – Mateen Ulhaq
    3 hours ago












  • I think this is more appropriate for codereview.stackexchange.com
    – hellow
    3 hours ago






  • 2




    The F# pipe operator is available as (>>>) in the Control.Arrow module. You could also try using operator sections.
    – bradrn
    2 hours ago
















I mean, you could just write the whole thing in one line think n x = (a * a - 1) / n - n where a = x + 1
– Mateen Ulhaq
3 hours ago






I mean, you could just write the whole thing in one line think n x = (a * a - 1) / n - n where a = x + 1
– Mateen Ulhaq
3 hours ago














I think this is more appropriate for codereview.stackexchange.com
– hellow
3 hours ago




I think this is more appropriate for codereview.stackexchange.com
– hellow
3 hours ago




2




2




The F# pipe operator is available as (>>>) in the Control.Arrow module. You could also try using operator sections.
– bradrn
2 hours ago




The F# pipe operator is available as (>>>) in the Control.Arrow module. You could also try using operator sections.
– bradrn
2 hours ago












1 Answer
1






active

oldest

votes

















up vote
0
down vote













Operator (>>=) from Control.Monad package may be able to imitate |> operator in F# with using Identity from Control.Monad.Identity like:



import Control.Monad.Identity;



thinkOfANumber numberYonThoughOf = 

    let addOne      x = x + 1

        squareIt    x = x * x

        subtractOne x = x - 1

        divideByTheNumberYouThoughtOf x = x / numberYonThoughOf

    in  runIdentity 

        $   pure numberYonThoughOf 

        >>= pure . addOne

        >>= pure . squareIt

        >>= pure . subtractOne

        >>= pure . divideByTheNumberYouThoughtOf





share|improve this answer





















    Your Answer






    StackExchange.ifUsing("editor", function () {
    StackExchange.using("externalEditor", function () {
    StackExchange.using("snippets", function () {
    StackExchange.snippets.init();
    });
    });
    }, "code-snippets");

    StackExchange.ready(function() {
    var channelOptions = {
    tags: "".split(" "),
    id: "1"
    };
    initTagRenderer("".split(" "), "".split(" "), channelOptions);

    StackExchange.using("externalEditor", function() {
    // Have to fire editor after snippets, if snippets enabled
    if (StackExchange.settings.snippets.snippetsEnabled) {
    StackExchange.using("snippets", function() {
    createEditor();
    });
    }
    else {
    createEditor();
    }
    });

    function createEditor() {
    StackExchange.prepareEditor({
    heartbeatType: 'answer',
    convertImagesToLinks: true,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: 10,
    bindNavPrevention: true,
    postfix: "",
    imageUploader: {
    brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
    contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
    allowUrls: true
    },
    onDemand: true,
    discardSelector: ".discard-answer"
    ,immediatelyShowMarkdownHelp:true
    });


    }
    });






    Ivan Saracino is a new contributor. Be nice, and check out our Code of Conduct.










     

    draft saved


    draft discarded


















    StackExchange.ready(
    function () {
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53371480%2fscott-wlaschin-thinkofnumber-example%23new-answer', 'question_page');
    }
    );

    Post as a guest















    Required, but never shown

























    1 Answer
    1






    active

    oldest

    votes








    1 Answer
    1






    active

    oldest

    votes









    active

    oldest

    votes






    active

    oldest

    votes








    up vote
    0
    down vote













    Operator (>>=) from Control.Monad package may be able to imitate |> operator in F# with using Identity from Control.Monad.Identity like:



    import Control.Monad.Identity;
    

    
thinkOfANumber numberYonThoughOf = 
    
    let addOne      x = x + 1
    
        squareIt    x = x * x
    
        subtractOne x = x - 1
    
        divideByTheNumberYouThoughtOf x = x / numberYonThoughOf
    
    in  runIdentity 
    
        $   pure numberYonThoughOf 
    
        >>= pure . addOne
    
        >>= pure . squareIt
    
        >>= pure . subtractOne
    
        >>= pure . divideByTheNumberYouThoughtOf





    share|improve this answer

























      up vote
      0
      down vote













      Operator (>>=) from Control.Monad package may be able to imitate |> operator in F# with using Identity from Control.Monad.Identity like:



      import Control.Monad.Identity;
      

      
thinkOfANumber numberYonThoughOf = 
      
    let addOne      x = x + 1
      
        squareIt    x = x * x
      
        subtractOne x = x - 1
      
        divideByTheNumberYouThoughtOf x = x / numberYonThoughOf
      
    in  runIdentity 
      
        $   pure numberYonThoughOf 
      
        >>= pure . addOne
      
        >>= pure . squareIt
      
        >>= pure . subtractOne
      
        >>= pure . divideByTheNumberYouThoughtOf





      share|improve this answer























        up vote
        0
        down vote










        up vote
        0
        down vote









        Operator (>>=) from Control.Monad package may be able to imitate |> operator in F# with using Identity from Control.Monad.Identity like:



        import Control.Monad.Identity;
        

        
thinkOfANumber numberYonThoughOf = 
        
    let addOne      x = x + 1
        
        squareIt    x = x * x
        
        subtractOne x = x - 1
        
        divideByTheNumberYouThoughtOf x = x / numberYonThoughOf
        
    in  runIdentity 
        
        $   pure numberYonThoughOf 
        
        >>= pure . addOne
        
        >>= pure . squareIt
        
        >>= pure . subtractOne
        
        >>= pure . divideByTheNumberYouThoughtOf





        share|improve this answer












        Operator (>>=) from Control.Monad package may be able to imitate |> operator in F# with using Identity from Control.Monad.Identity like:



        import Control.Monad.Identity;
        

        
thinkOfANumber numberYonThoughOf = 
        
    let addOne      x = x + 1
        
        squareIt    x = x * x
        
        subtractOne x = x - 1
        
        divideByTheNumberYouThoughtOf x = x / numberYonThoughOf
        
    in  runIdentity 
        
        $   pure numberYonThoughOf 
        
        >>= pure . addOne
        
        >>= pure . squareIt
        
        >>= pure . subtractOne
        
        >>= pure . divideByTheNumberYouThoughtOf






        share|improve this answer












        share|improve this answer



        share|improve this answer










        answered 1 hour ago









        assembly.jc

        575211




        575211






















            Ivan Saracino is a new contributor. Be nice, and check out our Code of Conduct.










             

            draft saved


            draft discarded


















            Ivan Saracino is a new contributor. Be nice, and check out our Code of Conduct.













            Ivan Saracino is a new contributor. Be nice, and check out our Code of Conduct.












            Ivan Saracino is a new contributor. Be nice, and check out our Code of Conduct.















             


            draft saved


            draft discarded














            StackExchange.ready(
            function () {
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53371480%2fscott-wlaschin-thinkofnumber-example%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown





















































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown

































            Required, but never shown














            Required, but never shown












            Required, but never shown







            Required, but never shown







            Popular posts from this blog

            Can a sorcerer learn a 5th-level spell early by creating spell slots using the Font of Magic feature?

            Image
            28 6 $begingroup$ Per the Font of Magic feature, sorcerer can use Flexible Casting to create 5th-level spell slots at level 7, even though they are not typically available until level 9. You can transform unexpended sorcery points into one spell slot as a bonus action on your turn. The Creating Spell Slots table shows the cost of creating a spell slot of [5th level is 7] If such a sorcerer levels up while still having this 5th-level spell slot, can they choose a 5th-level spell as the spell they gain upon levelling up? The Spellcasting feature states: Additionally, when you gain a level in this class, you can choose one of the sorcerer spells you know and replace it with another spell from the sorcerer spell list, which also must be of a level for which you have spell slots.
            Read more

            Does disintegrating a polymorphed enemy still kill it after the 2018 errata?

            Image
            up vote 13 down vote favorite 1 After the 2018 errata, the disintegrate spell description now reads: A creature targeted by this spell must make a Dexterity saving throw. On a failed save, the target takes 10d6 + 40 force damage. The target is disintegrated if this damage leaves it with 0 hit points. If you were to polymorph an enemy into a rat and then disintegrate it, would the enemy be disintegrated or would it just return to its original form? I know that for Druids, it’s not an instant kill anymore, but is this the case for polymorph as well? dnd-5e spells polymorph errata share | improve this question edited 18 hours ago
            Read more

            A Topological Invariant for $pi_3(U(n))$

            Image
            3 3 $begingroup$ Recently, I saw a construction of topological invariant for $pi_3(U(n))$ with $ngeq 2$ : $$ N=frac{1}{24pi^2}int_{S^3} d^3x epsilon^{ijk} Tr[(U^{-1}partial_{x_i}U)(U^{-1}partial_{x_j}U)(U^{-1}partial_{x_k}U)] , $$ where $Uin U(n)$ depends on $boldsymbol{x}=(x_1,x_2,x_3)in S^3$ , $epsilon^{ijk}$ is the Levi-Civita symbol, $i,j,k=1,2,3$ , and the duplicated indexes are summed over. It is claimed that $N$ is an integer, but why? Update 02/02/2019 I think I got an argument for $n=2$ . In this case, $U=e^{i varphi} q$ with $qin SU(2)$ . Due to the trace and the Levi-Civita symbol in $N$ , $varphi$ does not contribute to $N$ . As $Tr[q^{dagger}partial_i q]=0$ and $(q^{dagger}partial_i q)^{dagger}=-q^{dagger}partial_i q$ , $q^{dagger}partial_i q$ in geneeral has the form $q^{dagger}partia
            Read more