Punkterechnungsprogramm (solved) (Allgemeines zu Perl)

[thread]20332[/thread]

Punkterechnungsprogramm [solved]

Tags: perl5 Subroutinen algorhitmus punkteberechung wettbewerb Similar Threads

Readers: 12

Articles: hide open all | hide show old branches

+9 replies

guest DieZahl

2017-07-22 13:13

Hallo,

ich mache momentan einen kleinen Wettbewerb im Bekanntenkreis. Es geht dabei um ein Spiel. Die Regeln davon sind ganz simpel, wer die höchste Zeit hat gewinnt. Nun wollte ich dafür noch eine "Punkterechnungsprogramm" erstellen.

Die erste Version ist schon fertig:

Code: (dl )

#!usr/bin/perl -w

use 5.014;

my $time = <STDIN>

if ($time <= 49) {
	my $result = $time / 1;
	print "Time       Points\n";
	printf "%3f %3f\n", $time, $result;
} elsif ($time <= 99) {
	my $result = $time / 2 * 1;
	print "Time       Points\n";
	printf "%3f %3f\n", $time, $result;
} elsif ($time <= 199) {
	my $result = $time / 3 * 2;
	print "Time       Points\n";
	printf "%3f %3f\n", $time, $result;
} elsif ($time <= 299) {
	my $result = $time / 4 * 3;
	print "Time       Points\n";
	printf "%3f %3f\n", $time, $result;
} elsif ($time <= 500) {
	my $result = $time / 5 * 4;
	print "Time       Points\n";
	printf "%3f %3f\n", $time, $result;
}

Das Prinzip dorthinter ist ziemlich einfach und zwar gibt es 5 Klassen in die, die Zeit eingeordnet werden kann. Z.b. habe ich eine Bestzeit von 130 sek. . Somit lande ich in der 3. Klasse. Wenn ich das nun weiss nehme ich 130 / 3 (wegen der 3 Klasse) * 2 (zwischen 0 und 3 sind zwei Klassen (runtergezählt)). Das wären dann ~86,7 Punkte.
Nun da ich das ganze Skript etwas lang finde und ich den Hochwassermarkenalgorithmus kenne, dachte ich mir, das ich mit ein par Änderungen am Algorithmus das selbe Ergebnis erzielen konnte. Hier mal mein momentaner Algorithmus (Kommentare sind unter Skript, wegen Platzmangel):

Code: (dl )

#!usr/bin/perl -w

use 5.014;

my $t = <STDIN>;							
my $classmax = &clm($t, 49, 99, 199, 299, 500); 

sub clm {
  my($c) = shift @_; 							
    if (@_ != 5) { 	   						
    print "Something went wrong";			
      foreach (@_) {						
        if ($c < $_) {				  	
	my(@div) = shift @_;			
	} elsif ($c > $_) {				
	  my $divi = @div;			
	  my $re1 = $t / $divi;		
	  my $zre = $divi - 1;		
	  my $re2 = $re1 * $zre;		
	print "Your points are $re2\n";
      }
    }
  }
}

Jedes Kommentar steht für eine Zeile, die Kommentare beginnen bei der Eingabe, sry das es so ist sieht sonst unübersichlich aus:

Code: (dl )

#Erspielte Zeit wird eingegeben.
#Das erste Argument ist die erspielte Zeit die in $t gespeichert wurde.
#$c wird auf den Wert $t (<STDIN>) gesetzt, indem $t als 1. Argument für die Subroutine zur Verfügung gestellt wird.
#Die Anweisung überprüft auf die Vollständigkeit der Argumente.
#Fals etwas nicht der Überprüfung entspricht wird eine Warnung ausgegeben.
#Nun werden die restlichen Argumente ("Klassen 1-5 ($_[1]..$_[5])") genommen. 
#Jetzt wird jedes Element aus @_ mit $c (der Wert von $t (<STDIN>)9 verglichen.
#Wert $_ aus @_ wird zu @div hinzugefügt, wenn $c kleiner als $_ ist um später den Divisor im skalaren Kontext zu ermitteln.
#Wenn nun $c ($t) größer ist als $_ soll gerechnet werden.
#Divisor wird nun aus @div (von vorher) ermittelt (skalarer Kontext).
#result1 (re1) resultiert aus $t (<STDIN>/Dividend) durch den divisor.
#$zre ist ein Zwischenergebnis um auf den Faktor zu kommen
#result2 (re2/Produkt) ergibt sich aus $re2 (faktor1) und $zre (faktor2)
#$re2/mein Ergebnis wird ausgegeben und "sichtbar gemacht".

