thanks..this seem to do it :

  ($a,$b) = rle qsort $data;
  $rv = pdl $a, $b;

the only thing which is no big deal is that it seems to if I process
100 elements and I get let say 5 elem only after i remove the
repetitions it still returns 100 elements instead 5..

pdl> p $rv->transpose

[
 [-5  1]
 [-3  3]
 [-2  7]
 [-1 17]
 [ 0 46]
 [ 1 17]
 [ 2  3]
 [ 3  1]
 [ 4  2]
 [ 5  1]
 [ 6  1]
 [10  1]
 [ 0  0]
 [ 0  0]

...... alot of zeros after this ... :)

-------| http://ifni.co


On Mon, Feb 10, 2014 at 9:34 PM, Craig DeForest
<[email protected]> wrote:
> Check out rle() -- it is in the standard PDL releases!
>
> (Mobile)
>
>
>> On Feb 10, 2014, at 7:09 PM, mraptor <[email protected]> wrote:
>>
>> Do you guys, know a way to count repeated numbers. f.e. let say I have
>> this pdl :
>>
>> [-1 0 0 0 0 0 0 0 0 -1 0 1 1 -2 10 -2 1 2 0 0 0 1 1 -1 0 1 0 0 0 0 0
>> -2 0 0 -1 0 1 -1 -1 -2 -1 -1 0 0 1 -1 -1 0 0 0 1 0 0 1 -1 -1 1 1 -3 -1
>> 0 2 0 6 3 4 5 0 -1 0 -1 -3 -2 0 1 0 1 0 0 4 -3 -5 -2 2 -1 0 1 0 -2 1 1
>> 0 0 0 0 0 0 0 0 -1]
>>
>> how would I create a pdl than contains the number and how many times
>> the number occurred ?
>> What about if I wanted to count numbers in a range...let say the pdl
>> had numbers between 1 and 100 and I wanted to count the numbers
>> between 1-10, 11-20, 21-30,...
>>
>> thanks
>>
>>
>> -------| http://ifni.co
>>
>> _______________________________________________
>> Perldl mailing list
>> [email protected]
>> http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
>>

_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl

Reply via email to