0 <=> 1: schnellste lösung (page 2) (Allgemeines zu Perl)

[E|B]

2004-03-28 16:27

User since
2003-08-08
2561 articles
HausmeisterIn

@renne

Oh, sorry, verlesen. Ich hab "$var = $var - 1;" gelesen. Verzeihung!

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]

Strat

2004-03-28 20:16

User since
2003-08-04
5246 articles
ModeratorIn

Code: (dl )

1
2
3

$var = ! $var;
# oder
$var = not $var;

das wird zwar nicht zu 0/1, aber fuer wahrheitswerte reicht es\n\n

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

lichtkind

2004-03-28 22:19

User since
2004-03-22
5697 articles
ModeratorIn + EditorIn

$var ^= 1; ist sehr cool, kabel
danke crian

werd wohl bei manchen doch beim if bleiben weil es atomatisch werte wandelt und schlechte wieder zu verständlichen werden\n\n

Tutorien in der Wiki, mein zeug:
kephra, baumhaus, garten, gezwitscher

Es beginnt immer mit einer Entscheidung.

Crian

2004-03-29 11:54

User since
2003-08-04
5873 articles
ModeratorIn

[quote=esskar,28.03.2004, 04:16][quote=Crian,28.03.2004, 03:05]$var = 1- $var[/quote]
ob das perlish ist? :)

aber gut ist es![/quote]
Nö, das ist eigentlich die Varianbte, die in allen Sprachen funktioniert.
Und wurde von mir schon verwendet, bevor ich mich Perl zugewendet habe.

Zu Flip-Flops gibts sehr viele Lösungen... vielleicht sollte man mal eine kleine Flipflop-Klasse bauen ... ;) ... nein sollte man nicht.

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

kabel

2004-03-29 12:29

User since
2003-08-04
704 articles
BenutzerIn
[default_avatar]

gibts schon längst
btw: namespace in allen ehren, aber CPAN:

das hier geht mit zu weit ...

-- stefan

ppm1

2004-03-29 23:33

User since
2003-09-14
142 articles
BenutzerIn
[default_avatar]

Also das mit $var=1-$var hab ich noch nicht getestet, aber von den anderen vorschlägen:

Benchmark sagt:

Am schnellsten ist wenn man

if($var==1){$var=0;}
else{$var=1;}

bzw. anstatt $var++;
$var=1 setzt ist es am schnellsten:

daraus folgt für mich: ZUWEISUNGEN SCHNELLER ALS RECHNUNGEN.
Ist klar zuweisung: Nur Speichern
Rechnungne: Auslesen, Rechnen, Speichern (2 Schritte mehr...)

kabel

2004-03-29 23:39

User since
2003-08-04
704 articles
BenutzerIn
[default_avatar]

der thread ist vom topic her ehe schief, denn an der stelle
zu optimieren ist ziemlich sinnfrei. hier ist wohl mehr eleganz
gefragt...

-- stefan

ppm1

2004-03-29 23:51

User since
2003-09-14
142 articles
BenutzerIn
[default_avatar]

Das hängt davon ab was dein Skript machen soll.

bei 10000 mal irgendwelche Variablen von 0 auf 1 oder ähnlich ändern bzw. überprüfen lohnt sich optimieren schon...

P.S. Sinnfrei... schönes wort.. muss ich mir merken *G*\n\n

kabel

2004-03-30 00:10

User since
2003-08-04
704 articles
BenutzerIn
[default_avatar]

[quote=ppm1,29.03.2004, 21:51]bei 10000 mal irgendwelche Variablen von 0 auf 1 oder ähnlich ändern bzw. überprüfen lohnt sich optimieren schon...[/quote]
optimieren lohnt genau dann, wenn das programm zu lahm ist.
wie schnell es ist, weiss nur lichtkind ;)

-- stefan

Crian

2004-03-30 11:52

User since
2003-08-04
5873 articles
ModeratorIn

Wär trotzdem mal interssant, wenn Du die $var = 1- $var Variante mit aufnehmen würdest.

Könnte langsamer sein als if+Zuweisung, aber wahrscheinlich nicht viel.

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