Comment Re:Their gender detection code leaked already!! (Score 1) 339
#!/usr/bin/perl -w
use strict;
my $contacts = shift;
my $gender = ($contacts>=75) ? 'female' : 'male';
return $gender;
use strict;
my $contacts = shift;
my $gender = ($contacts>=75) ? 'female' : 'male';
return $gender;
