la loi de la tartine beurrée est avec les lois sur le chaos,la relativité et la mécanique quantique , une des lois fondatrices de notre société. Découverte par un capitaine de l'US Navy (eh oui, il n'y a pas que Jean-Claude qui trouve des trucs), je vous la distille ci-après dans des langages que vous comprenez puisque manifestement la philosophie pure ne semble pas vous émouvoir. Pour les "fôtes" de syntaxe, j'ai évidemment trouvé ce qui suit sur un site. Suis trop con personnellement pour trouver tout cela tout seul ;D
En Basic :
10 rem Basic Murphy's Law....
20 i=0
30 print "Murphy a t'il frappé aujourd'hui ?"
40 print "oui=1 ; non = 2"
50 input i
55 if i=1 or i=2 then goto 60 else goto 20
60 if i=1 then goto 100
70 print "alors cela ne va pas tarder"
80 goto 20
100 print "d'après la loi de Murphy, il devrait refrapper bientôt..."
110 goto 20
120 end
En Visual Basic :
private sub command1_click()
dim x as integer
x = msgbox ("Est-ce que Murphy a frapper aujourdhui ? ",vbexclamation+vbyesno,"Attention")
if x = 6 then
msgbox " Il ne tardera pas à refrapper.... "
else
msgbox "Patience il ne tardera pas .. "
end if
end sub
En C :
int murphy(char *quelquechose)
{
char *x;
for(x=quelquechose;*x;x++)
if(!*x) return 0;
return 1;
/* comment: if one of the element contains FALSE, the function must return FALSE */
}
En C++ :
class CMurphy{
public :
Murphy();
~Murphy();
private :
int *p;
}
// Constructeur
CMurphy::Murphy()
{
p = new int[infinity];
}
// Destructeur mais vous n'arriverez jamais jusque là...
CMurphy::~Murphy()
{
delete(p);
}
int main(void){
CMurphy loi;
return 0;
}
En SQL :
No data found
En Java :
package laws;
public class MurphyLaw
extends Object
{
public MurphyLaw()
{
throw new Error();
}
}
En Caml
let murphy = function evenement
let rec boucle = function
| [ ] -> true
| tete::queue -> if tete = catastrophe then true else
boucle (queue)
in boucle evenement;;
(* evenement est une liste d'evenement. la boucle examine tous les éléments de la liste. Mais si jamais aucune catastrophe n'a été détectée alors de toute façon, quelqu'un en trouvera bien une... *)
En Turbo-Pascal :
var L :string
begin
writeln ('Loi de murphy,Attention au(x) bug(s)');
writeln('Entrez la nature de votre problème')
readln('L')
If L=Insoluble or Repetitif or Empirant then
begin
label a
writeln('votre problème est soumis à la plus grande loi de l'Univers:')
writeln('La loi de murph...ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ')
goto a
End;
Else
begin
writeln('votre problème se résoudra de lui même si vous...ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ERROR ')
goto a
end;
end.
NB: Remarquez la structure en boucle du programme plantant à coup sûr tout ordinateur...
En Pascal-Assembleur :
:Menu("Avez vous un problême?","non",1,"oui",2)
:Lbl 1
:Stop
:Lbl 2

:Input A
:Pause
:ClrHome

:For (I,20,200)
:end




:Stop