VPF::Виселица на Perl - Форум программистов

vinograd2008

Дата 13.7.2010, 22:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 197
Регистрация: 7.12.2008

Репутация: нет
Всего: нет

Здравствуйте есть код программы. Пожалуйста помогите изменить код программы так, чтобы нарисованный человек из массива hangman, т.е. $hangman="0-|--<" отображался вертикально, а не горизонтально, т.е. наоборот. Как это сделать?

Код



#!/usr/bin/perl

@words=qw( программа интернет принтер компьютер);
$guesses[0]="";
$wrong=0;

$choice=$words[rand @words];
$hangman="0-|--<";

@letters=split(//, $choice);
@hangman=split(//, $hangman);
@blankword=(0) x scalar(@hangman);
OUTER: 
    while ($wrong<@hangman) {
        foreach $i (0..$#letters) {
                if ($blankword[$i]) {
                        print $blankword[$i];
                } else {
                        print "-";
                }
        }
        print "\n";
        if ($wrong) {
                print @hangman[0..$wrong-1]
        }
        print "\n Ваш выбор: ";
        $guess=<STDIN>;  chomp $guess;
        foreach(@guesses) {
                next OUTER if ($_ eq $guess);
        }
        $guesses[$#guesses]=$guess;
        $right=0;
        for ($i=0; $i<@letters; $i++) {
                if ($letters[$i] eq $guess) {
                        $blankword[$i]=$guess;
                        $right=1;
                }
        }
        $wrong++ unless($right);
        if (join('', @blankword) eq $choice) {
                print "Вы выйграли!\n";
                 exit;
        }
}
print "$hangman\n Было загадано слово  $choice.\n";

OutlawZ

Дата 15.7.2010, 16:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Awaiting Authorisation
Сообщений: 269
Регистрация: 19.10.2007

Репутация: нет
Всего: нет

хм...это случаем не программа из книги Perl за 24 часа?????

--------------------

MaXL

Дата 17.7.2010, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Developer

Профиль
Группа: Участник
Сообщений: 380
Регистрация: 24.10.2005
Где: Владивосток

Репутация: нет
Всего: 2

Это вам чтоле нужно smile

Код


#!/usr/bin/perl
@words=qw( программа интернет принтер компьютер);
$guesses[0]="";
$wrong=0;
$choice=$words[rand @words];
$hangman=" 0\n |\n -\n |\n |\n/ \\";
@letters=split(//, $choice);
@hangman=split(//, $hangman);
@blankword=(0) x scalar(@hangman);
OUTER: 
    while ($wrong<@hangman) {
        foreach $i (0..$#letters) {
                if ($blankword[$i]) {
                        print $blankword[$i];
                } else {
                        print "-";
                }
        }
        print "\n";
        if ($wrong) {
                print @hangman[0..$wrong-1]
        }
        print "\n Ваш выбор: ";
        $guess=<STDIN>;  chomp $guess;
        foreach(@guesses) {
                next OUTER if ($_ eq $guess);
        }
        $guesses[$#guesses]=$guess;
        $right=0;
        for ($i=0; $i<@letters; $i++) {
                if ($letters[$i] eq $guess) {
                        $blankword[$i]=$guess;
                        $right=1;
                }
        }
        $wrong++ unless($right);
        if (join('', @blankword) eq $choice) {
                print "Вы выйграли!\n";
                 exit;
        }
}
print "$hangman\n Было загадано слово  $choice.\n";

--------------------

MaXL

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: GUI \| Следующая тема »