Cleanest way to take a[b[c]] to a[b][c]












2












$begingroup$


As indicated in the title I'm looking for the fastest way to transform a[b[c]] into a[b][c], and the natural generalization to an arbitrary chaining of arguments. I'm sure there's got to be a convenient way that I've overlooked.



In my cases a, b, and c can be any expression with any complicated internal structure they like.






function-construction







share|improve this question











$endgroup$








  • 1




    $begingroup$
    The solution likely would use Operate.
    $endgroup$
    – QuantumDot
    57 mins ago










  • $begingroup$
    f = Curry[Replace][a_[b_[c_]] :> a[b][c]] also works, so that a[b[c]] // f gives the desired result.
    $endgroup$
    – Shredderroy
    48 mins ago










  • $begingroup$
    How about generalizing the question to taking a[b[c[d[...]]]] to a[b][c][d]...?
    $endgroup$
    – David G. Stork
    36 mins ago












  • $begingroup$
    @DavidG.Stork sorry I thought that was implicit
    $endgroup$
    – b3m2a1
    31 mins ago










  • $begingroup$
    @b3m2a1: Oh.... well I recommend you alter the question... and seem my new solution.
    $endgroup$
    – David G. Stork
    28 mins ago
















2












$begingroup$


As indicated in the title I'm looking for the fastest way to transform a[b[c]] into a[b][c], and the natural generalization to an arbitrary chaining of arguments. I'm sure there's got to be a convenient way that I've overlooked.



In my cases a, b, and c can be any expression with any complicated internal structure they like.






function-construction







share|improve this question











$endgroup$








  • 1




    $begingroup$
    The solution likely would use Operate.
    $endgroup$
    – QuantumDot
    57 mins ago










  • $begingroup$
    f = Curry[Replace][a_[b_[c_]] :> a[b][c]] also works, so that a[b[c]] // f gives the desired result.
    $endgroup$
    – Shredderroy
    48 mins ago










  • $begingroup$
    How about generalizing the question to taking a[b[c[d[...]]]] to a[b][c][d]...?
    $endgroup$
    – David G. Stork
    36 mins ago












  • $begingroup$
    @DavidG.Stork sorry I thought that was implicit
    $endgroup$
    – b3m2a1
    31 mins ago










  • $begingroup$
    @b3m2a1: Oh.... well I recommend you alter the question... and seem my new solution.
    $endgroup$
    – David G. Stork
    28 mins ago














2












2








2





$begingroup$


As indicated in the title I'm looking for the fastest way to transform a[b[c]] into a[b][c], and the natural generalization to an arbitrary chaining of arguments. I'm sure there's got to be a convenient way that I've overlooked.



In my cases a, b, and c can be any expression with any complicated internal structure they like.






function-construction







share|improve this question











$endgroup$




As indicated in the title I'm looking for the fastest way to transform a[b[c]] into a[b][c], and the natural generalization to an arbitrary chaining of arguments. I'm sure there's got to be a convenient way that I've overlooked.



In my cases a, b, and c can be any expression with any complicated internal structure they like.






function-construction




function-construction






share|improve this question















share|improve this question













share|improve this question




share|improve this question








edited 22 mins ago









David G. Stork

24.1k22153




24.1k22153










asked 1 hour ago









b3m2a1b3m2a1

27.2k257156




