Sub Takeshi()
Dim s7s$
s7s = "=-1+2*(3+4^5)-6*7"
MsgBox [=-1+2*(3+4^5)-6*7] & s7s & vbCrLf & "(par François Lavallou)", vbInformation, "Problème de Takeshi Kitano - La 7-solution"
End Sub
(en A1 à A6 : 1 à 6)=A1+A2*FACT(A3+A4)/A5-A6
dur dur....=-1+((FACT(2+FACT(3))-FACT(4))/FACT(5))*6 = 2013,8
1+2*FACT(3+4)/5-6 =2011
On peut aussi essayer pour 2012 ou 2013Il s’agit de trouver une « n-solution » pour n le plus petit possible, une n-solution étant une expression égale à 2011* où interviennent successivement les entiers de 1 à n.
On peut utiliser les opérateurs mathématiques suivants:
+ – x / ( ) ^ ! rac
n ! désigne la factorielle (produit des nombres entiers de 1 à n)
rac (n) désigne la racine carrée de n
Je remets un exemple de solution pour : n=5
voici un exemple pour 2011 et la 5-solution
(solution de Nicolas Graner publiée dans le magazine Tangente)
2011=((1+2)!!+(3!^4))-5
Un algoPS: Ce que j'essaie de faire c'est de trouver un algo (comme nous en trouvames un pour The 24 game) avec le concours de vos neurones et des miens encore valides.