Mein Problem ist jetzt das gar keine Ausgabe kommt. Ich tippe meine Zeit ein und es passiert einfach nichts. Keine Warnung wegen der Syntax, keine Warnung von meiner "Argumentüberprüfung", einfach nichts. Ich sehe nur meine Zeit die ich eingetippt habe. Ich glaube das Problem liegt irgendwo bei der foreach-schleife...das ganze ist auch ziemlich umständlich gemacht...meine Idee vorher:

Bei Ermittlung von dem Divisor habe ich vorher probiert herauszufinden wie ich die Schleifendurchläufe zählen kann und in einer variable als Skalar zu speichern..das hätte die Sache ja einfacher gemacht und gekürzt. Beispiel:
Die Schleife prüft ob die Zeit <= als 99, 199 ist, ist das der Fall würde die Zahl durch die Anzahl der gezählten Schleifendurchläufe geteilt werden.
Also müsste ich das Programm während der Laufzeit aufzeichnen..also die Schleifedurchläufe?

Nunja wiegesagt wenn ich eine Ausgabe wenigstens aus dem jetztigen Alg. bekommen würde, dann wäre das schon mal eine große Hilfe für mich. Wenn jmd. Ideen zum "Schleifendurchlaufszähler" hat, dann wäre ich ganz neugierig :). Vlt. gibt es dazu eine Dokumentation oder einen ähnlichen Thread? Nur ich weiss nicht was ich als Schlagworte für die Suche eingeben soll.

Grüße DieZahl.
Last edited: 2017-07-22 13:19:17 +0200 (CEST)

+2 replies
Linuxer

2017-07-22 13:47
User since
2006-01-27
3891 articles
HausmeisterIn
Du kannst das erste Skript schon verkürzen, indem Du die Redundanzen entfernst. Die Ausgabe wiederholst Du in jedem Zweig, wozu?
Deklariere $result oberhalb der if-Zweige; über die if-Zweige setzt Du dann nur die Berechnung für $result um und danach gibst Du dann das Ergebnis einmal aus:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

use strict; use warnings; use 5.014; my $time = <STDIN>; chomp $time; my $result; if ($time <= 49) { $result = $time / 1; } elsif ($time <= 99) { $result = $time / 2 * 1; } elsif ($time <= 199) { $result = $time / 3 * 2; } elsif ($time <= 299) { $result = $time / 4 * 3; } elsif ($time <= 500) { $result = $time / 5 * 4; } print "Time Points\n"; printf "%3f %3f\n", $time, $result;
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!
- guest DieZahl
  
  2017-07-22 13:56
  2017-07-22T11:47:55 Linuxer
  Du kannst das erste Skript schon verkürzen, indem Du die Redundanzen entfernst. Die Ausgabe wiederholst Du in jedem Zweig, wozu?
  Deklariere $result oberhalb der if-Zweige; über die if-Zweige setzt Du dann nur die Berechnung für $result um und danach gibst Du dann das Ergebnis einmal aus:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
  
  use strict; use warnings; use 5.014; my $time = <STDIN>; chomp $time; my $result; if ($time <= 49) { $result = $time / 1; } elsif ($time <= 99) { $result = $time / 2 * 1; } elsif ($time <= 199) { $result = $time / 3 * 2; } elsif ($time <= 299) { $result = $time / 4 * 3; } elsif ($time <= 500) { $result = $time / 5 * 4; } print "Time Points\n"; printf "%3f %3f\n", $time, $result;
  
  Ok danke :)
Linuxer

2017-07-22 13:54

User since
2006-01-27
3891 articles
HausmeisterIn

Zum zweiten Code:

Verwende bitte use strict; in allen Deinen Skripten. Hättest Du es getan, hätte der Compiler dich auf ein Problem hingewiesen.

Ausserdem hilft eine saubere Einrückung enorm beim visuellen Debugging ;-)

Dein @div im WAHR-Zweig deines if ist nur lokal in dem dortigen Block gültig.
Das @div im NICHT-WAHR-Zweig ist ein ganz anderes und hat nix mit dem @div aus dem WAHR-Zweig zu tun.

Das wäre erstmal der syntaktische Teil. Kann nicht weiter debuggen, muss weg. ;-)
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!

hlubenow

2017-07-22 14:57

User since
2009-02-22
877 articles
BenutzerIn
[default_avatar]

Guest DieZahl

Code (perl): (dl )

#!usr/bin/perl -w

use 5.014;

my $t = <STDIN>;                                                        
my $classmax = &clm($t, 49, 99, 199, 299, 500); 

