Perl Array Rechnungen (Allgemeines zu Perl)

[thread]19959[/thread]

Perl Array Rechnungen

Tags: perl5 Ähnliche Threads

Leser: 18

Articles: hide open all | hide show old branches

+10 replies
J0ke

2016-01-21 16:49
User since
2016-01-21
16 Artikel
BenutzerIn
Moin, kling vielleich jetzt doof, aber kann mmir jemand bezüglich eines Script-Entwurfes helfen?
Habe heute erst mit Perl angefangen und mein Chef (bin Azubi im 1ten Lehrjahr) hat mir ne Programmieraufgabe gestellt.
Nur habe ich bezüglich Arrays aktuell n totales Brett vorm Kopf :`D

Aufgabe:

n f(n)
0 1
1 1
2 2
3 3
4 5

f(0)=1;
f(1)=1;
für n>=2;
f(n)=f(n-2)+F8n-1)

Meine bisherige Idee war:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13

my @f=(); my $t=0; my $i=0; while($i!=10;$_){ if($i<2){@f($i)=1} else{ @f($i)=@f($i-2)+@f($i-1); } print "$i --> @f($i) \n"; print "@f[5]\n"; $i++; }
Was muss ich ändern, damit dieser Code funktioniert?
Last edited: 2016-01-21 17:18:01 +0100 (CET)
- +6 replies
- lichtkind
  
  2016-01-21 17:21
  
  User since
  2004-03-22
  5730 Artikel
  ModeratorIn + EditorIn
  
  meinst du f(n) = f(n-2) + f(n-1)
  
  also fibonacci
  als wenn du perl 6 nimmst (weiss ja nicht welche Sprache ihr nehmen müsst) ist fib 24 zeichen: @fib = 1,1, * + * ... *;
  
  das ruft nach funktioneller programmierung was die frage aufwirft sollt ihr werte vorberechnen oder immer nur bestimmenten?
  
  selbst bei Perl 5 würd ich wohl etwas mit einem Array und map verwenden.
  Last edited: 2016-01-21 17:35:03 +0100 (CET)
  mein zeug:, Leute
  
  Es beginnt immer mit einer Entscheidung.
  - +5 replies
  - J0ke
    
    2016-01-21 17:23
    
    User since
    2016-01-21
    16 Artikel
    BenutzerIn
    
    Ich soll Perl 5 verwenden.. :`D
    Bestimmen,also z.B. dass die ersten 1000 Werte untereinander
    0 1
    1 1
    2 2
    3 3
    4 5
    ....
    dargestellt werden.
    - +4 replies
    - lichtkind
      
      2016-01-21 17:40
      
      User since
      2004-03-22
      5730 Artikel
      ModeratorIn + EditorIn
      
      Code (perl): (dl )
      
      1 2 3 4
      
      my @fib = (1,1); for my $i (2 .. 1000) { $fib[$i] = $fib[$i-2] + $fib[$i-1]; }
      
      $i läuft durch die werte des bereichs (menge) und du arbeitest direkt auf dem array.
      
      Für Mutige:
      
      Code (perl): (dl )
      
      $fib[$_] = $fib[$_-2] + $fib[$_-1} for 2 .. 1000;
      
      wenn du unbedingt eine funktion f benutzen sollst dann empfehle ich Memoize um es zu beschleunigen.
      Last edited: 2016-01-21 20:46:18 +0100 (CET)
      mein zeug:, Leute
      
      Es beginnt immer mit einer Entscheidung.
      - J0ke
        
        2016-01-21 17:43
        
        User since
        2016-01-21
        16 Artikel
        BenutzerIn
        
        ich werde mir das mal anschauen..
        schonmal vielen Dank :)
      - +2 replies
      - Raubtier
        
        2016-01-21 19:27
        
        User since
        2012-05-04
        1083 Artikel
        BenutzerIn
        
        Achtung, Lichtkind schreibt wohl zu viel Perl 6 :-)
        
        In Perl 5 greift man auf einen Wert eines Arrays mit dem $-Zeichen zu, also statt wie von Lichtkind:
        
        Quote
        
        Code (perl): (dl )
        
        @fib[$i] = @fib[$i-2] + @fib[$i-1};
        
        sollte es heißen:
        
        Code (perl): (dl )
        
        $fib[$i] = $fib[$i-2] + $fib[$i-1];
        
        (außerdem natürlich am Ende ] statt })
        
        (wenn du "use strict; use warnings;" benutzt, wirst du sonst auch gewarnt)
        
        lichtkind
        
        2016-01-21 20:48
        
        User since
        2004-03-22
        5730 Artikel
        ModeratorIn + EditorIn
        
        habs geändert, hast recht, mit allem, schreib seit wochen viel Perl 6: https://github.com/lichtkind/Perl6-Math-Matrix
        mein zeug:, Leute
        
        Es beginnt immer mit einer Entscheidung.
