Subtracting the last elements in each raw in two lists











up vote
5
down vote

favorite












There are two lists:



list1 = {{1, 2, 4}, {1, 3, 5}, {2, 5, 7}};

list2 = {{1, 2, 7}, {1, 3, 3}, {2, 5, 6}};


How can we subtract the last number of each raw in list2 from list1 as



diff = {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}





list-manipulation







share|improve this question




























    up vote
    5
    down vote

    favorite












    There are two lists:



    list1 = {{1, 2, 4}, {1, 3, 5}, {2, 5, 7}};
    
list2 = {{1, 2, 7}, {1, 3, 3}, {2, 5, 6}};


    How can we subtract the last number of each raw in list2 from list1 as



    diff = {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}





    list-manipulation







    share|improve this question


























      up vote
      5
      down vote

      favorite









      up vote
      5
      down vote

      favorite











      There are two lists:



      list1 = {{1, 2, 4}, {1, 3, 5}, {2, 5, 7}};
      
list2 = {{1, 2, 7}, {1, 3, 3}, {2, 5, 6}};


      How can we subtract the last number of each raw in list2 from list1 as



      diff = {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}





      list-manipulation







      share|improve this question















      There are two lists:



      list1 = {{1, 2, 4}, {1, 3, 5}, {2, 5, 7}};
      
list2 = {{1, 2, 7}, {1, 3, 3}, {2, 5, 6}};


      How can we subtract the last number of each raw in list2 from list1 as



      diff = {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}





      list-manipulation




      list-manipulation






      share|improve this question















      share|improve this question













      share|improve this question




      share|improve this question








      edited 10 hours ago









      kglr

      172k8194399




      172k8194399










      asked 13 hours ago









      monfneg

      1286




      1286






















          3 Answers
          3






          active

          oldest

          votes

















          up vote
          6
          down vote



          accepted










          diff = list1;
          
diff[[All, -1]] = Subtract[list2[[All, -1]], list1[[All, -1]]];
          
diff



          {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}







          share|improve this answer




























            up vote
            2
            down vote













            Try this:



            Transpose[
            
 Append[Transpose[list1 ][[1 ;; 2]], 
            
  Last[Transpose[list2 ] - Transpose[list1 ]]]]
            

            
(*  {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}   *)


            Have fun!






            share|improve this answer




























              up vote
              2
              down vote













              Another solution:



              list1 // ReplacePart[ {i_, 3} :> Differences[ {list1, list2}, {1, 0} ][[ 1, i, 3]] ]



              {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}







              share|improve this answer





















                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',
                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%2f186498%2fsubtracting-the-last-elements-in-each-raw-in-two-lists%23new-answer', 'question_page');
                }
                );

                Post as a guest















                Required, but never shown

























                3 Answers
                3






                active

                oldest

                votes








                3 Answers
                3






                active

                oldest

                votes









                active

                oldest

                votes






                active

                oldest

                votes








                up vote
                6
                down vote



                accepted










                diff = list1;
                
diff[[All, -1]] = Subtract[list2[[All, -1]], list1[[All, -1]]];
                
diff



                {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}







                share|improve this answer

























                  up vote
                  6
                  down vote



                  accepted










                  diff = list1;
                  
diff[[All, -1]] = Subtract[list2[[All, -1]], list1[[All, -1]]];
                  
diff



                  {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}







                  share|improve this answer























                    up vote
                    6
                    down vote



                    accepted







                    up vote
                    6
                    down vote



                    accepted






                    diff = list1;
                    
diff[[All, -1]] = Subtract[list2[[All, -1]], list1[[All, -1]]];
                    
diff



                    {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}







                    share|improve this answer












                    diff = list1;
                    
diff[[All, -1]] = Subtract[list2[[All, -1]], list1[[All, -1]]];
                    
diff



                    {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}








                    share|improve this answer












                    share|improve this answer



                    share|improve this answer










                    answered 13 hours ago









                    kglr

                    172k8194399




                    172k8194399






















                        up vote
                        2
                        down vote













                        Try this:



                        Transpose[
                        
 Append[Transpose[list1 ][[1 ;; 2]], 
                        
  Last[Transpose[list2 ] - Transpose[list1 ]]]]
                        

                        
