Frequency Calculator

[biobrain]

I have versy simple data like

1
2
5
6
2
8
9
10
1
3
200
50
3
2
1


Out of these I want to list each unique value and its frequency i.e how many time it is in the data

e.g

2 is found 3 time
50 is found 1 time
200 is found 1 time

 

[sycoogtit]

What have you tried so far?

--

http://MaladorSoftware.com

http://MyUniversityTutor.com

http://MyUniversityBooks.com

 

[Kirsle]

my @input = <DATA>;
chomp @input;

# count instances of each item
my %dupes = ();
foreach (@input) {
   $dupes{$_}++;
}

# sort them by no. of duplicates descending and print
foreach my $dup (sort { $dupes{$b} <=> $dupes{$a} } keys %dupes) {
   print "$dup was found $dupes{$dup} times\n";
}

__DATA__
1
2
5
6
2
8
9
10
1
3
200
50
3
2
1

C:\Documents and Settings\Kirsle\My Documents>perl test.pl
2 was found 3 times
1 was found 3 times
3 was found 2 times
6 was found 1 times
50 was found 1 times
9 was found 1 times
8 was found 1 times
200 was found 1 times
10 was found 1 times
5 was found 1 times

-------------
Cuvou.com | My personal homepage

perl -e '$|=$i=1;print" oo\n<|>\n_|_";x:sleep$|;print"\b",$i++%2?"/":"_";goto x;'

 

[KevinADC]

What have you tried so far?

A man after my own heart.

------------------------------------------
- Kevin, perl coder unexceptional!

 

[biobrain]

The code by Kirsle (Programmer) works perfectly
for me. Thanks a lot.

Thanks a lot for all others as well specially for KevinADC as I found him very helpful all the time.