27.2k257156








  • 1




    $begingroup$
    The solution likely would use Operate.
    $endgroup$
    – QuantumDot
    57 mins ago










  • $begingroup$
    f = Curry[Replace][a_[b_[c_]] :> a[b][c]] also works, so that a[b[c]] // f gives the desired result.
    $endgroup$
    – Shredderroy
    48 mins ago










  • $begingroup$
    How about generalizing the question to taking a[b[c[d[...]]]] to a[b][c][d]...?
    $endgroup$
    – David G. Stork
    36 mins ago












  • $begingroup$
    @DavidG.Stork sorry I thought that was implicit
    $endgroup$
    – b3m2a1
    31 mins ago










  • $begingroup$
    @b3m2a1: Oh.... well I recommend you alter the question... and seem my new solution.
    $endgroup$
    – David G. Stork
    28 mins ago














  • 1




    $begingroup$
    The solution likely would use Operate.
    $endgroup$
    – QuantumDot
    57 mins ago










  • $begingroup$
    f = Curry[Replace][a_[b_[c_]] :> a[b][c]] also works, so that a[b[c]] // f gives the desired result.
    $endgroup$
    – Shredderroy
    48 mins ago










  • $begingroup$
    How about generalizing the question to taking a[b[c[d[...]]]] to a[b][c][d]...?
    $endgroup$
    – David G. Stork
    36 mins ago












  • $begingroup$
    @DavidG.Stork sorry I thought that was implicit
    $endgroup$
    – b3m2a1
    31 mins ago










  • $begingroup$
    @b3m2a1: Oh.... well I recommend you alter the question... and seem my new solution.
    $endgroup$
    – David G. Stork
    28 mins ago








1




1




$begingroup$
The solution likely would use Operate.
$endgroup$
– QuantumDot
57 mins ago




$begingroup$
The solution likely would use Operate.
$endgroup$
– QuantumDot
57 mins ago












$begingroup$
f = Curry[Replace][a_[b_[c_]] :> a[b][c]] also works, so that a[b[c]] // f gives the desired result.
$endgroup$
– Shredderroy
48 mins ago




$begingroup$
f = Curry[Replace][a_[b_[c_]] :> a[b][c]] also works, so that a[b[c]] // f gives the desired result.
$endgroup$
– Shredderroy
48 mins ago












$begingroup$
How about generalizing the question to taking a[b[c[d[...]]]] to a[b][c][d]...?
$endgroup$
– David G. Stork
36 mins ago






$begingroup$
How about generalizing the question to taking a[b[c[d[...]]]] to a[b][c][d]...?
$endgroup$
– David G. Stork
36 mins ago














$begingroup$
@DavidG.Stork sorry I thought that was implicit
$endgroup$
– b3m2a1
31 mins ago




$begingroup$
@DavidG.Stork sorry I thought that was implicit
$endgroup$
– b3m2a1
31 mins ago












$begingroup$
@b3m2a1: Oh.... well I recommend you alter the question... and seem my new solution.
$endgroup$
– David G. Stork
28 mins ago




$begingroup$
@b3m2a1: Oh.... well I recommend you alter the question... and seem my new solution.
$endgroup$
– David G. Stork
28 mins ago










2 Answers
2






active

oldest

votes


















2












$begingroup$

