#!/usr/bin/perl

# This script calculates the Give-Value score of every blood type out there. Takes into account stuff like how many people have that blood type, how many people that blood type can donate to, and how many people those receivers can receive from. The higher your blood type's score, the more valuable you are as an individual blood donator.
# Paul Nickerson (pgn674)

use strict;
use warnings;
use strict 'refs';
use Switch;

            #   O-O+B-B+A-A+AB-AB+
my @depGraph = ([1,0,0,0,0,0,0,0],#O-   Dependancy graph. Top row can give to right column - $depGraph[take][give]
                [1,1,0,0,0,0,0,0],#O+
                [1,0,1,0,0,0,0,0],#B-
                [1,1,1,1,0,0,0,0],#B+
                [1,0,0,0,1,0,0,0],#A-
                [1,1,0,0,1,1,0,0],#A+
                [1,0,1,0,1,0,1,0],#AB-
                [1,1,1,1,1,1,1,1]);#AB+
my @ratioChart = (0.077,0.384,0.017,0.094,0.065,0.323,0.007,0.032); # Portion of population with these blood types in this order:| 0: O- | 1: O+ | 2: B- | 3: B+ | 4: A- | 5: A+ | 6: AB- | 7: AB+ |
my $scoreFor;   # Each blood type I'm calculating a score for.
my $giveTo;     # Each blood type that scoreFor can give to.
my $takeFrom;   # Each blood type that giveTo can take from.
my $howWellOff; # How well off each recipient is, meaning how many people they can take from.
my $howNeeded;  # How needed (or how valuable) each individual blood donor is. The final score.
my $howWanted;  # How much each blood type as a whole group is wanted (before taking into acount how many people there are of those blood types), meaning how many people can take their blood, divided by how well off they are.

print "Finding Give-Value scores.\n";

for($scoreFor=0; $scoreFor<8; $scoreFor++)  # Calculating score for this type (call it type1, or scoreFor).
{
    $howNeeded=0;
    $howWanted=0;
    for($giveTo=0; $giveTo<8; $giveTo++)    # Testing if type1 can give to this type (call it type2, or giveTo).
    {
        if($depGraph[$giveTo][$scoreFor])   # type1 can give to type2
        {
            $howWellOff=0;
            for($takeFrom=0; $takeFrom<8; $takeFrom++)  # Seeing if type2 can take from this type (call it type3, or takeFrom).
            {
                if($depGraph[$giveTo][$takeFrom])   # type2 can take from type3
                {
                    $howWellOff = $howWellOff + $ratioChart[$takeFrom];
                }
            }
            $howWanted = $howWanted + $ratioChart[$giveTo] / $howWellOff;
        }
    }
    $howNeeded = $howWanted / $ratioChart[$scoreFor];
    switch ($scoreFor)
    {
        case 0  {print "O- "}
        case 1  {print "O+ "}
        case 2  {print "B- "}
        case 3  {print "B+ "}
        case 4  {print "A- "}
        case 5  {print "A+ "}
        case 6  {print "AB-"}
        case 7  {print "AB+"}
        else    {print "SWITCH STATEMENT ERROR"}
    }
    print " : $howNeeded\n";
}

# Give-Value score of blood type X = cycle through each blood type for this sum((portion of population of this [cycled] blood type that can receive from X [how many people can use X])/(portion of population that each of those recipient blood types can receive from [how well off those recipients are]))/(portion of population that is X [how common X are])