Perlish Tension

[giulienk]

Here is a possible implementation of the <tension> parameter.

#!/usr/bin/perl

use strict;

my $plus = shift;
my $minus = shift;
my $sum = $plus + $minus;
my $rep = $plus - $minus;
my $mean = $rep / $sum;

#ALERT: semi-empirical formulae ahead
my $tension = (1 - $mean ** 2) * $sum * 2 / (2 - 1 / (1 + abs $rep));

$tension = log (1 + $tension) - 2;

my $literal;

for ($tension) {
    $_ <= 0 and $literal = 'no', last;
    $_ <= 1 and $literal = 'low', last;
    $_ <= 2 and $literal = 'medium', last;
    $literal = 'high';
}

printf <<"EOF", $plus, $minus, $rep, $tension, $literal;
Plus       = %3d
Minus      = %3d
Reputation = %3d
Tension    = %.3f
There is %s tension on this post.
EOF

 

$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g