PackedArrayの高速リスト製品サイン？

Question

my previous questionの続きとして、PackedArrayのリスト製品を見つけるSimonの方法は高速ですが、負の値では機能しません。

これは、Absで最小限の時間ペナルティで「修正」することができますが、記号が失われているため、製品記号を別途見つける必要があります。

私が試した最速の方法はEvenQ @ Total @ UnitStep[-lst]

lst = RandomReal[{-2, 2}, 5000000]; 

Do[ 
    EvenQ@Total@UnitStep[-lst], 
    {30} 
] // Timing 

Out[]= {3.062, Null} 

では、より高速な方法はありますか？

Answer 1

Rule@@@を使用して関連用語を抽出することのナンセンスを除けば、これはソリューションより2倍以上速く、より明確にわかります。各記号の数字要素を数えます。タイミング（出力）を比較するには

EvenQ[-1 /. Rule@@@Tally@Sign[lst]] 

In[1]:= lst=RandomReal[{-2,2},5000000]; 
     s=t={}; 
     Do[AppendTo[s,EvenQ@Total@UnitStep[-lst]],{10}];//Timing 
     Do[AppendTo[t,EvenQ[-1/.Rule@@@Tally@Sign[lst]]],{10}];//Timing 
     s==t 
Out[3]= {2.11,Null} 
Out[4]= {0.96,Null} 
Out[5]= True 

Answer 2

後半・ツー・パーティのポストビット：あなたは高速で、最終的に興味を持っている場合は、Cコンパイル対象とCompileは約のようです二回速く、これまで掲載最速のソリューションよりも（Tally - Signベース）：ここでは

fn = Compile[{{l, _Real, 1}}, 
    Module[{sumneg = 0}, 
    Do[If[i < 0, sumneg++], {i, l}]; 
    EvenQ[sumneg]], CompilationTarget -> "C", 
    RuntimeOptions -> "Speed"]; 

は、私のマシン上のタイミングです：

In[85]:= lst = RandomReal[{-2, 2}, 5000000]; 
s = t = q = {}; 
Do[AppendTo[s, EvenQ@Total@UnitStep[-lst]], {10}]; // Timing 
Do[AppendTo[t, EvenQ[-1 /. Rule @@@ Tally@Sign[lst]]], {10}]; // Timing 
Do[AppendTo[q, fn [lst]], {10}]; // Timing 
s == t == q 

Out[87]= {0.813, Null} 

Out[88]= {0.515, Null} 

Out[89]= {0.266, Null} 

Out[90]= True