(*  {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}   *)


                        Have fun!






                        share|improve this answer

























                          up vote
                          2
                          down vote













                          Try this:



                          Transpose[
                          
 Append[Transpose[list1 ][[1 ;; 2]], 
                          
  Last[Transpose[list2 ] - Transpose[list1 ]]]]
                          

                          
(*  {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}   *)


                          Have fun!






                          share|improve this answer























                            up vote
                            2
                            down vote










                            up vote
                            2
                            down vote









                            Try this:



                            Transpose[
                            
 Append[Transpose[list1 ][[1 ;; 2]], 
                            
  Last[Transpose[list2 ] - Transpose[list1 ]]]]
                            

                            
(*  {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}   *)


                            Have fun!






                            share|improve this answer












                            Try this:



                            Transpose[
                            
 Append[Transpose[list1 ][[1 ;; 2]], 
                            
  Last[Transpose[list2 ] - Transpose[list1 ]]]]
                            

                            
(*  {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}   *)


                            Have fun!







                            share|improve this answer












                            share|improve this answer



                            share|improve this answer










                            answered 13 hours ago









                            Alexei Boulbitch

                            21.1k2369




                            21.1k2369






















                                up vote
                                2
                                down vote













                                Another solution:



                                list1 // ReplacePart[ {i_, 3} :> Differences[ {list1, list2}, {1, 0} ][[ 1, i, 3]] ]



                                {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}







                                share|improve this answer

























                                  up vote
                                  2
                                  down vote













                                  Another solution:



                                  list1 // ReplacePart[ {i_, 3} :> Differences[ {list1, list2}, {1, 0} ][[ 1, i, 3]] ]



                                  {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}







                                  share|improve this answer























                                    up vote
                                    2
                                    down vote










                                    up vote
                                    2
                                    down vote









                                    Another solution:



                                    list1 // ReplacePart[ {i_, 3} :> Differences[ {list1, list2}, {1, 0} ][[ 1, i, 3]] ]



                                    {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}







                                    share|improve this answer












                                    Another solution:



                                    list1 // ReplacePart[ {i_, 3} :> Differences[ {list1, list2}, {1, 0} ][[ 1, i, 3]] ]



                                    {{1, 2, 3}, {1, 3, -2}, {2, 5, -1}}








                                    share|improve this answer












                                    share|improve this answer



                                    share|improve this answer










                                    answered 12 hours ago









                                    gwr

                                    7,04622457




                                    7,04622457






























                                         

                                        draft saved


                                        draft discarded



















































                                         


                                        draft saved


                                        draft discarded














                                        StackExchange.ready(
                                        function () {
                                        StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f186498%2fsubtracting-the-last-elements-in-each-raw-in-two-lists%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

                                        flock() on closed filehandle LOCK_FILE at /usr/bin/apt-mirror

                                        Image
                                        0 I recently upgraded an Ubuntu 16.04 virtual machine to 18.04. I regularly use this VM to run apt-mirror at school on their high-speed internet, then rsync these files to my rack-mount server at home for updating multiple computers at home without wasting the tiny amount of bandwidth I have there. Since updating I can't get apt-mirror to run on my VM. It keeps giving the error: flock() on closed filehandle LOCK_FILE at /usr/bin/apt-mirror line 214 immediately followed by: apt-mirror is already running, exiting at /usr/bin/apt-mirror line 217 apt-mirror is NOT running, and does not have a cron job. I've tried rebooting, and even looked for the old-style lockfile to delete, but I guess that method is no longer used. Is there some way to force unlock this so I can run apt-mirror? UPDATE: So... I f
                                        Read more

                                        Mangá

                                        Image
                                          Nota:  Não confundir com Manga. Mangás e Animes Mangá Mangaká • Tankōbon Film comic La nouvelle manga Mangá original em inglês Anime História Animação influenciada por animes • Filler • OVA • Seiyū Públicos Kodomo • Shōjo • Shōnen Josei • Seinen Gêneros Mahō shōjo • Mecha • Harém Ecchi • Hentai ( Yaoi • Yuri Futanari • Shotacon • Lolicon Toddlercon ) Termos Bishōjo • Chibi • Fan service Gaiden • Kawaii • Kaitō • Light novel Mahō shōnen • Moe (antropomorfismo • Kemonomimi Nekomimi ) • Super deformed Omake • Tsundere • Yonkoma Listas Mangás • Animes • Ecchi • Mangaka • Estúdios • Revistas Fãs ( otaku ) Anime Music Video Convenções • Cosplay Dōjinshi • Fansub • Fandub • Fujoshi OS-tan • Scanlation Portal de Anime e mangá v d e O mangá (português brasileiro) ou manga (português europeu) [ 1 ] (em japonês: 漫画 , manga ? , lit. “história em quadrinhos”) , é a
                                        Read more

                                         ⁒  ․,‪⁊‑⁙ ⁖, ⁇‒※‌, †,⁖‗‌⁝    ‾‸⁘,‖⁔⁣,⁂‾
”‑,‥–,‬ ,⁀‹⁋‴⁑ ‒ ,‴⁋”‼ ⁨,‷⁔„ ‰′,‐‚ ‥‡‎“‷⁃⁨⁅⁣,⁔
⁇‘⁔⁡⁏⁌⁡‿‶‏⁨ ⁣⁕⁖⁨⁩⁥‽⁀  ‴‬⁜‟ ⁃‣‧⁕‮ …‍⁨‴ ⁩,⁚⁖‫ ,‵ ⁀,‮⁝‣‣ ⁑  ⁂– ․, ‾‽ ‏⁁“⁗‸ ‾… ‹‡⁌⁎‸‘ ‡⁏⁌‪ ‵⁛ ‎⁨ ―⁦⁤⁄⁕

                                        ⁉…‧ ⁩,“⁡‹⁃‽⁞•,⁠‚  ⁓⁎  ⁜ ‴ ⁥⁡⁎‭,‍‑⁁⁌⁦ ⁁‟⁙‥‒“⁈ ,‪⁧ ⁙‿⁇⁦,⁝‘ ⁎“⁘‫‪,‗‹‛‹⁒  ⁇⁄‗‒•“⁇   ‐ ⁂
‘‛, ‶⁦ ⁇ ​⁞‧ 
,⁏ …‹–⁗⁡⁘⁄ ‏‿‬‟″ ‏⁢⁦⁗⁚⁝‬⁢⁏,⁧″⁍′‖⁂※⁄‘– ‵⁡ ‭⁢⁚,⁅‧,‼‛⁗,⁡⁗“⁔⁃⁍‷⁏‗‱⁌‚  
•⁝ ‚‒ ‥‰  ′⁌, ⁄, ⁛—‭‑”⁂,⁑ ‡⁨‴⁖⁙…,‑, ,⁎,․‣‥  ‴‎⁎,″‛⁎‭‿ ⁤ ‷‾‼‖,⁠⁊‾,⁦“‗‑‌†,⁙,†⁝′ 
,―‚․‘, ⁢  ‿‌,⁀„‣,⁌,‭‖ ⁆“‪,―  ⁀ ⁃,
‷⁥,​,‟‗⁄⁉⁐⁗―
,‮⁢⁩⁆⁣‹‭⁅ ⁝‾‏‭⁖ ⁕⁄‷,†‟‒ ⁣‹,​…​,⁤⁂⁨‮⁎⁙–‟‼ ⁍‱‱,‽,‫‽‣ ⁒,⁨ ⁄ ⁝”„‿‑‎⁈‿
 ⁀‛‼‟ ⁑“,⁩​ ‒
–⁡…⁢ ⁂ ⁈⁎,‵‡,⁛,,‱⁧⁋,․‬⁄ “,⁄‴⁊  ‗―,‵⁙⁔—⁀ —  ⁀‬‬ ‒⁋‼⁀― ,⁌′ ‍‶ ’
                                        Read more