Ideone.com

fork download

copy

#!/usr/bin/perl
use 5.010;
$_=$t=<>,$i=0;$t=$_,$i++while s/\w+(\((?R)(,(?R))?\))?/$1/g,/\w/;@x=$t=~/\w+/gs;say"$i:@x"

Success #stdin #stdout 0s 3564KB

stdin

copy

2(7(2,6(5,11)),5(9(4)))

stdout

copy

3:5 11 4

https://ideone.com/akTy19

language:

Perl (perl 5.28.1)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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