La tige brisée

k = 0;
n = 10000;
For[i = 1, 
        i ≤ 
          n, {
a = Random[]; 
b = 
            Random[]; 
If[b > a, b = b - a, 
            a = a - b]; 
c = 
            1 - a - b; 
L = {}; 
AppendTo[
            L, a]; 
AppendTo[L, 
            b]; 
AppendTo[L, c]; 
L = 
            Reverse[Sort[L]]; 
If[
            L[[1]] ≤ 
              L[[2]] + 
                L[[3]], k++]
}; 
i++
];
Print["Probabilité de pouvoir faire un triangle = ", 
        k/n // N];