fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. while(<>){
  4. 	chomp;
  5. 	map{$h{$_}++}split/ /;
  6. }
  7.  
  8. map{print"$_:$h{$_}\n"}sort keys %h;
  9.  
Success #stdin #stdout 0s 4876KB
comments (?)
stdin
copy 
aaa bbb ccc ddd eee fff
fff aaa eee
eee kkk lll
eee lll bbb
ooo ppp qqq
stdout
copy 
aaa:2
bbb:2
ccc:1
ddd:1
eee:4
fff:2
kkk:1
lll:2
ooo:1
ppp:1
qqq:1
https://ideone.com/SxjvL6
language:
Perl (perl 5.28.1)
created:
3 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!