The premise for this program is: There is a post-modern abbey some where that started allowing men to become nuns and mothers superior around the year 1997. By now, the number of male nuns has increased dramatically. Some number of males have been promoted to mother superior. All nuns receive the same income, all mother superiors receive the same income. We have what some might consider perfect "income equality." As you can see from the output below, with the assigned values for numbers of males and females in different positions, males are 56% of the work force, but they get only 38% of the income. How could this be possible? Think about it!
# Mother Superiors. my $maleMS = 3; my $femaleMS = 27; #my $totMS = $maleMS + $femalsMS; # Nuns. my $maleN = 70; my $femaleN = 30; #my $totN = $maleN + $femaleN; # Peeps. my $maleP = $maleMS + $maleN; my $femaleP = $femaleMS + $femaleN; my $allP = $maleP + $femaleP; # Anual Incomes. my $MSRate = 10000; my $NRate = 2700; my $maleInc = $maleMS * $MSRate + $maleN * $NRate; my $femaleInc = $femaleMS * $MSRate + $femaleN * $NRate; my $allInc = $maleInc + $femaleInc; # Finally, the percentages. my $malePCP = ( $maleP * 100 ) / $allP; my $malePCInc = ( $maleInc * 100 ) / $allInc; my $femalePCP = ( $femaleP * 100 ) / $allP; my $femalePCInc = ( $femaleInc * 100 ) / $allInc; # And results. printf "Males are %5.2f percent of a staff of %5d. They receive %5.2f percent of a total income of %5d\n", $malePCP, $allP, $malePCInc, $allInc; printf "Females are %5.2f percent of a staff of %5d. They receive %5.2f percent of a total income of %5d\n", $femalePCP, $allP, $femalePCInc, $allInc; Here is the output: Males are 56.15 percent of a staff of 130. They receive 38.42 percent of a total income of 570000 Females are 43.85 percent of a staff of 130. They receive 61.58 percent of a total income of 570000
Copyright © 2015
To link to this article, try copying and pasting:
<a href="http://m3peeps.org/05/hdys.htm">How Do You Solve a Problem Like Pay Equity?</a>
[Go to m3peeps.org main index page]