309 façons d'incrémenter une variable en PERL ($A++) • Link Station

soul^keeper · 2007-09-06T10:01:51+00:00

Je crois que ce sont vraiment des malades §rofl§ C'est ici que ça se passe : Bonne lecture.

Link Station > Section Loisirs > Autres loisirs >
[PERL] [FUN] 309 façons d'incrémenter une variable en PERL ($A++)

Aller au Forum:

soul^keeper

AdministrateurNiveau 50 · OscariséRéférenceur Légendaire

Membre depuis: 2002
Messages: 17300

Plus

Membre n°: 1
Inscription: 22 Feb 2002
Localisation: La Défense
Âge: 49 ans
Sujets lancés: 2916
Ancienneté: 100 %
Participation: 100 %
Temps en ligne: 102 Jours, 20 Heures, 7 Minutes, 23 Secondes en ligne

[PERL] [FUN] 309 façons d'incrémenter une variable en PERL ($A++) Ancien message

06-09-2007 12:01

Je crois que ce sont vraiment des malades

C'est ici que ça se passe :

https://paris.mongueurs.net/aplusplus.html

Bonne lecture.

| IP: Logguée

PROFIL PM RECH. AMISÉDITER CITER

SSchoubiGuruNiveau 42 · ScénaristeRéférenceur Émérite

Membre depuis: 2002
Messages: 12627

Plus

Membre n°: 566
Inscription: 10 Mar 2002
Âge: 47 ans
Sujets lancés: 1428
Ancienneté: 100 %
Participation: 97 %
Temps en ligne: 48 Jours, 18 Heures, 48 Minutes, 8 Secondes en ligne

06-09-2007 12:14

les oufs

__________________

| IP: Logguée

PROFIL PM WWW RECH. AMISÉDITER CITER

Ddams33117GuruNiveau 19 · ChroniqueurRéférenceur Novice

Membre depuis: 2002
Messages: 6748

Plus

Membre n°: 4177
Inscription: 03 Sep 2002
Localisation: ICI C'EST PARIS !!!!
Âge: 46 ans
Sujets lancés: 112
Ancienneté: 98 %
Participation: 86 %
Temps en ligne: 26 Jours, 6 Heures, 4 Minutes, 40 Secondes en ligne

06-09-2007 13:07

PHP

AUTOLOAD    {ASSEMBLEUR}
   set         ($B = $A);
   if          ($B == 0) {goto ZERO};
EMPILE:
   push        (@l, $B);
   subs        ($B = $B - 1);
   if          ($B!=0) {goto EMPILE}
DEPILE:
   set         ($x = pop(@l));
   if          (!$x) {goto CALCULE}
   add         ($B = $B + $x);
   goto         DEPILE;
CALCULE:
   shft        ($B = $B << 1);
   div         ($A = $B / $A);
   goto         TERMINE;
ZERO:
   exor        ($A = $A ^ 1);
TERMINE:

Ca veux dire quoi ?

__________________

| IP: Logguée

PROFIL PM RECH. AMISÉDITER CITER

LleoniconetGuruNiveau 41 · Légende du cinémaRéférenceur Confirmé

Membre depuis: 2002
Messages: 20925

Plus

Membre n°: 2827
Inscription: 04 Jul 2002
Localisation: O.L.
Âge: 53 ans
Sujets lancés: 1643
Ancienneté: 99 %
Participation: 100 %
Temps en ligne: 77 Jours, 7 Heures, 33 Minutes, 32 Secondes en ligne

06-09-2007 15:05

là c'est pour des pros

__________________

Best of
>>sarkozy chierait sur la table après le repas que la plupart d'entre vous s'extasierait : "ah bah c'est bien, il a bien mangé !"<< "Schoubi"
>>... que j'ai envie de faire pipi ... (Morpheus sort de mon corps!) << "Polkaïna"
>>Pourquoi ? t'as quelque chose contre les potes âgés ? <<"fleming"

| IP: Logguée