fork download 
  1. #!/usr/bin/perl -n
  2. use 5.010;
  3. /^((>><>|><(|>|<<)>|<><<|<(|<|>>)><|,<\.\.>,)(?{local@a=(@a,$2)}))*$(?{say"@a"})/
Success #stdin #stdout 0s 6000KB
comments (?)
stdin 
Valid inputs:
<><
<><><>
><>><>>
<><<<><
,<..>,><<<>,<..>,><>,<..>,<>>><,<..>,><>>,<..>,<<><,<..>,<><,<..>,>><>
<<><><<<>>><>><>><><><<>>><>><>>><>>><>><>><<><

Invalid inputs:
<><>
,<..>,<..>,
>>><>
><<<<>
,
><><>
,<><>,
<<<><><<<>>><>><>><><><<>>><>><>>><>>><>><>><<><
stdout 
<><
<>< ><>
><> ><>>
<><< <><
,<..>, ><<<> ,<..>, ><> ,<..>, <>>>< ,<..>, ><>> ,<..>, <<>< ,<..>, <>< ,<..>, >><>
<<>< ><<<> >><> ><> ><> <>< <>>>< >><> >><> >><> ><>> <<><
https://ideone.com/uLrRX9
language:
Perl (perl 5.28.1)
created:
9 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!