Bonsoir.jxano a écrit :En janvier 2009, Xerxes m'avait demandé de chronométrer mon Sanco avec le code suivant (justement une recherche des 8 reines) :leduigou a écrit :Tiens, semaine dernière, profitant d'un voyage en train, je me suis mis à la programmation des 8 reines sur une hp-41c. Bigre, c'est pas si façile
Surtout les tests, c'est long ... Mais ça marche. Mon honneur est saufPas loin de 7 minutes 30... Le Sanco est étonnement lent !Code : Tout sélectionner
. 10 CLEAR:DEFINT A-Z (DEFINT used if possible) . 20 R=8 . 30 REM DIM A(R) (DIM used if necessary) . 40 IF X=R THEN 180 . 50 X=X+1 . 60 A(X)=R . 70 S=S+1 . 80 Y=X . 90 Y=Y-1 . 100 IF Y=0 THEN 40 . 110 T=A(X)-A(Y) . 120 IF T=0 THEN 140 . 130 IF X-Y<>ABS(T) THEN 90 . 140 A(X)=A(X)-1 . 150 IF A(X)<>0 THEN 70 (<>0 omitted if possible) . 160 X=X-1 . 170 IF X<>0 THEN 140 (<>0 omitted if possible) . 180 PRINT S
Je ne sais pas si ça a le moindre intérêt mais le Sharp 1403 fais guère mieux : 7 mn 17.
Existe-t-il un tableau récapitulatif des résultats pour une série de machines ?
