From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,32d9aa9d79729b31
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII
Received: by 10.68.220.230 with SMTP id pz6mr13720574pbc.3.1340642998395;
        Mon, 25 Jun 2012 09:49:58 -0700 (PDT)
Path: 
 l9ni18834pbj.0!nntp.google.com!news2.google.com!news.glorb.com!feeder.erje.net!fdn.fr!feeder.news.orange.fr!not-for-mail
Message-ID: <4FE896B5.10405@obry.net>
Date: Mon, 25 Jun 2012 18:49:57 +0200
From: Pascal Obry <pascal@obry.net>
Organization: Home - http://www.obry.net
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.0; fr-FR;
 rv:1.8.1.22) Gecko/20090605 Thunderbird/2.0.0.22 Mnenhy/0.7.5.0
MIME-Version: 1.0
Newsgroups: comp.lang.ada
To: nma@12000.org
Subject: Re: Any easy/build-in construct to extract submatrices from larger
 matrix?
References: <js6hof$o9g$1@speranza.aioe.org>
 <nrn0zo41ylee.3jz8xvqubzuv$.dlg@40tude.net> <js6kla$ugn$1@speranza.aioe.org>
 <1xzo3825h9yt7$.45flobqwlel6.dlg@40tude.net> <js70fg$pse$1@speranza.aioe.org>
 <mcrol4yvkaqn.1cyvzd9r1sp8k.dlg@40tude.net> <js7ht1$56c$1@speranza.aioe.org>
 <js8tsr$hnb$1@dont-email.me> <js90lt$6ov$1@speranza.aioe.org>
In-Reply-To: <js90lt$6ov$1@speranza.aioe.org>
NNTP-Posting-Date: 25 Jun 2012 18:49:57 CEST
NNTP-Posting-Host: 82.124.200.162
X-Trace: 1340642997 reader.news.orange.fr 6156 82.124.200.162:3815
X-Complaints-To: abuse@orange.fr
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 8bit
Date: 2012-06-25T18:49:57+02:00
List-Id: <comp.lang.ada>

Le 25/06/2012 08:32, Nasser M. Abbasi a �crit :
> In Mathematica for example, I do this whole operation in one line:
> 
> ---------------------------
> Table[ReplacePart[A,{{i},{i,_},{_,j}}:>Sequence[]],{i,nRow},{j,nCol}];
> ---------------------------

Which is just unreadable if you ask me...

Pascal.

-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|    http://www.obry.net  -  http://v2p.fr.eu.org
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver keys.gnupg.net --recv-key F949BD3B