Brauche schnell hilfe bei perl!!!

Antworten
Nachricht
Autor
Michael

Brauche schnell hilfe bei perl!!!

#1 Beitrag von Michael » 06. Jul 2003 15:25

Hallo,
kann mir bitte jemand schnell helfen, wiso geht das nicht?
Ich will im Array für den jeweiligen turm die scheiben haben, also das Array für turm 1 sieht am anfang z.B. so aus @turm1[1,2,3,4].
Jetzt will ich das erste element nehmen und z.B. auf den turm 2 legen, dann müssten die arrays so aussehen: @turm1[2,3,4] @turm2<font size="1">;
die übergabe klappt aber irgendwie nicht.
Danke im voraus.
<blockquote><pre><font size="1" face="">code:</font><hr><font face="Courier New" size="2">
1 #! /usr/bin/perl -w
2
3 my $count = 0;
4 my $num = 1;
5 my $n = 1;
6 my $x = 1;
7 my @tower1;
8 my @tower2;
9 my @tower3;
10
11 ($#ARGV == 0) or die "Syntax: $0 N
";
12 my $N = int($ARGV[0]);
13 ($N > 0) or die "$0: Nicht erlaubte Anzahl von Scheiben
";
14
15
16 #Array füllen#
17 while ($num<=$N) {
18
19 $tower1[$n] = $num;
20 $n++;
21 $num++;
22 }
23
24 hanoi($N, right, left, center, @tower1, @tower2, @tower3);
25
26 sub hanoi {
27 my ($n, $to, $from, $using, @to, @from, @using) = @_;
28
29 $count = $count+1;
30
31 if ($n == 1) {
32 print "move $from --> $to aaaa
"; # trivialer Fall
33
34 $temp = shift @from;
35 unshift @to, $temp;
36
37
38 } elsif ($n > 1) {
39 hanoi($n-1, $using, $from, $to, @using, @from, @to); # (*)
40 print "move $from --> $to xxxx
"; # (**)
41
42 $temp = shift @from;
43 unshift @to, $temp;
44
45 hanoi($n-1, $to, $using, $from, @to, @using, @from); # (***)
46 }
47 }
48
49 print"
-->$count
";
</font><hr></pre></blockquote>

Michael

Re: Brauche schnell hilfe bei perl!!!

#2 Beitrag von Michael » 06. Jul 2003 22:40

Danke,
problem schon gelöst.

Kurt

Re: Brauche schnell hilfe bei perl!!!

#3 Beitrag von Kurt » 07. Jul 2003 15:02

Super! Dann kannst du deine Lösung hier sicherlich auch gleich posten, oder?

tim

Re: Brauche schnell hilfe bei perl!!!

#4 Beitrag von tim » 09. Jul 2003 12:10

wieso hier posten? das problem ist gelöst! man will doch nur hilfe haben und keine hilfe geben,die meisten sind so,geben nicht mal antwort ob was klappt oder nicht.egoismus pur.

ratte

Re: Brauche schnell hilfe bei perl!!!

#5 Beitrag von ratte » 17. Jul 2003 9:40

kann man ja noch nachvollziehen, dass die freude ueber den erfolg ein "hurra, geschafft" posting nach sich zieht.
dass vergessen wird, die loesung mitzuposten, kann ich auch noch verstehen, auch wenn's schwer faellt. meist frage ich dann auch nach und meist kommt dann auch eine reaktion und auch die dementsprechende loesung.

nicht verstehen kann ich tin :(

ratte

kurt

Re: Brauche schnell hilfe bei perl!!!

#6 Beitrag von kurt » 17. Jul 2003 10:11

tim hat wohl die ironie-tags vergessen.

Michael

Re: Brauche schnell hilfe bei perl!!!

#7 Beitrag von Michael » 18. Jul 2003 13:33

Hier die Lösung, die euch ja zu interessieren scheint.
<blockquote><pre><font size="1" face="">code:</font><hr><font face="Courier New" size="2">
#! /usr/bin/perl -w

my $count = 0;
my $num = 1;
my $n = 0;
my $x = 1;
my @left;
my @right;
my @center;

($#ARGV == 0) or die "Syntax: $0 N
";
my $N = int($ARGV[0]);
($N > 0) or die "$0: Nicht erlaubte Anzahl von Scheiben
";


@left = (1..$N);
@right= ();
@center=();


CLS();

displ_stack( 0, @left );
displ_stack( 1, @center );
displ_stack( 2, @right );
sleep( 1 );


hanoi( $N, "right", "left", "center" );

sub hanoi {
my ( $n, $to, $from, $using ) = @_;

$count = $count+1;

if ($n == 1) {
# print "move $from --> $to
"; # trivialer Fall
array ($from, $to);
redispl_all_stacks( );

} elsif ($n > 1) {

hanoi($n-1, $using, $from, $to); # (*)

# print "move $from --> $to
"; # (**)
array ($from, $to);
redispl_all_stacks( );

hanoi($n-1, $to, $using, $from); # (***)

}
}


sub CLS {
print "^[[2J";
}
sub POS {
my ( $x, $y ) =@_;

print '^[['.$y.';'.$x.'H';
}

sub displ_disk{
my ( $size, $stack, $height ) = @_;

$disk = 'X'x (2*$size);

POS( 15+$stack*30-$size, 25-$height ); print "$disk
";
}

sub undispl_disk{
my ( $size, $stack, $height ) = @_;

$disk = ' 'x (2*$size);

POS( 15+$stack*30-$size, 25-$height );
print "$disk
";
}


sub displ_stack{

my ( $stackpos, @stack ) = @_;
my $size;

if ( scalar @stack == 0 ) { return 0 };
if ( scalar @stack == 1 )
{
$size = $stack[0];
displ_disk( $size, $stackpos, 0 );
return 1;
}

$size = $stack[0];
shift @stack;
$hight = displ_stack( $stackpos, @stack );
displ_disk( $size, $stackpos, $hight );
return ( $hight + 1 );
}

sub undispl_stack{

my ( $stackpos, @stack ) = @_;
my $size;

if ( scalar @stack == 0 ) { return 0 };
if ( scalar @stack == 1 )
{
$size = $stack[0];
undispl_disk( $size, $stackpos, 0 );
return 1;
}

$size = $stack[0];
shift @stack;
$hight = displ_stack( $stackpos, @stack );
undispl_disk( $size, $stackpos, $hight );
return ( $hight + 1 );
}

sub redispl_all_stacks {
undispl_stack( 0, @left );
displ_stack( 0, @left );
undispl_stack( 1, @center );
displ_stack( 1, @center );
undispl_stack( 2, @right );
displ_stack( 2, @right );
POS( 0, 27 );
sleep( 1 );
}

sub array {
my ($von, $nach) = @_;
if ($von eq "left") {
undispl_stack( 0, @left );
my $temp = $left[0];
shift @left;
if ($nach eq "right") {
unshift (@right, $temp);
displ_stack( 2, @right );
} elsif ($nach eq "center") {
unshift (@center, $temp);
displ_stack( 1, @center );
}
} elsif ($von eq "center") {
undispl_stack( 1, @center );
my $temp = $center[0];
shift @center;
if ($nach eq "right") {
unshift (@right, $temp);
displ_stack( 2, @right );
} elsif ($nach eq "left") {
unshift (@left, $temp);
displ_stack( 0, @left );
}
} elsif ($von eq "right") {
undispl_stack( 2, @right );
my $temp = $right[0];
shift @right;
if ($nach eq "left") {
unshift (@left, $temp);
displ_stack( 0, @left );
} elsif ($nach eq "center") {
unshift (@center, $temp);
displ_stack( 1, @center );
}
}

}
</font><hr></pre></blockquote>

Antworten