Operate[#[[0]], First@#] &[a[b[c]]]



a[b][c]




ClearAll[deCompose]

deCompose = Nest[Operate[#[[0]], First@#] &, #, Depth[#] - 2] &;



deCompose@a[b[c]]



a[b][c]




exp = Compose[a, b, c, d, e, f, g]



a[b[c[d[e[f[g]]]]]]




deCompose @ exp



a[b][c][d][e][f][g]







share|improve this answer











$endgroup$





















    2












    $begingroup$

    Not particularly "clean," but it works:



    Operate[Head[#], Level[#, 2][[2]]] & @ a[b[c]]


    For the full generalization:



    Nest[Operate[Head[#], Level[#, 2][[2]]] & , #, Depth[#] -2] & @
    
 a[b[c[d[e]]]]





    share|improve this answer











    $endgroup$













      Your Answer





      StackExchange.ifUsing("editor", function () {
      return StackExchange.using("mathjaxEditing", function () {
      StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
      StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
      });
      });
      }, "mathjax-editing");

      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%2f190047%2fcleanest-way-to-take-abc-to-abc%23new-answer', 'question_page');
      }
      );

      Post as a guest















      Required, but never shown

























      2 Answers
      2






      active

      oldest

      votes








      2 Answers
      2






      active

      oldest

      votes









      active

      oldest

      votes






      active

      oldest

      votes









      2












      $begingroup$

      Operate[#[[0]], First@#] &[a[b[c]]]



      a[b][c]




      ClearAll[deCompose]
      
deCompose = Nest[Operate[#[[0]], First@#] &, #, Depth[#] - 2] &;
      

      
deCompose@a[b[c]]



      a[b][c]




      exp = Compose[a, b, c, d, e, f, g]



      a[b[c[d[e[f[g]]]]]]




      deCompose @ exp



      a[b][c][d][e][f][g]







      share|improve this answer











      $endgroup$


















        2












        $begingroup$

        Operate[#[[0]], First@#] &[a[b[c]]]



        a[b][c]




        ClearAll[deCompose]
        
deCompose = Nest[Operate[#[[0]], First@#] &, #, Depth[#] - 2] &;
        

        
deCompose@a[b[c]]



        a[b][c]




        exp = Compose[a, b, c, d, e, f, g]



        a[b[c[d[e[f[g]]]]]]




        deCompose @ exp



        a[b][c][d][e][f][g]







        share|improve this answer











        $endgroup$
















          2












          2








          2





          $begingroup$

          Operate[#[[0]], First@#] &[a[b[c]]]



          a[b][c]




          ClearAll[deCompose]
          
deCompose = Nest[Operate[#[[0]], First@#] &, #, Depth[#] - 2] &;
          

          
deCompose@a[b[c]]



          a[b][c]




          exp = Compose[a, b, c, d, e, f, g]



          a[b[c[d[e[f[g]]]]]]




          deCompose @ exp



          a[b][c][d][e][f][g]







          share|improve this answer











          $endgroup$



          Operate[#[[0]], First@#] &[a[b[c]]]



          a[b][c]




          ClearAll[deCompose]
          
deCompose = Nest[Operate[#[[0]], First@#] &, #, Depth[#] - 2] &;
          

          
deCompose@a[b[c]]



          a[b][c]




          exp = Compose[a, b, c, d, e, f, g]



          a[b[c[d[e[f[g]]]]]]




          deCompose @ exp



          a[b][c][d][e][f][g]








          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited 24 mins ago

























          answered 32 mins ago









          kglrkglr

          180k9200413




          180k9200413























              2












              $begingroup$

              Not particularly "clean," but it works:



              Operate[Head[#], Level[#, 2][[2]]] & @ a[b[c]]


              For the full generalization:



              Nest[Operate[Head[#], Level[#, 2][[2]]] & , #, Depth[#] -2] & @
              
 a[b[c[d[e]]]]





              share|improve this answer











              $endgroup$


















                2












                $begingroup$

                Not particularly "clean," but it works:



                Operate[Head[#], Level[#, 2][[2]]] & @ a[b[c]]


                For the full generalization:



                Nest[Operate[Head[#], Level[#, 2][[2]]] & , #, Depth[#] -2] & @
                
 a[b[c[d[e]]]]





                share|improve this answer











                $endgroup$
















                  2












                  2








                  2





                  $begingroup$

                  Not particularly "clean," but it works:



                  Operate[Head[#], Level[#, 2][[2]]] & @ a[b[c]]


                  For the full generalization:



                  Nest[Operate[Head[#], Level[#, 2][[2]]] & , #, Depth[#] -2] & @
                  
 a[b[c[d[e]]]]





                  share|improve this answer











                  $endgroup$



                  Not particularly "clean," but it works:



                  Operate[Head[#], Level[#, 2][[2]]] & @ a[b[c]]


                  For the full generalization:



                  Nest[Operate[Head[#], Level[#, 2][[2]]] & , #, Depth[#] -2] & @
                  
 a[b[c[d[e]]]]






                  share|improve this answer














                  share|improve this answer



                  share|improve this answer








                  edited 23 mins ago

























                  answered 48 mins ago









                  David G. StorkDavid G. Stork

                  24.1k22153




                  24.1k22153






























                      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%2f190047%2fcleanest-way-to-take-abc-to-abc%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

                      Liste der Baudenkmale in Friedland (Mecklenburg)

                      Image
                      In der Liste der Baudenkmale in Friedland sind alle denkmalgeschützten Bauten der Stadt Friedland (Mecklenburg-Vorpommern) und ihrer Ortsteile aufgelistet. Grundlage ist die Veröffentlichung der Denkmalliste des Landkreises Mecklenburgische Seenplatte (Auszug) vom 28. September 2016. Inhaltsverzeichnis 1 Baudenkmale nach Ortsteilen 1.1 Friedland 1.2 Bresewitz 1.3 Brohm 1.4 Cosa 1.5 Dishley 1.6 Dishley-Ausbau 1.7 Eichhorst 1.8 Glienke 1.9 Heinrichshöh 1.10 Heinrichswalde 1.11 Jatzke 1.12 Jatzke-Meierei 1.13 Liepen 1.14 Ramelow 1.15 Schwanbeck 2 Vorgesehener Denkmalbereich 3 Quelle 4 Weblinks Baudenkmale nach Ortsteilen | Friedland | ID Lage Bezeichnung Beschreibung Bild 281 An der Kleinbahn 2 Windmühle mit Umgang 282 Anklamer Straße alter Friedhof mit Portalwand 282 Anklamer Straße drei Erbbegräbnissen und Gräbern u. a. H.A. Riemann 284
                      Read more

                      Single-Malt-Whisky

                      Image
                      Fünf verschiedene schottische Single-Malt-Whiskys Als Single-Malt-Whisky oder kürzer Single Malt werden Whiskys bezeichnet, die zwei besondere Bedingungen erfüllen: Sie stammen zum ersten aus einer einzigen Brennerei, sind also kein Verschnitt aus mehreren Whiskysorten (daher Single , deutsch: einzeln). Zum zweiten wird als Getreide ausschließlich gemälzte Gerste verwendet (deswegen Malt , deutsch: Malz). Der Zusatz Single Malt wird als Prädikat verstanden, die so ausgezeichneten Whiskys sind in aller Regel besonders hochwertig. Hinzu kommt ihre besonders lange Lagerung, die Reifungszeit währt oft ein Jahrzehnt und länger. Inhaltsverzeichnis 1 Allgemeines 2 Herkunftsländer 2.1 Schottland 2.2 Irland 2.3 Japan 2.4 Kontinentaleuropa 3 Produktionsschritte 3.1 Mälzen 3.2 Brauen 3.3 Brennen 3.4 Reifung und Finish 3.5 Abfüllung 4 Altersangaben 5 Lagerung von Whiskyflaschen 6 Geschmacksklassifikation 7 Sonstig
                      Read more

                      Czorneboh

                      Image
                      Dieser Artikel erläutert den Berg Czorneboh, für die Gottheit siehe Czorneboh (Gottheit). Czorneboh Čornobóh Berggasthof mit Turm Höhe 555,7  m ü. NHN [1] Lage Freistaat Sachsen, Deutschland Gebirge Lausitzer Bergland Dominanz 15,4 km →  Kottmar Koordinaten 51° 7′ 11″  N , 14° 31′ 31″  O 51.119722222222 14.525194444444 555.7 Koordinaten: 51° 7′ 11″  N , 14° 31′ 31″  O Gestein Granodiorit Besonderheiten Aussichtsturm Czorneboh Der Czorneboh , obersorbisch Čornobóh , ist ein Berg zwischen Hochkirch und Cunewalde in der Oberlausitz. Er gehört zu der südöstlich von Bautzen gelegenen Czorneboh-Bergkette und ist mit einer Höhe von 555,7  m ü. NHN [1] der höchste Punkt dieses Ausläufers des Lausitzer Berglandes. Er leitet als Landschaftselement die wellige Granitlandschaft der Lausitzer Vorbergzone ein. Der Gipfel des Czorneboh liegt in der Gemarkung Meschwitz (Gemeinde Hochkirch), die Czornebohbaude jedoch
                      Read more