- +2 replies
- Linuxer
  
  2016-01-21 17:43
  User since
  2006-01-27
  3891 Artikel
  HausmeisterIn
  Wie schaut es mit Deinen Englisch-Kenntnissen aus?
  Schau Dir dringend mal ein Perl-Tutorial an. Oder auch die Perl-Dokumentation.
  
  http://perl-tutorial.org/ - Z.B. das dort verlinkte "Modern Perl 2014".
  
  http://perldoc.perl.org/perldata.html - Perl-Doku zu Datentypen in Perl
  
  Wenn Du von Arrays redest, solltest Du immer gleich die Eckigen Klammern im Hinterkopf haben.
  
  Wenn Du auf Elemente eines Arrays zugreifen willst, musst Du den Index in eckige Klammern setzen.
  
  Perl benutzt die Sigils ( die Zeichen $, @, % vor den Variablennamen), um klarzustellen, um was es sich handelt, bzw. auf was man zugreifen will.
  
  $ <=> Skalar, d.h. ein einzelner Wert
  @ <=> Array, d.h. mehrere Werte
  % <=> Hash, d.h. mehrere "benannte" Werte
  
  Wenn Du also auf ein einzelnes Array-Element zugreifen willst, musst Du das als $array[$index] schreiben.
  Wenn es mal mehrere Elemente sein sollen, dann beispielsweise als @array[1,2,3].
  
  Weitere Tipps:
  
  Beginne Deine Skripte immer mit
  
  Code (perl): (dl )
  
  1 2
  
  use strict; use warnings;
  
  Sie helfen Dir beim sauberen Programmieren und verhindern, dass Du Dir gleich von Anfang an böse Unsitten angewöhnst.
  Siehe z.B.:
  http://perlmaven.com/strict
  http://perlmaven.com/always-use-strict-and-use-war...
  
  Gewöhne Dir sprechende Variablennamen an.
  Wenn Du ein Programm in 6 Monaten nochmal ansiehst, was erfährst Du dann von einem Variablennamen @u?
  Wenn Du dagegen @usernames liest, ist das gleich aussagekräftiger.
  Last edited: 2016-01-21 17:45:31 +0100 (CET)
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - J0ke
    
    2016-01-21 17:50
    
    User since
    2016-01-21
    16 Artikel
    BenutzerIn
    
    Meine Englischkentnisse sind eigentlich ausreichend bis gut..
    Ist ja immer verbesserungswürdig :D
    
    Werde ich machen, vielen Dank :)
- hlubenow
  
  2016-01-21 19:08
  User since
  2009-02-22
  885 Artikel
  BenutzerIn
  2016-01-21T15:49:37 J0ke
  f(0)=1;
  f(1)=1;
  für n>=2;
  f(n)=f(n-2)+F8n-1)
  
  Mit Fibonacci bin ich nicht so bewandert (wurde damals bei mir im Mathe-Grundkurs nicht gemacht), aber wenn man es mit f(x), also einer (mathematischen) Funktion, zu tun hat, sollte man mE auch eine Funktion im Programm verwenden (das dürfte am einfachsten sein):
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  
  #!/usr/bin/perl use warnings; use strict; sub fib { my $n = shift; if ($n < 0) { return "Error"; } if ($n == 0) { return 0; } if ($n == 1 || $n == 2) { return 1; } return fib($n -1) + fib($n - 2); } my $i; for ($i = 0; $i <= 15; $i++) { print fib($i) . "\n"; }

View all threads created 2016-01-21 16:49.