Цитата:
Сообщение от TTЛ
Могу сказать одно: мы учимся в одном институте на одном потоке.
|
с чего, вдруг, такое умозаключение?
кстати говоря, может кому пригодиться, мне тут помогли, вроде заработало)
Код:
#!/usr/bin/perl
use 5.8.8; use strict; use warnings;
my ($key);
my %rost = (
'Ivanov' => 176,
'Petrov' => 165,
'Sidorov' => 190,
'Razuvaev' => 186,
'Lebedev' => 174,
'Moroz' => 168,
'Vase4kin' => 182,
'Yudin' => 180
);
foreach $key ( sort { $rost{$b} <=> $rost{$a} } keys %rost ) {
print "$key $rost{$key}\n";
}
sleep 20;
exit 0;
Цитата:
Сообщение от TTЛ
для себя сделал заключение: Perl - никчемный язык.
|
у меня одногруппник так чуть ли не сразу сказал) и кстати тоже пришел к этому выводу, когда задание взялся делать)