fork download
copy 
  1. #!perl -pa
  2. $i=0,s/\d+,?/$s=$&+1e13;$&>$i++?$s:~"$s"/ge for@F;$_=$F[0]cmp$F[1]
Success #stdin #stdout 0s 6000KB
comments (?)
stdin
copy 
[0] []
[] [1]
[] [1,2,1,2]
[2,1] [1,1]
[0,1,2] [0,2,1]
[3,0] [3,1]
[3,1] [3]
[2] [2,2]
[2] [2,23]
[2,24] [2,23]
[2,1] [2,23]
[] []
[0] [0]
[1,1] [1,1]
[2,1,2] [2,1,2]
[1,2,1,1,2] [1,2,1,1,1]
[1,2,1,1,5] [1,2,1,1,4]
[1,2,1,1,5] [1,2,1,1]
[1,2,1] [1,2,1,1]
[1,2,1,1,5] [1,2,1,1,6]
[1,2,1,1,6] [1,2,1,1,7]
stdout
copy 
111111111110000-1-1-1-1-1-1
https://ideone.com/WgFjGZ
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!