Replacing loop with functional styleFunctional style using lazy lists?Can this code be written in a more functional styleProgramming a numerical method in the functional styleGoing full functional (Haskell style)Replace For-loop with functional codeReplacing a for-loop with something functionalElegant functional equivalent to a nested loop?Delimited Continuations: Easy? or Fundamentally Difficult?RealDigits and functional styleReplacing procedural code with functional code

This LM317 diagram doesn't make any sense to me

Old story about earthman travelling Martian canal by boat

What was the nature of the known bugs in the Space Shuttle software?

Examples of fluid (including air) being used to transmit digital data?

What does the multimeter dial do internally?

What's the difference between a type and a kind?

3-way switches no longer serving their purpose

How do I talk to my wife about unrealistic expectations?

Was it ever illegal to name a pig "Napoleon" in France?

Is it possible for a character at any level to cast all 44 Cantrips in one week without Magic Items?

QR codes, do people use them?

What purpose does mercury dichloride have in fireworks?

Who goes first? Person disembarking bus or the bicycle?

How to reclaim personal item I've lent to the office without burning bridges?

Array or vector? Two dimensional array or matrix?

How to say "is going" in Russian in "this game is going to perish"

Calculate the largest palindromic number from the product of two 6-digit numbers (100000 to 999999)

How do I explain that I don't want to maintain old projects?

Was the 45.9°C temperature in France in June 2019 the highest ever recorded in France?

Did William Shakespeare hide things in his writings?

What happens if a short can't be covered?

How can I use my cell phone's light as a reading light?

How to have a filled pattern

Replacing loop with functional style



Replacing loop with functional style


Functional style using lazy lists?Can this code be written in a more functional styleProgramming a numerical method in the functional styleGoing full functional (Haskell style)Replace For-loop with functional codeReplacing a for-loop with something functionalElegant functional equivalent to a nested loop?Delimited Continuations: Easy? or Fundamentally Difficult?RealDigits and functional styleReplacing procedural code with functional code






.everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty margin-bottom:0;








3












$begingroup$


I keep hearing that one should avoid loops in Mathematica and try to write everything in functional style. I've seen few examples of how this done on here, but I could't apply to my problem successfully. It would be great to pick up new ideas of doing it.



Some data for consistency:



X = 1, 2, 3, 4;
History = 1;
SomeVals = ;
SomeFunction[x_, y_] := x, x + y;


I'm trying to rewrite the following loop into functional style:



For[i = 1, i <= Length@X, i++,
val, History = SomeFunction[X[[i]]^2, History];
AppendTo[SomeVals, val];
]









share|improve this question









$endgroup$











  • $begingroup$
    I'm confused about what you're trying to do. Particularly, I don't understand what you intended History to be used for. The output of SomeVals appears to be 1,4,9,16, which is simply the square of the elements in X. That's trivial to implement (X^2), but I don't think that's what you intended.
    $endgroup$
    – Cassini
    9 hours ago

















3












$begingroup$


I keep hearing that one should avoid loops in Mathematica and try to write everything in functional style. I've seen few examples of how this done on here, but I could't apply to my problem successfully. It would be great to pick up new ideas of doing it.



Some data for consistency:



X = 1, 2, 3, 4;
History = 1;
SomeVals = ;
SomeFunction[x_, y_] := x, x + y;


I'm trying to rewrite the following loop into functional style:



For[i = 1, i <= Length@X, i++,
val, History = SomeFunction[X[[i]]^2, History];
AppendTo[SomeVals, val];
]









share|improve this question









$endgroup$











  • $begingroup$
    I'm confused about what you're trying to do. Particularly, I don't understand what you intended History to be used for. The output of SomeVals appears to be 1,4,9,16, which is simply the square of the elements in X. That's trivial to implement (X^2), but I don't think that's what you intended.
    $endgroup$
    – Cassini
    9 hours ago













3












3








3





$begingroup$


I keep hearing that one should avoid loops in Mathematica and try to write everything in functional style. I've seen few examples of how this done on here, but I could't apply to my problem successfully. It would be great to pick up new ideas of doing it.



Some data for consistency:



X = 1, 2, 3, 4;
History = 1;
SomeVals = ;
SomeFunction[x_, y_] := x, x + y;


I'm trying to rewrite the following loop into functional style:



For[i = 1, i <= Length@X, i++,
val, History = SomeFunction[X[[i]]^2, History];
AppendTo[SomeVals, val];
]









share|improve this question









$endgroup$




I keep hearing that one should avoid loops in Mathematica and try to write everything in functional style. I've seen few examples of how this done on here, but I could't apply to my problem successfully. It would be great to pick up new ideas of doing it.



Some data for consistency:



X = 1, 2, 3, 4;
History = 1;
SomeVals = ;
SomeFunction[x_, y_] := x, x + y;


I'm trying to rewrite the following loop into functional style:



For[i = 1, i <= Length@X, i++,
val, History = SomeFunction[X[[i]]^2, History];
AppendTo[SomeVals, val];
]






functions functional-style






share|improve this question













share|improve this question











share|improve this question




share|improve this question










