Re: Vote-based porn detection

For something trainable, how about Voting::Condorcet::RankedPairs?

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump::Streamer;
use Voting::Condorcet::RankedPairs;

my $rp = Voting::Condorcet::RankedPairs->new(
         ordered_input => 1  );
$rp->add('clean', 'porn', 0.7);
$rp->add('null', 'undecided', 0.6);

my @winners = $rp->strict_winners;
my @results = $rp->strict_rankings;

my $graph = $rp->graph;
print $graph, "\n";
print Dump $graph, "\n";
[download]

Update: I got graphviz installed. This is more realtime:

#!/usr/bin/perl

use strict;
use warnings;
use GraphViz::Data::Grapher;
use Voting::Condorcet::RankedPairs;

my $rp = Voting::Condorcet::RankedPairs->new(
         ordered_input => 1 );
$rp->add('clean', 'porn', 0.9);
$rp->add('null', 'undecided', 0.1);

my (@winners) = $rp->strict_winners;
my (@results) = $rp->strict_rankings;

my $graph = $rp->graph;
$rp->compile;
print $graph, "\n";

my $grapher = GraphViz::Data::Grapher->new(@winners);
print $grapher->as_svg, "\n";
[download]

Comment on Re: Vote-based porn detection Select or Download Code


Problems? Is your data what you think it is?
	PerlMonks