#!/usr/bin/perl
# coach.cgi
use CGI;
$q = new CGI;
$a1 = 11 - ($q->param('4') + $q->param('7') + $q->param('19') + $q->param('20'));
$a2 = 12 - ($q->param('2') + $q->param('6') + $q->param('8') + $q->param('11') + $q->param('14'));
$a3 = 12 - ($q->param('3') + $q->param('9') + $q->param('13') + $q->param('16') + $q->param('18'));
$a4 = 13 - ($q->param('1') + $q->param('5') + $q->param('10') + $q->param('12') + $q->param('15'));
print "Content-type: text/html\n\n";
print '' . "\n";
print "コントローラーの点数:" . $a1 . "
";
print "プロモーターの点数:" . $a2 . "
";
print "サポーターの点数:" . $a3 . "
";
print "アナライザーの点数:" . $a4 . "
";
print "
タイプは
";
if (($a1>=$a2) and ($a1>=$a3) and ($a1>=$a4)) {
print "コントローラー
";
}
if (($a2>=$a1) and ($a2>=$a3) and ($a2>=$a4)) {
print "プロモーター
";
}
if (($a3>=$a1) and ($a3>=$a2) and ($a3>=$a4)) {
print "サポーター
";
}
if (($a4>=$a1) and ($a4>=$a2) and ($a4>=$a3)) {
print "アナライザー
";
}
print "です
";