fork download
copy 
  1. #!/usr/bin/env perl
  2. use List::Util qw(min);
  3. while (<>) {
  4.     my ( @solos, %count_of ) = ();
  5.     map { chomp; ++$count_of{$_} } split(/,/);
  6.  
  7.     while ( my ( $num, $counts ) = each(%count_of) ) {
  8.         push @solos, $num if $counts == 1;
  9.     }
  10.  
  11.     @solos
  12.       ? printf "%d\n", min @solos
  13.       : print "-1\n";
  14. }
Success #stdin #stdout 0.01s 5676KB
comments (?)
stdin
copy 
1,1,1,1,2,2,2,3,3,4
1,2,3,4,5,5,4,3,2,1
3,1,4,1,5,9,2,6,5,3,5
stdout
copy 
4
-1
2
https://ideone.com/vj47th
language:
Perl (perl 5.28.1)
created:
4 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!