Misez p'tit Optimisez n°90 : Bibi or not Bibi

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1991
Inscription : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Misez p'tit Optimisez n°90 : Bibi or not Bibi

Message par C.Ret » 31 mai 2019 19:40

Je viens de voir qu'il n'y a pas de code en RPL !

Voici un premier jet:
→BIBI qui prend un nombre au niveau 1: est le transforme en code bibi-binaire. (Il doit être optimisable, j'ai eut du mal avec la parité et j'utilise le drapeau 1 pour avoir un code complet :( )
BIBI→ qui prend un code bibi-binaire au niveau 1: est le remplace par sa valeur décimale.

Code : Tout sélectionner

« 1 SF "" "HBKD" "OAEI" 4 ROLL
  DO
    IF 1 FC?C THEN 1 SF END
    4 MOD LAST / IP ROT DUP 5 ROLLD
    ROT 1 + DUP SUB 5 ROLL + 4 ROLLD
  UNTIL DUP NOT 1 FS? AND END
  3 DROPN »    
'→BIBI' STO

Code : Tout sélectionner

« →STR 0 SWAP
  DO
    1 1 SUB LAST + 99 SUB "OAEIHBKD" ROT POS → p
    « IF p THEN SWAP 
        IF p 4 > THEN 16 * p 5 - 4 * ELSE p 1 - END
      + SWAP END »
  UNTIL DUP SIZE NOT END
  DROP »     
'BIBI→' STO
P.S.: Il faut que l'option LAST soit activée.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator |HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Répondre

Revenir vers « Tous les Pockets »