ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     19 Apr 2000  15:54:06
 To : All
 Subject : Re: Знатокам
 -------------------------------------------------------------------------------- 
 

 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);
 
 Андрей
 --- ifmail v.2.15dev4
  * Origin: Chelindbank (2:5020/400)
 
 

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