Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
++$min while ( $total += $counts{ $sorted[ $i++ ] } ) < $n;
print $min+1;
print for @sorted[ 0 .. $min ];

Select or download this
```
C:\test>SpotifyComp.pl
4
...
^Z
1
2011
```