Индусский код

))))))00 неужели и в правду ты?
А чего проподал )

 

тут покруче перлы попадаются >> govnokod.ru

 

на этом видео более понятней...
http://www.youtube.com/watch?v=oHg5SJYRHA0

 

А какой оптимальный алгоритм подсчета?

 

Усё, вроде разобралсо:

Code:

print multilcm(1..20);

sub gcf {
  my ($x, $y) = @_;
  ($x, $y) = ($y, $x % $y) while $y;
  return $x;
}

sub lcm {
  return($_[0] * $_[1] / gcf($_[0], $_[1]));
}

sub multilcm {
  my $x = shift;
  $x = lcm($x, shift) while @_;
  return $x;
}

пс: решение сгуглено)

 

ага а до этого array_sanitize какой-нибудь

 

_ttp://govnokod.ru/

 

+1, вам сюда