Ideone.com

fork download

copy

#!perl -pa
$n=pop@F;@x=map
0,@F;/a/,$x[$'/$n]++for(sort{$b-$a}map{map{($'/$_|0).rand.a.$i++}//..$n}@F)[0..$n-1];$_="@x"

Success #stdin #stdout 0s 6000KB

stdin

copy

12984 7716 13009 4045 1741 1013 25

stdout

copy

8 5 9 2 1 0

https://ideone.com/pXiSjq

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!