ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : frolcov@solaster.fintech.ru          2:5020/400     19 Apr 2000  16:14:58
 To : All
 Subject : Re: Знатокам
 -------------------------------------------------------------------------------- 
 

 Andrey Sapozhnikov <sapa@chelindbank.ru> wrote:
 
 > Dmitriy Goldobin wrote:
 >> Hет, если уж извращаться, то можно и так:
 >> 
 >> my @b = grep {defined $_->[0]} map {[shift @a, shift @a, shift @a]} @a;
 >> 
 >> :) Hо я надеялся что я упустил из виду элегантный вариант.
 
 > push @b,[splice(@a,0,3)] while @a;
 
 Вот действительно элегантно.
 
 > или @b=map { [splice(@a,0,3)] } (1..@a/3);
 
 Hе, так не пойдет - если число элементов не делится на три, то последние
 пропадут.
 --- ifmail v.2.15dev4
  * Origin: AO Fintech (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор