Commentaires de 6Po sur tout CodeS-SourceS

Oauis c'est écrit dans la FAQ mais ce systeme n'a aucun sens...

En c, cobol ou meme en vb ca se fait pas comme ca :)

A voir je suis pas le seul a trouver ca louche :)

NOTE DEPUIS PHP.ORG FAQ
====================
28-Aug-2002 02:43
It should be noted that PHP's ?: operator associates left to right. In C and in C++, the ?: operator associates right to left. Thus:

1 ? 2 : 3 ? 4 : 5;

has the value 4 in PHP and the value 2 in C and in C++. I find it curious that they would reverse the associativity of an operator from its "accepted" sense, but yet they didn't fix the precedence of the bitwise operators. Thus:

if(A & 7 == 5)

groups like:

if(A & (7 == 5))

It is a trap for the unlucky.

Je confirme ca marche pas :)

T'as testé avant de posé ton message olid ? Moi aussi je peux dire plein de truc, bien sur que ca devrait etre effectuer avant mais ca marche pas en tout cas ca marche pas avec Easyphp 1.6.0.0 et php 4.2.0.0

Merci à tous, ca fait plaisir.

Je profite pour dire que j'ai trouvé le petit problème avec le test :)

Rappel selon ma source :
if (4 & 13 == 4)

pour contouner le problème il faut utlisé des variables.

$c = 4 & 13 ;
if ($c == 4)

Pour effectuer ce test sans variable intermédiaire il faut faire
if ((4 & 13) == 4)
il faut forcé le 4 & 13 avec des ( ), je comprends pas vraiment pourquoi PHP fait le test avant d'effecter l'opération... donc en la forcant de cette facon on résoud ce petit soucis.

Il faut qqch pour que ca crée l'image ? Quand je fait <src=....> j'obtient rien :p
faut une dll ou qqch ? j'ai pas de msg d'erreure j'ai juste le carré comme si il trouvait po une image :(

J'aime bien, je le prends aussi :p

Vbsupernul
vivi c'est un RamDrive du serveur. Ca tourne a 1Ghz ca la rame du serveur fait du 1ghz :p
J'utilise ce pour le batch abominable :) Du style qui n'a pas payé sa facture de téléphone ce mois ci :p

Pour proger:
IF ... and ... en VB c'est connu que c'est pas bon.
fo préféré un
IF .... THEN
IF .... THEN
END IF
END IF

en plus en VB = 0 faux et tout le reste = vrai :p donc quand tu va faire un test fo pas oublie de faire l'inverse... ca VB le fais tres bien mais ca prends tjs un peu de temps :p
C'est pour ca que j'opte tjs pour le byte mais je voulais pas mettre un byte dans le source ci, sinon j'aurais eu plein de poste :p

Ricpperso
=======
ROLF :))) Alors pkoi tu les lis encore ?

Pour tout le monde....
Je crée pas cette source dans un but tech mais seulement pour eviter que tous les jours un mec nous postes ca sources isPremier avec 50 linges de code. Je sais qu'il y en a deja plein mais ceux que j'ai vu me font peur et je pense au mec qui comprend rien.

Pour Proger :
=========
LOL le and en VB :p arff ! Sorry....

2e chose le INT --> c'est en 16 bit en VB or les OS sont en 32 Bit le LONG et en 32 BIT le CPU calcul plus vite dans son propre nb de BIT.
Assembleur oblige.
Désolé pour ceux qui aurait Windope Serveur 64 Bits :p

pour l'optimisation n=1 ou n=0
Comme j'ai dit j'ai fait ca en 2min pour répondre a un autre qui avait posté une source avec des test en STING pour savoir si son nombre etait a virgule ou pas...
donc j'ai pas regarde dans les details

1.6 ms ? ummm ... je sais pas moi j'ai un disque de 1Ghz en RAM pure :p (Virutal disque) je suis sur le serveur :p
donc ca tourne a 0 aussi bien une que l'autre

Pour aKh :p
========
Le +1 sert a rien ca va encore faire gagné au moins 0.01 ms a Proger :p

Le true et le false ca me vient du C. et moi faire un exit function sans fait isPremier = false c'est pas bon, c'est pas tres propre
Quand au string a EMPTY et le numerique a 0 je trouve ca idiot et j'ai pas testé
mais je crois qu'en .Net c'est plus comme ca...

Bhen immagine tu crée un tableau de 500 elements

en VB.net
DIM tab[500] as integer  //en plus en VB.nET c'est de 0 à 499 et non de 0à500 :p
DIM i
pour faire juste dessous
for i = 0 to 499
tab[i] = i
next i

vb6 va te faire un
DIM tab[500] as integer //0 à 500

  -- VB
     i = 0
     for i = 0 to 500
      tab(i) = 0
     next i

toi tu crées ton i
dim i
     -- vb
      i = 0

for i = 0 to 500
   tab(i) = i
next i

Tu vois une optimisation TOI ?
Ha moi pas....

Voila sinon je vous conseil d'aller joue à Pacman ou a prophecy engine :p
ici ---> www.dreamersteam.org

Pour je poste vi une source que j'ai fait en 5 min

Il faut aussi crée un textbox avec le nom text1 pour donne la valeur

Ce code est a mettre sur un bouton.

    Dim n           As Long
    Dim i           As Long
    Dim racine2n    As Long

    n = CLng(Val(Text1.Text))

    'CAS DE BOARD
    If n = 0 Or n = 1 Then MsgBox "0 et 1 ne sont pas des nombres premiers": Exit Sub

    'SI UN POYO MET UN NOMBRE NEGATIF
    If n < 0 Then n = n * -1

    'ON FAIT LE TEST A CAUSE DU 2
    'VU QUE LA BOUCLE FOR COMMENCE A 3
    If n Mod 2 = 0 Then
        If n <> 2 Then
            MsgBox Str(n) + " est pas un nombre premier car divisible par 2!"
            Exit Sub
        Else
            MsgBox Str(n) + " est un nombre premier !"
            Exit Sub
        End If
    End If

    'LA RACINE CARREE DE N
    racine2n = Sqr(n)

    'LA BOUCLE DE TESTS
    For i = 3 To racine2n Step 2
        If n Mod i = 0 Then
            MsgBox Str(n) + " est pas un nombre premier car divisible par " + CStr(i) + " !"
            Exit Sub
        End If
    Next i

    'SI ON ARRIVE ICI C'EST QUE LE NOMBRE EST PREMIER (SAUF 2)
    MsgBox Str(n) + " est un nombre premier !"