Advertisement
Guest User

Untitled

a guest
Sep 6th, 2015
119
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. local $/; $i =<>;
  2. l: $i =~ s/(\d+)\((\D)?(\d+)/\2(\1*\3)\1(/s;
  3. l: if($i =~ m//s) { goto l; }
  4. l: $i =~ s/\d+\(.//s;
  5. print($i);
Advertisement
Advertisement
Advertisement
RAW Paste Data Copied
Advertisement