Pro-Linux.de

Pro-Linux

Pro-Linux Diskussions- und Hilfeforum
Aktuelle Zeit: 10. Dez 2018 8:07

Alle Zeiten sind UTC+01:00




Ein neues Thema erstellen  Auf das Thema antworten  [ 7 Beiträge ] 
Autor Nachricht
 Betreff des Beitrags: Brauche schnell hilfe bei perl!!!
BeitragVerfasst: 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>


Nach oben
   
BeitragVerfasst: 06. Jul 2003 22:40 
Danke,
problem schon gelöst.


Nach oben
   
BeitragVerfasst: 07. Jul 2003 15:02 
Super! Dann kannst du deine Lösung hier sicherlich auch gleich posten, oder?


Nach oben
   
BeitragVerfasst: 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.


Nach oben
   
BeitragVerfasst: 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


Nach oben
   
BeitragVerfasst: 17. Jul 2003 10:11 
tim hat wohl die ironie-tags vergessen.


Nach oben
   
BeitragVerfasst: 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>


Nach oben
   
Beiträge der letzten Zeit anzeigen:  Sortiere nach  
Ein neues Thema erstellen  Auf das Thema antworten  [ 7 Beiträge ] 

Alle Zeiten sind UTC+01:00


Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast


Sie dürfen keine neuen Themen in diesem Forum erstellen.
Sie dürfen keine Antworten zu Themen in diesem Forum erstellen.
Sie dürfen Ihre Beiträge in diesem Forum nicht ändern.
Sie dürfen Ihre Beiträge in diesem Forum nicht löschen.
Sie dürfen keine Dateianhänge in diesem Forum erstellen.

Suche nach:
Gehe zu:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Deutsche Übersetzung durch phpBB.de