Привет, всем!
Вот читаю опять книгу по Perl, при этом пообещал себе на пропускать задания, которые имеются в конце каждой главы. Книга 'Самоучитель Perl', авторы А.Матросов и М.Чаунин.

Я переодически буду задавать вопросы которые, как я считаю можно решить более оптимальным способом, но сам до этих способов пока не дошёл или не совсем дошёл.
Цель: сам обучаюсь оптимизировать код, при этом обучаются и другие, особенно начинающие. Да и просто, для разнообразия, не помешает.

Глава 5, стр. 135, Задание №3:
Напишите программу, которая по заданному числу STEP печатает лесенку из STEP ступеней ( каждая следующая ступень на один символ "-" шире предидущей ).
Пример:

Код

-  |   --     |      ---         |          ----              |               -----                    | ..............................................................

Я написал такой код:

Код

#!/usr/bin/perl -w use strict; while ( 1 ) {   print "Please enter one number forom 1 till 11: ";   chomp( my $user_num = <STDIN> );   last if $user_num =~ /^(?:quit|exit)$/i;   next if $user_num !~ /^\d+$/;   next if ( ( $user_num < 1 ) || ( $user_num > 11 ) );   for ( my $x=1, my $y=0; $x <= $user_num; $x++, $y += $x ) {        print " " x $y, "-" x $x, "\n";        print " " x ( $x + $y ), "|\n";   } print "." x 80, "\n"; }

Если у кого-то есть другие варианты решения данной задачи, пожалуйста предоставьте их. Я например думаю, что её можно также решить с помощью именованных блоков, но пока ещё не пробовал реализовать эту идею. ;)

Заранее спасибо,
Денис

Это сообщение отредактировал(а) korob2001 - 15.3.2004, 14:56

Незнаю будет ли работать, пишу тз головы:

Код

#!/usr/bin/perl -w use strict; while ( 1 ) {  print "Please enter one number forom 1 till 11: ";  chomp( my $user_num = <STDIN> );  last if $user_num =~ /^(?:quit|exit)$/i;  next if $user_num !~ /^\d+$/;  next if ( ( $user_num < 1 ) || ( $user_num > 11 ) );  my $probel='';  my $t_p='';  my $line='';  for ( my $x=1; $x <= $user_num; $x++ ) {    $line.='_';    $t_p.=' ';    print $probel.$line;    $probel.=$t_p;    print $probel.'|';    $probel.=' ';  } }

Стандартная задача

Цитата

Незнаю будет ли работать, пишу тз головы:

Не работает. :o(

Но если маленько подправить, накример так:

Код

#!/usr/bin/perl -w use strict; while ( 1 ) { print "Please enter one number forom 1 till 11: "; chomp( my $user_num = <STDIN> ); last if $user_num =~ /^(?:quit|exit)$/i; next if $user_num !~ /^\d+$/; next if ( ( $user_num < 1 ) || ( $user_num > 11 ) ); my $probel=''; my $t_p=''; my $line='';   for ( my $x=1; $x <= $user_num; $x++ ) {     $line.="_";     $t_p.=' ';     print $probel.$line, "\n";   # вставил , "\n"     $probel.=$t_p;     print $probel."|\n";         # заменил кавычки и вставил \n     $probel.=' ';   } }

Уже работает. Но это были не ошибки. ;)

Это сообщение отредактировал(а) korob2001 - 14.3.2004, 03:50

korob2001 Точно, забыл про еревод строки Пазор мне

Цитата

korob2001 Точно, забыл про перевод строки.  Позор мне.

Да ладно тебе, не скромничай. Это ведь не ошибки, просто ты не протестировал свой код. Если бы протестировал, я думаю, этих мелких недочётов мы бы не увидели. Не тот ты человек, который допустил бы такие ошибки.

А вот решение, о котором я говорил - с использованием именованных блоков:

Код

#!/usr/bin/perl -w use strict; BLOCK1: {     print "Please enter number from 1 to 11: ";     chomp( my $user_num = <STDIN> );     last BLOCK1 if $user_num =~ /^(?:exit|quit)$/i;     redo BLOCK1 if $user_num !~ /^\d+$/;     redo BLOCK1 if $user_num < 1 or $user_num > 11;     my $x = 1;     my $y = 0;     BLOCK2: {          last BLOCK2 if $x > $user_num;          print " " x $y, "-" x $x, "\n";          print " " x ($x+$y), "|\n";          $x++;          $y += $x;          redo BLOCK2;     }  print "." x 80, "\n";  redo BLOCK1; }

Ещё, как мне кажется, можно воспользоваться замыканиями. ;)

Это сообщение отредактировал(а) korob2001 - 15.3.2004, 14:47

А мне всегда вдалбливали, что метки - не есть хорошо!!!!!!!!!! :-))))))))
ВСЕГДА можно обойтись без них... :-)))

Цитата

А мне всегда вдалбливали, что метки - не есть хорошо!!!!!!!!!! :-)))))))) ВСЕГДА можно обойтись без них... :-)))

Мне тоже вдалбливали. Но меня например интересуют все возможные решения данной задачи, чуть позже я ещё попробую реализовать эту задачу при помощи безусловных переходов goto. А о том, что мне вдалбливали о goto, я вообще молчу.

А вот кстати, решение этой задачи с использованием замыканий:

Код

#!/usr/bin/perl -w use strict; my $x = 1; my $y = 0; my $user_num = 0; while ( 1 ) {    print "Please enter one number from 1 till 11: ";    chomp( $user_num = <STDIN> );    last if $user_num =~ /^(?:exit|quit)$/i;    next if $user_num !~ /^\d+$/;    next if $user_num < 1 or $user_num > 11;    write_stears($x, $y);    print "." x 80, "\n"; } sub write_stears {    my($x, $y) = @_;    return if $x > $user_num;    print " " x $y, "-" x $x, "\n";    print " " x ($x + $y), "|\n";    $x++;    $y += $x;    write_stears($x, $y); }

korob2001 Единственое что хочу сказать, конструкция

Код

" " x

Будет работать медленее, чем

Код

$t_p.=' ';

Код

$step = 5; for ($i = 1, $j =1; $i < $step+1; $i++, $j +=$i+1  )   {    print "_"x $i,"\n"," "x$j,"|" }

А меня интересует где можна скачать Книга 'Самоучитель Perl', авторы А.Матросов и М.Чаунин.

Нюбстер форум Компьютерная документация -> Perl