Re: Re: function to check if array is empty
- To: mathgroup at smc.vnet.net
- Subject: [mg88455] Re: [mg88329] Re: function to check if array is empty
- From: "Jean-Marc Gulliet" <jeanmarc.gulliet at gmail.com>
- Date: Mon, 5 May 2008 06:17:53 -0400 (EDT)
- References: <fvbr6d$plc$1@smc.vnet.net> <200805020741.DAA05341@smc.vnet.net>
On Sun, May 4, 2008 at 7:22 PM, Joe Bolte <joeb at wolfram.com> wrote:
>
> On May 2, 2008, at 3:41 AM, Jean-Marc Gulliet wrote:
>
>
> > will parr wrote:
> >
> >
> > > is there a function that will check if an array is empty?
> > >
> > > i'm looking for a function to return either True (or 1), or False (or 0)
> when it checks an array. eg:
> > >
> > > X = Array[0 &, {3, 3}]
> > >
> > > then test with function (called ArrayEmpty, for example)
> > >
> > > In: ArrayEmpty[X]
> > >
> > > Out: True
> > >
> >
> > If you deal only with m x n rectangular arrays (matrices) you could use
> >
> > ArrayEmptyQ[arr_List] := MatrixQ[arr, (# == 0 &)]
> >
> > A more general function would be
> >
> > ArrayEmptyQ[arr_List] :=
> > If[Count[arr, x_ /; x != 0, -1] != 0, False, True]
> >
> > For instance,
> >
> > X = Array[0 &, {3, 3}]
> > ArrayEmptyQ[arr_List] := MatrixQ[arr, (# == 0 &)]
> > ArrayEmptyQ[X]
> > X[[1, 2]] = 1;
> > X
> > ArrayEmptyQ[X]
> >
> > {{0, 0, 0}, {0, 0, 0}, {0, 0, 0}}
> >
> > True
> >
> > {{0, 1, 0}, {0, 0, 0}, {0, 0, 0}}
> >
> > False
> >
>
> Tally provides a very fast way to test for any non-zero elements. It is
> faster than the solutions above except in where there are non-zero elements
> very close to the beginning of the array.
Hi Joe,
Nice approach. The code you posted, however, contains a small typo. I
have provided a fix; see below.
> Test Data
>
> array1=ConstantArray[0,{1000,1000}];
> array2=DiagonalMatrix[Table[1,{1000}]];
> array3=ConstantArray[0,{1000,1000}];
> array3[[1000,1000]]=1;
>
> Tally-based solution
>
> In[14]:= ZeroMatrixQ:=Tally[Flatten@#]==={0,Length@Flatten@#}&
------------------------------------------------------------------^^^---------------------------^^^
An additional pair of parentheses is required here to mach the
structure of the result returned by Tally.
> In[24]:= Timing[ZeroMatrixQ[#]]&/@{array1,array2,array3}
> Out[24]= {{0.008125,True},{0.006914,False},{0.008563,True}}
-----------------------------------------------------------------------------------^^^^^
Error: should be false. See below for the explanation and a fix.
> MatrixQ-based solution
>
> Function[array, Timing[MatrixQ[array, ((# == 0) &)]]] /@ {array1, array2,
> array3}
>
> In[29]:=
> Function[array,Timing[MatrixQ[array,((#==0)&)]]]/@{array1,array2,array3}
> Out[29]= {{0.857164,True},{0.000012,False},{0.866723,False}}
In[1]:= array1 = ConstantArray[0, {1000, 1000}];
array2 = DiagonalMatrix[Table[1, {1000}]];
array3 = ConstantArray[0, {1000, 1000}];
array3[[1000, 1000]] = 1;
Tally[Flatten@#] & /@ {array1, array2, array3}
(*Note that Tally returns *a list of list* even if there is only one
kind element that is counted. So, for a list that contains only zeros,
say ten, Tally will return {{0,10}} rather than {0,10}*)
ZeroMatrixQ := Tally[Flatten@#] === {{0, Length@Flatten@#}} &
Timing[ZeroMatrixQ[#]] & /@ {array1, array2, array3}
(*It even faster than the solution with Total Unitize*)
Function[array, Timing[Total[Unitize[array], -1] == 0]] /@ {array1,
array2, array3}
Out[5]= {{{0, 1000000}}, {{1, 1000}, {0, 999000}}, {{0, 999999}, {1,
1}}}
Out[7]= {{0.004968, True}, {0.004939, False}, {0.005611, False}}
Out[8]= {{0.016013, True}, {0.016292, False}, {0.016105, False}}
Best regards,
--
Jean-Marc
- References:
- Re: function to check if array is empty
- From: Jean-Marc Gulliet <jeanmarc.gulliet@gmail.com>
- Re: function to check if array is empty