Les grands esprits se rencontrent

[Grassotv 58]

Je me sentais d'humeur poétique aujourd'hui, 

Pourquoi ne pas mettre mon énigme en vers libre me suis-je dis. 

 

"Chacun des deux a son triangle mais saurez-vous les retrouver

Sachez qu'il vous faudra les croiser

Pour trouver comment est-ce que je fisse

Pour obtenir 18786

J'attend vos réponses avec impatience

Mais en spoiler svp vous étalerez votre science"

Modifié 3 octobre 2014 par Grassotv

[Grassotv 58]

Désolé de cette absence, j'étais submergé par le travail et à vrai dire ce n'est pas prêt de s'arranger... Bref, excellente réponse de Godzi  

On attend toujours petiseb  

[petiseb 1 174]

Bon je m'y suis enfin mis

 

En regardant les triangles de Pascal dans google image, je suis tombé sur un site intéressant.

J'ai donc pu voir que le triangle de Sierpinski permet de séparer parfaitement les nombres pairs des nombres impairs du triangle de pascal.

Pour trouver ton nombre, il suffit de sommer tous les nombres pairs du triangle de pascal construit jusqu'à la quinzième ligne

 

Preuve codé (il suffit de faire varier le max de i pour trouver 15 ):

Function u_binoCoeff(N, j)

 

          Dim i As Integer

          Dim b As Double

          

          b = 1

          For i = 0 To j - 1

                    b = b * (N - i) / (j - i)

          Next i

          u_binoCoeff = b

          

End Function

 

Sub Macro3()

 

 

cptPair = 0

cptImpair = 0

For i = 1 To 15 Step 1

For j = 1 To i Step 1

 

coeff = u_binoCoeff(i, j)

If (coeff Mod 2 = 0) Then

cptPair = cptPair + coeff

Else

cptImpair = cptImpair + coeff

End If

 

Next j

Next i

 

 

ActiveCell = cptImpair

ActiveCell.Offset(1, 0).Select

ActiveCell = cptPair

 

End Sub

 

[Grassotv 58]

Alors d'abord je dis bravo    et pour le code par contre la je dis comme toujours méga respect 

 

Quelqu'un en clair ou je clôture ce sujet qui n'a déjà que trop duré

[petiseb 1 174]

En attendant, superbe énigme, j'ai appris une chose qui ne saute pas aux yeux ^^.

D'ailleurs, j'ai eu de la chance, car j'aurai pu galérer comme Cyb' si je n'étais pas tombé sur l'info par hasard

Sinon, le code est tout simple, il n'y a pas de respect à avoir 

Modifié 27 octobre 2014 par petiseb

[Grassotv 58]

Merci, je suis toujours content de savoir que mes énigme plaise, pour le code ça m'impressionne toujours simple ou pas rien que le fait de codé un truc qui te donne la réponse je trouve ça excellent

 

Personne n'a l'air de ce déclaré pour faire une réponse en claire, encore deux-trois jours et "on ferme m'ssieurs dames"

[petiseb 1 174]

Je pense que tu peux donner les initiales des deux triangles comme indice pour ceux qui voudraient tenter

[Grassotv 58]

Ok alors disons qu'il faut croiser les triangles de P et de S.

[petiseb 1 174]

En sachant que P est bien un triangle et non le nom d'un théorème archi connu

[Cybero 4 301]

Un petit

[Grassotv 58]

Ola !

 

Dsl de pas être présent sur le forum en ce moment je donne des cours à longueur de journée... Merci pour ce petit UP, si il retombe sans réponse en claire, je viendrais le clôturer.