#Dan Pan #Cranbrook Kingswood School #Senior 3 Division #ACSL-1 Post Office @A=([3.5,4.25,3.5,6,.007,.016],[4.25,6,6,11.5,.007,.016],[3.5,6.125,5,11.5,.016,.25],[6.125,24,11,18,.25,.5]); @P=([.2,.03],[.37,.03],[.37,.04],[.6,.05],[2.95,.25],[3.95,.35]); for(1..5){ chomp($_=);($L,$H,$T,$X,$Y)=split/[, ]+/; ($c=S($L,$H,$T))!=6?printf("\n%.2f",$P[$c][0]+$P[$c][1]*abs(Z($Y)-Z($X))):print"\nUNMAILABLE";} sub S{ ($l,$h,$t)=@_; for(0..3){$R=$A[$_];if($l>=$$R[0]&&$l<=$$R[1]&&$h>=$$R[2]&&$h<=$$R[3]&&$t>=$$R[4]&&$t<=$$R[5]){return$_}} for(4..5){if(($l>$A[3][1]||$h>$A[3][3]||$t>$A[3][5])&&($l+2*$h+2*$t)<=(84,130)[$_-4]){return$_}} return 6;} sub Z{$i=shift;for(0..5){if((6999,19999,35999,62999,84999,99999)[$_]>$i){return$_+1}}}