sub clm {
  my($c) = shift @_;                                                    
    if (@_ != 5) {                                                      
    print "Something went wrong";                       
      foreach (@_) {                                            
        if ($c < $_) {                                  
        my(@div) = shift @_;                    
        } elsif ($c > $_) {                             
          my $divi = @div;                      
          my $re1 = $t / $divi;         
          my $zre = $divi - 1;          
          my $re2 = $re1 * $zre;                
        print "Your points are $re2\n";
      }
    }
  }
}

WTF? Deine Einrückungen stimmen nicht, aber was noch schlimmer ist, Deine geschweiften Klammern stimmen nicht. Das "if" geht ganz runter.

- Funktionsaufrufe sind heute ohne "&".
- Nach "my" braucht man keine runden Klammern.
- Bei dem "if" willst Du wohl die Anzahl der Elemente des Arrays, die bekommt man aber anders, bei "@_" entweder "$#_ + 1" oder "my $alen = @_;".
- Überhaupt sollte man "@_" lieber ersetzen.
- Mit "$_" sollte man auch nur ausnahmsweise arbeiten. "$_" ist nicht ein Teil von "@_".

Danach wird es leider so Kraut und Rüben, daß ich gar nicht mehr verstehe, was Du machen willst.
Ich kann daher nur erstmal das verbessern, was ich sehe. Aber es wird daher immer noch nicht laufen.

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

my $t = <STDIN>;                                                        
my $classmax = clm($t, 49, 99, 199, 299, 500); 

sub clm {
    my $c = shift; # Wenn man shift ohne Argument verwendet, bezieht es sich automatisch auf @_
    my @a = @_;
    if ($#a != 4) {                                                     
        print "Something went wrong.\n";
        exit;
    }
    my $i;
    foreach $i (@a) {                                           
        if ($c < $i) {                                  
            my @div = shift @a; # Ich hab' keine Ahnung, was das bewirkt (vermutlich bekommt das Array @div das erste Element von @a). Bestimmt aber nicht das, was Du willst.
        } elsif ($c > $i) {
            my $divi = @div; # Damit wird $divi auf die Anzahl der Elemente von @div gesetzt. Wolltest Du das?
            my $re1 = $t / $divi;               
            my $zre = $divi - 1;                
            my $re2 = $re1 * $zre;
        }
        print "Your points are $re2\n";
    }
}

+4 replies
rosti

2017-07-22 15:29
User since
2011-03-19
3566 articles
BenutzerIn
Nunja, mit Schleife:
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

use strict; use warnings; # Zeiten und Klassen my %classes = ( 49 => '1. Klasse', 99 => '2. Klasse', 199 => '3. Klasse', 299 => '4. Klasse', 500 => '5. Klasse' ); my $t = 88; # oder von STDIN my $result = ''; foreach my $c( sort {$a <=> $b} keys %classes){ if( $t <= $c ){ $result = $classes{$c}; last; } } print $result ? $result : "Out of Range";
Versuche das mal zu verstehen und den Rest erarbeite Dir selbst ;)
http://blog.rolfrost.de/

The art of steam.
- +3 replies
- guest DieZahl
  
  2017-07-22 15:35
  
  Ok, probier das zu verstehen. Gespeichert ist es schon (Kopf und Festplatte). Den Rest mache ich dann selber. Ist das Thema jetzt abgehackt (also in dem Forum)?
  Grüße DieZahl.
  
  modedit Editiert von GwenDragon: Vollzitat entfernt
  Last edited: 2017-07-22 15:52:49 +0200 (CEST)
  - +2 replies
  - hlubenow
    
    2017-07-22 17:03
    
    User since
    2009-02-22
    877 articles
    BenutzerIn
    
    Guest DieZahl
    Ist das Thema jetzt abgehackt (also in dem Forum)?
    
    Normalerweise werden Themen nicht geschlossen (jedenfalls hab' ich das so beobachtet). Ist doch schön, wenn jemand noch was ergänzen kann, wann immer er/sie es möchte.
    Du selbst kannst das Thema ja auch gern wieder aufgreifen, wenn dazu nochmal Bedarf besteht.
    - guest DieZahl
      
      2017-07-24 17:30
      
      Ok danke für die Info, vlt. komme ich ja mal so wieder :)
      Also ich hab jetzt mein Ziel erreicht. Mein Ziel war es eine Eingabe mit 5 Klassen zu vergleichen, diese (Eingabe) dann einzuordnen und dementsprechend die Punktzahl zu errechnen.
      
      Grüße :)
      Last edited: 2017-07-24 17:46:43 +0200 (CEST)

View all threads created 2017-07-22 13:13.