fork download
copy 
  1. #!/usr/bin/perl
  2. for (<>) {
  3.   ($r, @a) = /([-\d]+)/g;
  4.   push @s,  $r;
  5.   for (@a) {
  6.     @b = /(\d+)/g;
  7.     $h{$_}++ for $b[0]..$b[-1]
  8.   }
  9. }
  10. @t = sort{$h{$b} <=> $h{$a}} @s;
  11. printf "$_: %d\n", $h{$_}//0 for @t;
Success #stdin #stdout 0s 5096KB
comments (?)
stdin
copy 
1:>>2
2:>>1
3:>>1-3
4:>>1,3
5:>>1,2-4
stdout
copy 
1: 4
2: 3
3: 3
4: 1
5: 0
https://ideone.com/r4tBGc
language:
Perl (perl 5.28.1)
created:
4 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!