asked 9 hours ago









maxgo2maxgo2

583 bronze badges




583 bronze badges











  • $begingroup$
    I'm confused about what you're trying to do. Particularly, I don't understand what you intended History to be used for. The output of SomeVals appears to be 1,4,9,16, which is simply the square of the elements in X. That's trivial to implement (X^2), but I don't think that's what you intended.
    $endgroup$
    – Cassini
    9 hours ago
















  • $begingroup$
    I'm confused about what you're trying to do. Particularly, I don't understand what you intended History to be used for. The output of SomeVals appears to be 1,4,9,16, which is simply the square of the elements in X. That's trivial to implement (X^2), but I don't think that's what you intended.
    $endgroup$
    – Cassini
    9 hours ago















$begingroup$
I'm confused about what you're trying to do. Particularly, I don't understand what you intended History to be used for. The output of SomeVals appears to be 1,4,9,16, which is simply the square of the elements in X. That's trivial to implement (X^2), but I don't think that's what you intended.
$endgroup$
– Cassini
9 hours ago




$begingroup$
I'm confused about what you're trying to do. Particularly, I don't understand what you intended History to be used for. The output of SomeVals appears to be 1,4,9,16, which is simply the square of the elements in X. That's trivial to implement (X^2), but I don't think that's what you intended.
$endgroup$
– Cassini
9 hours ago










1 Answer
1






active

oldest

votes


















4












$begingroup$

This is precisely the function of FoldPairList:



