Discussion :

[GnuVince]

Bonjour à tous,

Il y a quelques semaines, j'ai découvert le site Project Euler qui propose une série de problèmes mathématiques. J'ai initialement résolu la plupart des problèmes avec Python, mon langage de prédilection.

En fin de semaine, j'ai commencé à écrire la solution à ces problèmes avec Perl 6. Vous pouvez voir les solutions dans le dépôt Subversion. Vous êtes invité à contribuer si ça vous intéresse! Certains des programmes fonctionnent, mais sont trop lents et il reste beaucoup de problèmes à résoudre. Et bien sûr, vous pouvez proposer des solutions alternatives, there is more than one way to do it.

En espérant que ça vous intéresse,

Vincent.

[Arioch]

Heu, y aurait-il des problèmes assez simples comme "$i valant 1, trouver la valeur de $p sachant que le total des deux est 2" ?

Les 2 premiers sujets m'ont bien calmé

[Woufeil]

Heu, y aurait-il des problèmes assez simples comme "$i valant 1, trouver la valeur de $p sachant que le total des deux est 2" ?

Les 2 premiers sujets m'ont bien calmé

En y réfléchissant, il est facile de trouver une solution non optimisée pour le premier problème :

Add all the natural numbers below 1000 that are multiples of 3 or 5.

Il suffit de prendre un hachage vide, d'y stocker tous les multiples de trois inférieurs à mille (3*1, 2*2, 3*3....) à l'aide de la propriété d'autovivification des hachages et de faire pareil avec les multiples de 5. En utilisant un hachage, on évite de stocker deux fois les multiples de 3 et de 5

Les premiers problèmes ne sont pas si compliqués, il ne faut pas être effrayé au premier abord.

[Jedai]

Woufeil, tu réfléchis trop !! Inutile d'optimiser pour le premier problème !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -MList::Util=sum -e 'print sum grep {not $_ % 3 or not $_ % 5} (1..999)'

En Perl 6 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
use v6;
say [+] grep {not $^a % 3 or not $^a % 5}:1..999;

--
Jedaï

[Woufeil]

Woufeil, tu réfléchis trop !! Inutile d'optimiser pour le premier problème !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

perl -MList::Util=sum -e 'print sum grep {not $_ % 3 or not $_ % 5} (1..999)'

En Perl 6 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
use v6;
say [+] grep {not $^a % 3 or not $^a % 5}:1..999;

--
Jedaï

On dira que j'ai rien dit avant, OK ?

[Jedai]

Heu, y aurait-il des problèmes assez simples comme "$i valant 1, trouver la valeur de $p sachant que le total des deux est 2" ?

Les 2 premiers sujets m'ont bien calmé

La valeur de $p dépend de l'anneau dans lequel on se place, précisez la question !

Non sérieusement les 10 premiers problèmes ne sont pas sorciers, prend ton temps, réfléchis, éventuellement fait quelques recherches sur les termes que tu ne comprends pas et tu y arriveras.

--
Jedaï

[Arioch]

La valeur de $p dépend de l'anneau dans lequel on se place, précisez la question !

Non sérieusement les 10 premiers problèmes ne sont pas sorciers, prend ton temps, réfléchis, éventuellement fait quelques recherches sur les termes que tu ne comprends pas et tu y arriveras.

--
Jedaï

Trop matheux pour moi (je hais les maths), hélas

Les 2 premiers, je ne dis pas, je viens de relire l'énoncé plus posément. Mais après, oulah !

[GnuVince]

Arioch: Je suis pas un manique de mathématiques non plus, loin de là, mais je dois dire que je trouve Project Euler très le fun quand même. Le vrai "challenge", c'est que tous les problèmes peuvent être résolus en moins d'une minute. Tu apprends comment optimiser, ce qui est toujours pratique à savoir.

[Jedai]

Arioch: Je suis pas un manique de mathématiques non plus, loin de là, mais je dois dire que je trouve Project Euler très le fun quand même. Le vrai "challenge", c'est que tous les problèmes peuvent être résolus en moins d'une minute. Tu apprends comment optimiser, ce qui est toujours pratique à savoir.

Précisons que le "moins d'une minute" c'est le temps nécessaire à l'exécution du programme que tu auras trouvé après quelques heures....
(pas pour les 10 premiers problèmes normalement, mais après certains sont plus durs tout de même)

--
Jedaï

[Jedai]

Trop matheux pour moi (je hais les maths), hélas

Les 2 premiers, je ne dis pas, je viens de relire l'énoncé plus posément. Mais après, oulah !

Le 4, le 6, le 8 et le 11 sont tout à fait abordable sans mathématiques du tout.

--
Jedaï