Modérateur : Politburo
Code : Tout sélectionner
« -> d
« IF d 4 < d 6 == OR
THEN
{ }
ELSE
{ d } 1 CON
1 d 3 - PUTI
3 PUTI
2 PUT
d 3 - 2 PUT
IF d 5 == THEN
1 3 PUT
3 3 PUT
END
END
»
»
C'est que j'initialise les mémoires à 1 ce dont on peut fort bien se passer ...C.Ret a écrit : Quand je vous disait que la CASIO fx-602p est lente !
Merci Gilles. Finalement, j'ai plus ou moins bien interprété le code pour la fx-602p. C'est vraiment une machine bien sympathique et puissante.Gilles59 a écrit :C.Ret a écrit : Pour répondre à ta question
n=4 -> ()
n=8 -> (53212111)
dprtl a écrit :[...][/color]- proposition 3 de bernouilli92, HP-48SX, A=1990, F=2, T=1, B=175, R=6, bogonote=2318 (à contrôler, notamment sur la taille des variables et registres)
- proposition 2 de C.Ret, HP-28S, A=1986, F=1, T=1, B=157, R=7, bogonote=5418 (à contrôler)
Mon idée initiale était de compter unitairement les variables, ou les objets dans la pile, quelle que soit leur dimension. Mais je m'aperçois finalement que ça reste assez pénible à mesurer, et probablement pas très significatif. En fin de compte, tout programme est limité par la taille de la RAM de la calculette sur laquelle il tourne. Cela devient critique, et quasi impossible à contourner, pour le "vrai" calcul matriciel, par exemple, mais pas dans ce MPO.bernouilli92 a écrit :Par contre je ne sais pas trop comment compter les variables utilisées dans un programme en RPL, car les variables peuvent contenir n'importe quel objet qui peut avoir n'importe quelle taille. Pareil pour l'utilisation de la pile, les objets présents sur la pile peuvent être de différentes nature.
J'aime bien l'idée de la bogonote mais il faudrait l'améliorer un peu pour tenir compte de la loi de moore de manière plus précise.Hobiecat a écrit :En fait, c'est surtout que la bogonote n'apporte pas grand chose sur l'ancien classement "au nombre d'octets"...
En reprenant le classement provisoire sur base "octets", le classement ne change pas énormément !
1er - proposition 1 de Gilles59, 67 octets
2e - proposition 2 de C.Ret, 157 octets
3e - proposition 3 de bernouilli92,175 octets
5e - proposition 1 de bernouilli92, 249 octets
4e - proposition 2 de bernouilli92, 271 octets
7e - proposition 1 de C.Ret, 286 octets
6e - proposition 1 d' Okinawok, 480 octets
6 ème ! C'est ma plus belle performance toute catégorie confondue : d'habitude, je suis bon dernierHobiecat a écrit :En fait, c'est surtout que la bogonote n'apporte pas grand chose sur l'ancien classement "au nombre d'octets"...
En reprenant le classement provisoire sur base "octets", le classement ne change pas énormément !
1er - proposition 1 de Gilles59, 67 octets
2e - proposition 2 de C.Ret, 157 octets
3e - proposition 3 de bernouilli92,175 octets
5e - proposition 1 de bernouilli92, 249 octets
4e - proposition 2 de bernouilli92, 271 octets
7e - proposition 1 de C.Ret, 286 octets
6e - proposition 1 d' Okinawok, 480 octets
Grâce à la bogonote !Okinawok a écrit :6 ème ! C'est ma plus belle performance toute catégorie confondue : d'habitude, je suis bon dernierHobiecat a écrit :En fait, c'est surtout que la bogonote n'apporte pas grand chose sur l'ancien classement "au nombre d'octets"...
En reprenant le classement provisoire sur base "octets", le classement ne change pas énormément !
1er - proposition 1 de Gilles59, 67 octets
2e - proposition 2 de C.Ret, 157 octets
3e - proposition 3 de bernouilli92,175 octets
5e - proposition 1 de bernouilli92, 249 octets
4e - proposition 2 de bernouilli92, 271 octets
7e - proposition 1 de C.Ret, 286 octets
6e - proposition 1 d' Okinawok, 480 octets
J'avais fais il y a quelques années, un programme justement pour mesurer la taille d'un programmes et de ses variables pour 28S. vu le code, il rest valable pour 48/49/50bernouilli92 a écrit :Par contre je ne sais pas trop comment compter les variables utilisées dans un programme en RPL, car les variables peuvent contenir n'importe quel objet qui peut avoir n'importe quelle taille. Pareil pour l'utilisation de la pile, les objets présents sur la pile peuvent être de différentes nature.
Code : Tout sélectionner
«
<< CLLCD DUP
IF TYPE 6 SAME
THEN 1 ->LIST
ELSE
IF DUP TYPE 5 <>
THEN
IF DUP TYPE 8 SAME
THEN EVAL
ELSE KILL
END
END
END
"-- Taille des prog --
"
1 DISP DUP SIZE -> list tail
<< 0 0 1 tail
FOR X list X GET
IFERR DUP ->STR DUP SIZE 1 - 2 SWAP
SUB "* '" SWAP + "' -> " + SWAP RCL 'programme' STO MEM
'programme' PURGE MEM SWAP - DUP 4 ROLL + 3 ROLLD ->STR +
THEN ERRM 3 DISP DROP2
ELSE ROT DROP 10 CHR + "*** TOTAL : " 3 PICK ->STR + DUP 4 ROLLD + 3 DISP
END
NEXT DROP
>>
>>
'SIZ' STO