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

[C.Ret]

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.