fork download 
  1. @lines = <>;
  2.  
  3. $n=1000;
  4. $long = '';
  5. srand;
  6. # generating one random sequence of length $n:
  7. while ($n--){
  8. 	$long .= qw<( )>[int (rand()*2) ]
  9. 	}
  10.  
  11. $m;
  12. $m = qr/\((?:|(??{$m})++)*\)/;
  13.  
  14. for (@lines, $long){
  15. 	undef %occ;
  16. 	map { ++$occ{(length)} } /$m+/g;
  17. 	$max = 0;
  18. 	$max < $_ and $max = $_ for keys %occ;
  19. 	print $max," ",$occ{$max} || 1,$/;
  20. 	}
Success #stdin #stdout 0.26s 3740KB
comments (?)
stdin 
)((())))(()())
))(
()(())()
((((()(((
(()())()(())()()())())()((()(()(())()()())((()(())()(()()()()))()(())()(((()())()(()((())()(())(()))
stdout 
6 2
0 1
8 1
2 1
28 1
662 1
https://ideone.com/X8BUwy
language:
Perl (perl 5.28.1)
created:
11 years ago
visibility:
secret

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!