Kleinstesgemeinsamesvielfaches in Perl

[Christian Marquardt]

Schreibe in das Array tmp an die Postion anzahlFaktoren den Wert j und erhöhe danach anzahlFaktoren um 1.

[Gabino09]

Schreibe in das Array tmp an die Postion anzahlFaktoren den Wert j und erhöhe danach anzahlFaktoren um 1.

ja bis auf das verstehe ich den code soll das jt heißen das ist das wo die primfaktoren rein geschrieben werden od wie???

wenn ja wie mach ich das dann in perl???

[Christian Marquardt]

geanu so mit einem Array

http://www.rolandgeyer.at/kurse/germ...src/ps006.html

[Gabino09]

geanu so mit einem Array

http://www.rolandgeyer.at/kurse/germ...src/ps006.html

ja das hätte ich auch gewusst aber wie schreibt der jeden wert einzeln da rein bzw wie kann ich auf die wieder zurgreifen???

[Christian Marquardt]

ja das hätte ich auch gewusst

Offenbar nicht, denn das wird dir unter dem Link erläutert. 3 Min um diese Seite zu lesen...schnell

[Gabino09]

Offenbar nicht, denn das wird dir unter dem Link erläutert. 3 Min um diese Seite zu lesen...schnell

ich will ja nichts sagen aber das steht niergends wie ich die in das array reinschreiben

[Christian Marquardt]

Seufz, ok es steht wortwörtlich nicht da

$Liste[2]="hallo";

$tmp[$anzahlFaktoren++] = $j;

[Gabino09]

Seufz, ok es steht wortwörtlich nicht da

$Liste[2]="hallo";

$tmp[$anzahlFaktoren++] = j;

ok ich werds mal soweit versuchen und schauen wie weit ich komme und falls ich noch fragen habe melde ich mich

[Christian Marquardt]

Die Umsetzung des Javaprogrammes

#!/usr/bin/perl
@werte=Primfaktorzerlegung(20);
foreach $i (@werte){
print $i."*";
}
 
sub  Primfaktorzerlegung
{
my @tmp;
my @rt;
my $ziffer=$_[0];
$maxFactors=int(log10($ziffer)/log10(2)+0.99);
$anzahlFaktoren=0;
for($j=2;$j<=$ziffer;$j++) 
 {
        if ($ziffer%$j==0) 
         {
                $tmp[$anzahlFaktoren++]=$j;
                $ziffer=int($ziffer/$j);
                $j=1;
             }
        }
for($i=0;$i<$anzahlFaktoren;$i++) 
 {
        $rt[$i]=$tmp[$i];
        }
return @rt;
 
}
sub log10 
{
my $n=shift;
return log($n)/log(10);
}

[Gabino09]

ok ich werds mal soweit versuchen und schauen wie weit ich komme und falls ich noch fragen habe melde ich mich

sry das ich nochmal störe aber ich hab jt den code soweit:

#!usr/bin/perl

use strict;

sub prim
{
my $n = $_;
my @a;

for (j = 2; j <= n; j++ )
{

if (n % j == 0) {

@a[] = j;

n = n/j;

j = 1;
}
}
return(@a);
}

und weiß aber nicht was ich bei @a[]=j;
in die eckigenklammern schreiben soll das er das jedesmal neu reinschreib also ein eigener neuer speicher und nicht überschreibt ???

[Christian Marquardt]

Siehe Beitrag 24

Varaiblen (Skalare) in PERL beginnen mit $. Insofern ist obiger Code nicht korrekt. Weiterhin fehlt irgendwie die Hälfte.....

[Gabino09]

Siehe Beitrag 24

Varaiblen (Skalare) in PERL beginnen mit $. Insofern ist obiger Code nicht korrekt. Weiterhin fehlt irgendwie die Hälfte.....

das oben soll keine variable sein sondern ein feld und das beginnt mit @ und was meinst du was fehlt???

[Christian Marquardt]

for (j = 2; j <= n; j++ )
n = n/j;

und was meinst du was fehlt???

Das was zum Code in Beitrag 24 unterschiedlich ist

[Gabino09]

for (j = 2; j <= n; j++ )
n = n/j;



Das was zum Code in Beitrag 24 unterschiedlich ist

du hast den code ja in java was bringt mir der wenn ich ihn in perl haben will

ich will einfach eine funktion in perl die mir aus beliebig vielen werten die primfaktoren in ein feld speichern wie geht das denn???

[Christian Marquardt]

Jetzt fühle ich mich langsam verarscht.

du hast den code ja in java was bringt mir der wenn ich ihn in perl haben will

Bist du in der Lage dir hier den Beitrag 24 anzusehen?

Wo siehst du da Java?