![]() |
Модераторы: korob2001, ginnie |
![]() ![]() ![]() |
|
Lisssa |
|
|||
Новичок Профиль Группа: Участник Сообщений: 41 Регистрация: 27.9.2011 Репутация: нет Всего: нет |
На четвертом часе идет изучение "Укладка строительных блоков: списки и массивы".
Как всегда плохо отсканированный документ дает о себе знать ![]() Искала по всему интернету , так и не нашла исправно работающий код программы "Висилица", написанный именно в виде массивов... никто не справился, кто брался. ![]() Вот сам код:
В этой программе продимонстрирован изученый материал 4 часа - списки литералов, массивы, функции split и join, контекст и циклы foreach. Ясно , что программу можно запрограммировать массой различных способов, данная же версия - иллюстрация основных возможностей массивов. Данный код программы работает не коректно. 1) Количество дефисов в двое больше , чем количество загадынных букв слова. 2) Ну и из этого логично , не работает часть пограммы , которая бы исправно нашла , что я ввела верную букву. Не могу понять , как исправить данную ошибку. ![]() Help me ! Help me ! )) |
|||
|
||||
ginnie |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 1287 Регистрация: 6.1.2008 Где: Москва Репутация: 38 Всего: 49 |
Lisssa, как ведет себя программа при использовании английских слов вместо русских?
-------------------- Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг) |
|||
|
||||
arto |
|
|||
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1495 Регистрация: 31.10.2004 Репутация: 38 Всего: 40 |
# perl -CSA -e '$"="";$n=shift;@a=split"",shift;@c=qw(0)x@a;while(index("@c","0")!=-1){print"@c\n";print"> ";chomp(my$w=<STDIN>);my@b=grep{$b=shift@c;push@c,$_ eq$w&&$b eq"0"?$w:$b;$_}@a;$n-="@a"eq"@b"||0;if($n==0){print"Word was: ";last}@a=@b}print"@a\n"' 6 тест
0000 > t 0000 > т т00т > с т0ст > е тест # интересно, можно ли короче? |
|||
|
||||
Lisssa |
|
||||||||
Новичок Профиль Группа: Участник Сообщений: 41 Регистрация: 27.9.2011 Репутация: нет Всего: нет |
Спасибки огромное , без этой наводки врядли бы додумалась ... Изменила
на
Все действительно заработало. И как про это не написали в учебном пособии ? ![]() Может , кто знает: Как сделать , чтобы русские буквы работали и каким образом проводится диагностика , что трабла именно в языке ? Добавлено @ 09:56
arto спасибки , вернусь к твоим комментария , как буду изучать 12 урок , работа с командной строки, пока растрачивать себя не могу. Это сообщение отредактировал(а) Lisssa - 11.11.2011, 09:57 |
||||||||
|
|||||||||
dixoNICH |
|
|||
Бывалый ![]() Профиль Группа: Участник Сообщений: 222 Регистрация: 20.3.2011 Репутация: нет Всего: нет |
подключите use locale, чтобы работатьс русским текстом, должно помочь
|
|||
|
||||
Lisssa |
|
||||||
Новичок Профиль Группа: Участник Сообщений: 41 Регистрация: 27.9.2011 Репутация: нет Всего: нет |
Пробывала добавить:
Пробывали и таким методом(Нашла в инете):
В cpan предворительно проделала install locale. Что-то еще нужно сделать ? |
||||||
|
|||||||
Lols |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 144 Регистрация: 21.10.2011 Репутация: нет Всего: нет |
Забавно
![]() |
|||
|
||||
Lisssa |
|
|||
Новичок Профиль Группа: Участник Сообщений: 41 Регистрация: 27.9.2011 Репутация: нет Всего: нет |
Немного не поняла, первый вариант чего ? Это сообщение отредактировал(а) Lisssa - 12.11.2011, 02:42 |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Perl" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |