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