La question de l'équinoxe de printemps 2022.

[FLISZT]

Bravo à tous !
Je constate qu'il y a eu pas mal de propositions depuis dimanche, non seulement pour différentes machines "RPN", mais aussi du BASIC, du RPL et même une version hp-16C. J'avais justement imaginé, bien que ne connaissant rien à cette machine, qu'on devait pouvoir faire qq chose de spécifique.

Tout en écoutant la n°9 de Bruckner (sont pénibles sur ma radio, y'a que du classique… pis Brucker, c'est comme Mahler, on en prend vite pour une heure, hein ! ), j'ai eu l'idée de faire qq chose sur ma hp-28S, largement inspirée par la version hp-16C de Hobiecat.
Évidement, en RPL c'est tout de suite plus amusant, moins court voire abscons… c'est pour cela que c'est amusant.
SI !

Code : Tout sélectionner

En mode BIN
<<
	R→R SR # 0b SAME # 10b  # 1b  IFTE
>>

Si j'en crois ma hp-50g, ça fait 59 octets.

Je réponds au courrier de quelques lecteurs…

Deux variantes de la solution de casuffitdeschanel;
3
-
CHS

3
X<>Y
-

Bravo zpalm pour ces deux versions (et les suivantes). Les deux ci-dessus correspondent très précisément à la « catégorie n°3 » (les suivantes appartiennent à d'autres catégories).

2
x=y
/

J'édite : c'est joli, bien qu'évidemment, cela ne fonctionne qu'en mode Programme. Mais c'est joli.

Mais c'est parfait comme ça Marge ! Cette routine correspond d'ailleurs à l'une des 4 propositions attribuées à la « catégorie n° 10 »

Bon, j'arrive après la bataille !

Mais je trouve que vous avez tous des façons de faire vachement compliquées !
Je crois que sur une HP-67 le plus simple est de faire le programme suivant:

Code : Tout sélectionner

ENTER^ ENTER^  ENTER^  5  -  ×  6  +  4  ÷  2   g R↑  g y^x  ×  1 +

(Ce code entre dans la catégorie #1 comme tout bon job incompréhensible par un tier )

Non, non C.Ret, la bataille n'est pas terminée. En revanche, c'est tout à fait exact : dans le commentaire sur la catégorie n°1, on trouve bien le terme « incomprehensible » (en anglais dans le texte). Mais ce n'est pas la seule a être peu lisible…

CHS
3
+

Le problème de casuffitdeschanel, c'est qu'il a tué le débat dès le 2ème post

Ce n'est pas totalement faux, mais c'est un peu de ma faute.
Dans un élan sans doute printanier, j'ai eu ces mots malheureux « À vos claviers » sans autres consignes…

Aura-t-on la chance de découvrir une version APL, Python, voire LISP (sur Casio AI-1000 par ex.) ou d'autres encore ?

Pour vous faire patienter, voici qq catégories : le mathématicien, le débutant, le programmeur système, le distrait, le géomètre…
Suite et fin mercredi ou jeudi.

[zpalm]

[…] et même une version hp-16C. J'avais justement imaginé, bien que ne connaissant rien à cette machine, qu'on devait pouvoir faire qq chose de spécifique.

Sur HP-16C en mode HEX, DEC, OCT ou BIN:

NOT
3 (11 en mode BIN)
AND

[casuffitdeschanel]

[…] et même une version hp-16C. J'avais justement imaginé, bien que ne connaissant rien à cette machine, qu'on devait pouvoir faire qq chose de spécifique.

Sur HP-16C en mode HEX, DEC, OCT ou BIN:

NOT
3 (11 en mode BIN)
AND

Pas possible de faire juste XOR puisque 2 = 10 et 1 = 01 ?

[FLISZT]

Sur HP-16C en mode HEX, DEC, OCT ou BIN:

NOT
3 (11 en mode BIN)
AND

En RPL, je ne vois pas comment faire qq chose de similaire, ne serait-ce que parce qu'il faut choisir une base (et une seule).

[Hobiecat]

Pas possible de faire juste XOR puisque 2 = 10 et 1 = 01 ?

Oui, sur la 16C, on peut effectivement faire en binaire :
11
XOR

Il va être difficile de faire plus court...

[zpalm]

Pas possible de faire juste XOR puisque 2 = 10 et 1 = 01 ?

Oui, sur la 16C, on peut effectivement faire en binaire :
11
XOR

Il va être difficile de faire plus court...

Évidemment !! Je ne devais pas avoir les idées claires ce matin, j’ai pensé à utiliser XOR mais je n’ai pas vu cette solution…

[FLISZT]

Pas possible de faire juste XOR puisque 2 = 10 et 1 = 01 ?

Oui, sur la 16C, on peut effectivement faire en binaire :
11
XOR

Il va être difficile de faire plus court...

Effectivement !

« Copié-collé » en RPL :

Code : Tout sélectionner

En mode BIN

<<  R→B  # 11b  XOR  >>

(28 octets)

[FLISZT]

Aura-t-on la chance de découvrir une version APL, Python, voire LISP (sur Casio AI-1000 par ex.) ou d'autres encore ?

… je m'auto-cite !

Il y a trois autres solutions en 3 pas (deux très proches et l'une utilisant « e^x » !! ), toutes trois différente de celles déjà proposées par casuffitdeschanel et zpalm.

Il manque aussi, pour l'instant, une version trigonométrique mais aussi une version (deux propositions) sans le moindre calcul ni test mais avec des indirections… (6 à 8 pas).

L'idée n'est pas forcément de « miser p'tit » (ce n'est pas interdit) mais de penser (aussi) « original » pour arriver au résultat escompté.

[Marge]

J’ai une version confucéenne mais je crains qu’elle ne soit pas acceptée :

« Nous avons deux vies ; la deuxième commence lorsque nous nous rendons compte que nous n’en avons qu’une. »

[FLISZT]

J’ai une version confucéenne mais je crains qu’elle ne soit pas acceptée :

« Nous avons deux vies ; la deuxième commence lorsque nous nous rendons compte que nous n’en avons qu’une. »

Marge, bien que ne faisant appel à aucunes piles (à tous les sens du terme d'ailleurs), elle sera acceptée si la réciproque peut être démontrée.

[C.Ret]

Évidement, en RPL c'est tout de suite plus amusant, moins court voire abscons… c'est pour cela que c'est amusant.

Tout à fait d'accord: je vais moi aussi chercher ma calculatrice à clapet

« { 2 1 } SWAP GET »
Ca ça me fais me bidonner.

Dans un autre registre mais basé sur le même principe:
« 1 == 2 1 IFTE »

Basé sur des calculs inexacts:
« INV EXP IP »


Par contre, très sérieusement sur une voyager au alentour du 15ième modèle :

2 x><y g Cy,x

Là va falloir envisager une nouvelle catégorie, la catégorie # ∑ celle des statisticiens et autres agents du dénombrement...

A zut, ça marche aussi en RPL:
« 2 SWAP COMB »

Et réciproquement, d'autres fonctionnent en RPN:
1/x e^x g INT

[FLISZT]

Joli feu d'artifice C.Ret ! Belle créativité !
Si la bataille était terminée, visiblement elle a repris.

« { 2 1 } SWAP GET »
Ca ça me fais me bidonner.

… moi aussi et c'est du pur RPL avec une liste !

Là va falloir envisager une nouvelle catégorie, la catégorie # ∑ celle des statisticiens et autres agents du dénombrement...

… oui, cette catég. n'a pas été prévue. Faut dire qu'à l'époque, avoir la fonction "factorielle" sur sa calculatrice était presque un "luxe", alors les combinaisons et autres arrangements… Ne pourrait-on pas classer cette catég. oubliée comme étant celle du "Mathématicien" ?

Basé sur des calculs inexacts:
« INV EXP IP »

Et réciproquement, d'autres fonctionnent en RPN:
1/x e^x g INT

Cette mouture "exponentielle" est également présente dans le fichier TXT dont je donnerai le lien prochainement.

L'article du PPC Journal dont est issu ce fil a eu une suite dans le PPC Journal (V5 N9 P5), sous la plume de Richard Nelson.
Y sont relatées les trois meilleures solutions des participants, dont cette routine jugée comme étant « the "best" ».

C.Ret, tu as donc les félicitations… euh « prospectives (?) » de Richard Nelson.
Là pas de doute, je la mets dans la catég. "Mathématicien".

Reste plus qu'à trouver une solution "trigonométrique"… (sinus… )

[FLISZT]

Et une solution à base de GSB et / ou de GTO, de LBL éventuellement avec un peu d'indirection ? …je vous mâche le travail !

[tyann]

Bonjour
Sur Hp 41 on peut le faire en 1 pas, après avoir effectuer 1 STO 02 et 2 STO 01.

Code : Tout sélectionner

RCL IND X

[C.Ret]

Et une solution à base de GSB et / ou de GTO, de LBL éventuellement avec un peu d'indirection ? …je vous mâche le travail !

Pour CASIO fx-602p - Oui je sais que c'est pas du RPN ou RPL, mais on va dire que le 1 ou le 2 sont dans le registre d'affichage

Saisir les trois programmes suivants:

Code : Tout sélectionner

MODE 2
  PO                   (504)
     Min00 IND GSB(0)   003
  P1                   (504)
     2                  001
  P2                   (504)
     1                  001

Puis revenir en MODE 1 où s'affiche 1 ou 2. Chaque pression sur P0 changera l'affichage de 1 en 2 et réciproquement.

En fait, c'est exactement l'astuce du « { 2 1 } SWAP GET » ou du STO'I' 2 STO'1' 1 STO'2' RCL(i), mais version programme.
Un peu comme si l'on programmait
STO'I' GTO(i) LBL'1' 2 RTN LBL'2' 1 RTN

Reste plus qu'à trouver une solution "trigonométrique"… (sinus… )

Je tourne en rond autour du cercle trigonométrique, je fait un ou deux tours, dans un sens ou dans l'autre, mais je n'ai (encore) rien trouvé de pertinent ! Je cherche mon vieux carnets où j'avais noté les formules remarquables de trigo pour le Bac... J'espère trouver quelque part une poussière, un grain de sable, bref un truc qui déclenchera le Déclic