Re: Petit résumé et tests dans la réalité

Moi aussi j'ai fait le test en perl6

Le code :

#!/usr/bin/perl6
my $S=0;
loop (my $i=2; $i < 47; $i++) {
 $S += 1/$i; 
 say $S.nude;
}

Le résultat : (j'explique entre parenthèse comment lire nude qui donne la représentation interne).

(1 2) => 1/2
(5 6) => 1/2 + 1/3 = 3/6 + 2/6 = 5/6
(13 12) => 1/2 + 1/3 + 1/4 = 6/12 + 4/12 + 3/12 = 13/12
(77 60) => 1/2 + 1/3 + 1/4 + 1/5 = 30/60 + 20/60 + 15/60 + 12/60 = 77/60
(29 20)
(223 140)
(481 280)
(4609 2520)
(4861 2520)
(55991 27720)
(58301 27720)
(785633 360360)
(811373 360360)
(835397 360360)
(1715839 720720)
(29889983 12252240)
(10190221 4084080)
(197698279 77597520)
(40315631 15519504)
(13684885 5173168)
(13920029 5173168)
(325333835 118982864)
(990874363 356948592)
(25128807667 8923714800)
(25472027467 8923714800)
(232222818803 80313433200)
(235091155703 80313433200)
(6897956948587 2329089562800)
(6975593267347 2329089562800)
(218572480850557 72201776446800)
(441657572729039 144403552893600)
(40548494360749 13127595717600)
(40934600117149 13127595717600)
(41309674280509 13127595717600)
(41674329717109 13127595717600)
(1555077795250633 485721041551200)
(1567859927923033 485721041551200)
(1580314313603833 485721041551200)
(1592457339642613 485721041551200)
(65776471966898333 19914562703599200)
(9464375460249419 2844937529085600)
(409813082319810617 122332313750680800)
(4538526983955586987 1345655451257488800)
(4568430438427975627 1345655451257488800)
(4597683817803138427 1345655451257488800)

Alors très honnêtement j'ai pas la patience de vérifier, et encore plus honnêtement j'ai pas le niveau pour vérifier facilement. Tu saurais me dire si la valeur finale est exacte ou pas ?

En théorie, la théorie et la pratique c'est pareil. En pratique c'est pas vrai.