Zufallszahlen generieren (Seite 3) (Allgemeines zu Perl)

Crian

2005-09-14 12:27

User since
2003-08-04
5873 Artikel
ModeratorIn

@docsnyder: Ja, Du musst Dich etwas umgewöhnen, aber die Verwendung von $_ und @_ macht dann den Code wesentlich einfacher lesbar.

Am Anfang (ich kam auch von C und C++) habe ich es auch so gemacht wie Du, C-style for-loops und $_ und @_ gemieden, aber mit der Zeit entwickelt man ein Gefühl dafür und es ist inzwischen viel einfacher für mich, pq's Version zu verstehen als Deine.

Trotzdem kannst Du natürlich dabei bleiben es so zu machen, wie Du es machst. Und natürlich solltest Du keinen Code schreiben, der Dich selbst irritiert oder ein ungutes Gefühl hinterlässt. Aber Du kannst Dich ja mal vorsichtig auf die Möglichkeiten von Perl einlassen, wenn es Dir dauerhaft nicht gefällt, bleib beim C-Style =)

TIMTOWDI\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

docsnyder

2005-09-14 12:35

User since
2005-09-08
300 Artikel
BenutzerIn

@Crian

Yep, ich werd' mir Mühe geben ;o)

Gruß, Doc

esskar

2005-09-14 12:49

User since
2003-08-04
7321 Artikel
ModeratorIn

user image

was mich nur an der sache wundert
dass du für die zweite schleife auch for benutzt, da du $i in der schleife ja nicht brauchst, also wäre folgendes

Code: (dl )

while($n--) {
   my $theNumber = int(rand(scalar(@numbers)) + 0.5);
   print splice(@numbers, $theNumber, 1), "\n";
}

sinnvoller!?! auch für C!

docsnyder

2005-09-14 13:19

User since
2005-09-08
300 Artikel
BenutzerIn

[quote=esskar,14.Sep..2005, 10:49]was mich nur an der sache wundert
dass du für die zweite schleife auch for benutzt, da du $i in der schleife ja nicht brauchst, also wäre folgendes

Code: (dl )

while($n--) {
   my $theNumber = int(rand(scalar(@numbers)) + 0.5);
   print splice(@numbers, $theNumber, 1), "\n";
}

sinnvoller!?! auch für C![/quote]
Stimmt! Ist einfacher und lesbarer.

Gruß, Doc

Crian

2005-09-14 14:38

User since
2003-08-04
5873 Artikel
ModeratorIn

Was ich nicht verstehe, ist dieses int(rand(scalar(@numbers)) + 0.5);. Was spricht gegen rand @numbers?

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

vayu

2005-09-14 14:41

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

naja per

Code: (dl )

rand(scalar(@numbers))

kriegst du eine reelle Zahl zwischen 0 und scalar(@numbers)

mit dem int() davor rundet er die zahl auf eine ganze zahl.\n\n

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...

Crian

2005-09-14 14:42

User since
2003-08-04
5873 Artikel
ModeratorIn

ja, aber wozu???

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

vayu

2005-09-14 14:44

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

Quote
[behe3087@hyperion ~] $ perl -le "my @num = 0 .. 100;print rand(@num);"
67.613987230919

weil du per rand(@numbers) eine Kommazahl rausbekommst. er möchte doch aber ne ganze :)

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...

Crian

2005-09-14 14:48

User since
2003-08-04
5873 Artikel
ModeratorIn

Grins ... hast Du mal probiert, was passiert, wenn Du eine Kommazahl als Arrayindex verwendest? Wir sind hier bei Perl ^^

Code: (dl )

C:\Daten\perl>perl
@array = 1..10;
print +(join ', ', $array[2.3], $array[2.5], $array[2.7], $array[rand @array]), "\n";
^Z
3, 3, 3, 1

\n\n

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

vayu

2005-09-14 14:50

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

hmmmm auf die "wilde" idee bin ich idT noch nicht gekommen ... wollt ja das meine programme funktionieren :P

aber MOMENT ... bin gleich zurück ^^

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...