SomeVals = FoldPairList[SomeFunction[#2^2, #1] &, 1, X]


Let's do this with a more complex example to show that it works in general:



X = Array[x, 10];
History = 1;
SomeVals = ;
SomeFunction[x_, y_] := a[x, y], b[x, y]

For[i = 1, i <= Length@X,
i++, val, History = SomeFunction[X[[i]]^2, History];
AppendTo[SomeVals, val];]

SomeVals == FoldPairList[SomeFunction[#2^2, #1] &, 1, X]
(* True *)





share|improve this answer











$endgroup$















    Your Answer








    StackExchange.ready(function()
    var channelOptions =
    tags: "".split(" "),
    id: "387"
    ;
    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',
    autoActivateHeartbeat: false,
    convertImagesToLinks: false,
    noModals: true,
    showLowRepImageUploadWarning: true,
    reputationToPostImages: null,
    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
    );



    );













    draft saved

    draft discarded


















    StackExchange.ready(
    function ()
    StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f201632%2freplacing-loop-with-functional-style%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









    4












    $begingroup$

    This is precisely the function of FoldPairList:



    SomeVals = FoldPairList[SomeFunction[#2^2, #1] &, 1, X]


    Let's do this with a more complex example to show that it works in general:



    X = Array[x, 10];
    History = 1;
    SomeVals = ;
    SomeFunction[x_, y_] := a[x, y], b[x, y]

    For[i = 1, i <= Length@X,
    i++, val, History = SomeFunction[X[[i]]^2, History];
    AppendTo[SomeVals, val];]

    SomeVals == FoldPairList[SomeFunction[#2^2, #1] &, 1, X]
    (* True *)





    share|improve this answer











    $endgroup$

















      4












      $begingroup$

      This is precisely the function of FoldPairList:



      SomeVals = FoldPairList[SomeFunction[#2^2, #1] &, 1, X]


      Let's do this with a more complex example to show that it works in general:



      X = Array[x, 10];
      History = 1;
      SomeVals = ;
      SomeFunction[x_, y_] := a[x, y], b[x, y]

      For[i = 1, i <= Length@X,
      i++, val, History = SomeFunction[X[[i]]^2, History];
      AppendTo[SomeVals, val];]

      SomeVals == FoldPairList[SomeFunction[#2^2, #1] &, 1, X]
      (* True *)





      share|improve this answer











      $endgroup$















        4












        4








        4





        $begingroup$

        This is precisely the function of FoldPairList:



        SomeVals = FoldPairList[SomeFunction[#2^2, #1] &, 1, X]


        Let's do this with a more complex example to show that it works in general:



        X = Array[x, 10];
        History = 1;
        SomeVals = ;
        SomeFunction[x_, y_] := a[x, y], b[x, y]

        For[i = 1, i <= Length@X,
        i++, val, History = SomeFunction[X[[i]]^2, History];
        AppendTo[SomeVals, val];]

        SomeVals == FoldPairList[SomeFunction[#2^2, #1] &, 1, X]
        (* True *)





        share|improve this answer











        $endgroup$



        This is precisely the function of FoldPairList:



        SomeVals = FoldPairList[SomeFunction[#2^2, #1] &, 1, X]


        Let's do this with a more complex example to show that it works in general:



        X = Array[x, 10];
        History = 1;
        SomeVals = ;
        SomeFunction[x_, y_] := a[x, y], b[x, y]

        For[i = 1, i <= Length@X,
        i++, val, History = SomeFunction[X[[i]]^2, History];
        AppendTo[SomeVals, val];]

        SomeVals == FoldPairList[SomeFunction[#2^2, #1] &, 1, X]
        (* True *)






        share|improve this answer














        share|improve this answer



        share|improve this answer








        edited 9 hours ago

























        answered 9 hours ago









        RomanRoman

        12.7k1 gold badge19 silver badges50 bronze badges




        12.7k1 gold badge19 silver badges50 bronze badges



























            draft saved

            draft discarded
















































            Thanks for contributing an answer to Mathematica Stack Exchange!


            • Please be sure to answer the question. Provide details and share your research!

            But avoid


            • Asking for help, clarification, or responding to other answers.

            • Making statements based on opinion; back them up with references or personal experience.

            Use MathJax to format equations. MathJax reference.


            To learn more, see our tips on writing great answers.




            draft saved


            draft discarded














            StackExchange.ready(
            function ()
            StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f201632%2freplacing-loop-with-functional-style%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

            Invision Community Contents History See also References External links Navigation menuProprietaryinvisioncommunity.comIPS Community ForumsIPS Community Forumsthis blog entry"License Changes, IP.Board 3.4, and the Future""Interview -- Matt Mecham of Ibforums""CEO Invision Power Board, Matt Mecham Is a Liar, Thief!"IPB License Explanation 1.3, 1.3.1, 2.0, and 2.1ArchivedSecurity Fixes, Updates And Enhancements For IPB 1.3.1Archived"New Demo Accounts - Invision Power Services"the original"New Default Skin"the original"Invision Power Board 3.0.0 and Applications Released"the original"Archived copy"the original"Perpetual licenses being done away with""Release Notes - Invision Power Services""Introducing: IPS Community Suite 4!"Invision Community Release Notes

            Canceling a color specificationRandomly assigning color to Graphics3D objects?Default color for Filling in Mathematica 9Coloring specific elements of sets with a prime modified order in an array plotHow to pick a color differing significantly from the colors already in a given color list?Detection of the text colorColor numbers based on their valueCan color schemes for use with ColorData include opacity specification?My dynamic color schemes

            Tom Holland Mục lục Đầu đời và giáo dục | Sự nghiệp | Cuộc sống cá nhân | Phim tham gia | Giải thưởng và đề cử | Chú thích | Liên kết ngoài | Trình đơn chuyển hướngProfile“Person Details for Thomas Stanley Holland, "England and Wales Birth Registration Index, 1837-2008" — FamilySearch.org”"Meet Tom Holland... the 16-year-old star of The Impossible""Schoolboy actor Tom Holland finds himself in Oscar contention for role in tsunami drama"“Naomi Watts on the Prince William and Harry's reaction to her film about the late Princess Diana”lưu trữ"Holland and Pflueger Are West End's Two New 'Billy Elliots'""I'm so envious of my son, the movie star! British writer Dominic Holland's spent 20 years trying to crack Hollywood - but he's been beaten to it by a very unlikely rival"“Richard and Margaret Povey of Jersey, Channel Islands, UK: Information about Thomas Stanley Holland”"Tom Holland to play Billy Elliot""New Billy Elliot leaving the garage"Billy Elliot the Musical - Tom Holland - Billy"A Tale of four Billys: Tom Holland""The Feel Good Factor""Thames Christian College schoolboys join Myleene Klass for The Feelgood Factor""Government launches £600,000 arts bursaries pilot""BILLY's Chapman, Holland, Gardner & Jackson-Keen Visit Prime Minister""Elton John 'blown away' by Billy Elliot fifth birthday" (video with John's interview and fragments of Holland's performance)"First News interviews Arrietty's Tom Holland"“33rd Critics' Circle Film Awards winners”“National Board of Review Current Awards”Bản gốc"Ron Howard Whaling Tale 'In The Heart Of The Sea' Casts Tom Holland"“'Spider-Man' Finds Tom Holland to Star as New Web-Slinger”lưu trữ“Captain America: Civil War (2016)”“Film Review: ‘Captain America: Civil War’”lưu trữ“‘Captain America: Civil War’ review: Choose your own avenger”lưu trữ“The Lost City of Z reviews”“Sony Pictures and Marvel Studios Find Their 'Spider-Man' Star and Director”“‘Mary Magdalene’, ‘Current War’ & ‘Wind River’ Get 2017 Release Dates From Weinstein”“Lionsgate Unleashing Daisy Ridley & Tom Holland Starrer ‘Chaos Walking’ In Cannes”“PTA's 'Master' Leads Chicago Film Critics Nominations, UPDATED: Houston and Indiana Critics Nominations”“Nominaciones Goya 2013 Telecinco Cinema – ENG”“Jameson Empire Film Awards: Martin Freeman wins best actor for performance in The Hobbit”“34th Annual Young Artist Awards”Bản gốc“Teen Choice Awards 2016—Captain America: Civil War Leads Second Wave of Nominations”“BAFTA Film Award Nominations: ‘La La Land’ Leads Race”“Saturn Awards Nominations 2017: 'Rogue One,' 'Walking Dead' Lead”Tom HollandTom HollandTom HollandTom Hollandmedia.gettyimages.comWorldCat Identities300279794no20130442900000 0004 0355 42791085670554170004732cb16706349t(data)XX5557367