- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
#!/usr/bin/perl -w
@arr=<>;
@arr=reverse(@arr);
$ac=$#arr+1;
print "array size $ac\n";
@arr = sort { $a <=> $b } @arr;
while($ac>2){
$ac=$#arr+1;
print "size $ac";
print "reverse \n@arr\n\n";
if(!exists($arr[$ac])){
$eln=$ac-1;
print "\nDelete element $arr[$eln] $eln und $arr[$ac] $ac\n";
splice @arr, $ac-2,2;
};
};
соврем херки неграмотные пошли
Праздник наступил, и тебе уже шестнадцать лет.
прошло 8 месяцов...
"ой, что то меня подташнивает..."
ой, да ладно тебе, вот только не надо из себя целочку строить, все тут только тем и занимаются, что постят хуйню. но каждый уверен, что постит эпический говнокод, прям достойный рыжего клоуна петросяна
и это прискорбно но почему одних минусуют а других нет!
ах, да, чуть не забыл. он тут начал стонать "поставьте плюсик", за что, собсна, и получил.
теперь ему только переименование поможет.
Я гениТальный программистгерпес. профиксил.
* никаких дат в PHP и прочих до-диезах
* в комментах исключительно любиться
* неймфагам обязательно вводить капчу
---
чо забыл?
Доброкод получится.
TÏTS