Comment On checkUniverseIntegrity()

Petit exemple de code Basic très sympathique (Merci Ben), si vous montez le son de vos enceintes vous pourrez l'entendre crier "simplifies moi" : [Texte complet]

Petit exemple de code Basic très sympathique (Merci Ben), si vous montez le son de vos enceintes vous pourrez l'entendre crier "simplifies moi" :

If ((mintAccessLevelForm = NO_ACCESS) Or _
        ((mintOperationMode = OP_NEW) And (mintAccessLevelForm = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelIndividuals = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelAddressAlias = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelContracts = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelCostCenter = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelCorrespondence = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelAccountProfile = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelInstructions = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelFBOVendors = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelFBOChains = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelCatering = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelGround = READ_ACCESS) And _
         (mintOperationMode = OP_NEW) And (mintAccessLevelAccountProfileOSR = READ_ACCESS)) Or _
        ((mintOperationMode = OP_NEW) And (mintAccessLevelForm <> FULL_ACCESS) Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelIndividuals <> FULL_ACCESS) Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelAddressAlias <> FULL_ACCESS) Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelContracts <> FULL_ACCESS) Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelCostCenter <> FULL_ACCESS)Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelCorrespondence <> FULL_ACCESS) Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelAccountProfile <> FULL_ACCESS) Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelInstructions <> FULL_ACCESS) Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelFBOVendors <> FULL_ACCESS) Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelFBOChains <> FULL_ACCESS) Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelCatering <> FULL_ACCESS) Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelGround <> FULL_ACCESS) Or _
         (mintOperationMode = OP_NEW) And (mintAccessLevelAccountProfileOSR <> FULL_ACCESS))) Then
         
            DisplayNoAccessMessage
            Exit Function
End If

 

Comme si ce n'était pas assez , Ben mentionne :

Toutes les variables non constantes (celles en minuscules) sont initialisées a partir de la même fonction qui ne retourne que le nombre 8, et d'une façon très compliquée. Je le réécris et voici ce que l'instruction  "if" fait réellement :

IF 8 = 1 OR ( 2 = 1 AND 8 = 2 AND 2 = 1 AND 8 = 2 AND 2 = 1 AND 8 = 2 AND 2 = 1 AND
8 = 2 AND 2 = 1 AND 8 = 2 AND 2 = 1 AND 8 = 2 AND 2 = 1 AND 8 = 2 AND 2 = 1 AND 8 =
2 AND 2 = 1 AND 8 = 2 AND 2 = 1 AND 8 = 2 AND 2 = 1 AND 8 = 2 AND 2 = 1 AND 8 = 2)
OR  (2 = 1 AND 8 <> 8 OR 2 = 1 AND 8 <> 8 OR 2 = 1 AND 8 <> 8 OR 2 = 1 AND 8 <> 8 OR
2 = 1 AND 8 <> 8 OR 2 = 1 AND 8 <> 8 OR 2 = 1 AND 8 <> 8 OR 2 = 1 AND 8 <> 8 OR 2 =
1 AND 8 <> 8 OR 2 = 1 AND 8 <> 8 OR 2 = 1 AND 8 <> 8 OR 2 = 1 AND 8 <> 8 OR 2 = 1
AND 8 <> 8) THEN

C'est comme si vérifier que les lois rationnelles de l'univers tout entier s'appliquent. Au moins c'est la meilleure utilité qu'on pouvait lui trouver. Si 8 <> 8 alors je jette une ENORME exception !