Лучшй программер HW

Доброго времени суток.

Идея не плохая конечно была (т.к. время далеко уже не лето :))
А так представляю вам решение на Perl (т.к. в данный момент изучаю его)

# Задача №1 (легче некуда)
# По введенной расе определить юнита 7 левела данной расы.
use strict;
use warnings;
my %un = (
	'1', 'Архангел',
	'2', 'Золотой дракон',
	'3', 'Титан',
	'4', 'Дракон - привидение',
	'5', 'Черный дракон',
	'6', 'Архидьявол',
	'7', 'Гидра хаоса',
	'8', 'Древнее чудище',
	'9', 'Феникс'
	);
my %cas = (
	'1', 'Замок', 
	'2', 'Оплот', 
	'3', 'Башня', 
	'4', 'Некрополис', 
	'5', 'Темница', 
	'6', 'Инферно', 
	'7', 'Крепость', 
	'8', 'Цитадель', 
	'9', 'Сопряжение', 
	);
print "Введите рассу: ";
my $n = 1;
while ($n <= keys(%un))
{
	print $cas{$n}, ". ";
	$n++;
}
print "\n";
my $un = ;
chomp $un;
$n = 1;
while ($n <= keys(%cas))
{
	if ($un eq $cas{$n})
	{
		print "У рассы: ", $cas{$n}, " юнит 7 левела это: ", $un{$n};
	}
	$n++;
}

Позже выложу, как свободное время появиться от работы.

З.Ы. Чисто из спортивного интереса хотелбы увидеть как эта задача решаеться на Assemblere.

С уважением K0Lb@zzeR.