Исходное сообщение
"Язык Perl еще далек от забвения, несмотря на заявления " Отправлено Добрый Дохтур, 08-Ноя-09 17:43
>#!/usr/bin/perl -w > >my $s = ';lks5fl\ncs043sff'; >$s =~ /^\D+(\d+)\D+(\d+)\D+$/; >print $1*$2."\n" if defined $1 and defined $2; > >exit; тююю.... #!/usr/bin/python import re s = ';lks5fl\ncs043sff' exp=re.compile('^\D+(\d+)\D+(\d+)\D+$') print reduce(lambda x,y:int(x)*int(y), filter(lambda x: len(x)>0 ,exp.split(s))) А теперь покажите ваш вариант для произвольного количества чисел в строке :)

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	>>#!/usr/bin/perl -w >> >>my $s = ';lks5fl\ncs043sff'; >>$s =~ /^\D+(\d+)\D+(\d+)\D+$/; >>print $1*$2."\n" if defined $1 and defined $2; >> >>exit; > тююю.... > #!/usr/bin/python > import re > s = ';lks5fl\ncs043sff' > exp=re.compile('^\D+(\d+)\D+(\d+)\D+$') > print reduce(lambda x,y:int(x)*int(y), filter(lambda x: len(x)>0 ,exp.split(s))) > А теперь покажите ваш вариант для произвольного количества чисел в строке :)
	Введите код, изображенный на картинке: