|
|
| Тема |
 kade e logikata? |
|
| Автор |
the_webber (новак) |
|
| Публикувано | 11.02.02 21:26 |
|
|
|
Danni:
@chisla - sydyra cifri(n-elementi ot masiv) na elementi, koito trqbva da bydat otstraneni ot @pr
@pr - sydyrja proizvolna chislova i tekst informaciq
Celta na sledvashtite dva nachina e da otstraniat ot @pr vsichki non-digit stringove! Za celta izpolzvam rekursivno "splice"
Problema mi se reshava uspeshno po "Nachin 2" izpolzaiki 'pop @array', no ne stava sys shift, koeto i me zatrudniava da si otgovria na vyprosa - kakvo byrkam v "Nachin 1"?
Nachin 1:
sub proba {
if (@chisla) {
splice @pr, $chisla[-1], 1;
pop @chisla;
&proba;
}
}
Nachin 2:
@s=(1,2,3,4);
sub proba1 {
if(@s) {
print "
$s[0]
";
shift @s;
&proba1;
}
}[
___________________________________
MP3Team Bulgaria,
http://mp3.dir.bg
| |
| |
| 
|
|
