[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[
La représentation est la même que l'exo3.
L'algo est simplement une boucle :
afficher
diviser chaque chiffre par 3 en repportant le modulo au chiffre suivant (fois 10)
si il y a une retenue non nulle au dernier chiffre, ajouter 1
faire la somme des chiffres pour tester si on est arrivé à 1 (i.e. si le dernier chiffre est 1 et la somme est 1)
Une partie entiere de log base 3 quoi...
]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]]
Centering
>>>>>>>>>>
Input
,----------
[ >+++[<->-------]<-
<+>>>>>>>>,
----------]
@X_x
<<<<<<<<
@X_xm1
[
[<<<<<<<]>>>>>>>
[
Output
>[->+>+<<]
>>[-<<+>>]
+[<+>+++++]<---
.[-]
<
@Xi
Division
<<<<<[->>>>>++++++++++<<<<<]>>>>>
@Xi
>+++<
[->-[>+>>]>[+[-<+>]>+>>]<<<<<]
Here @Xi: 0 nm m d
>>>[-<<<+>>>]
<<[-]<
Here @Xi: d 0 m 0
>>>>>>]
NL
++++++++++.[-]
<<<<
Carry
[
[-]
<<+
<[
>----------[>>]<[>----------<<<<<<<+>>>>>>>>]
<++++++++++<
<<<<<<<]
>>>>>>>[>>>>>>>]<<<<]
<<<[<<<<<<<]>>>>>>>
Addition
[
[-]
<<<<<<<[-<+>]<
[->+>>>>>>>+<<<<<<<<]>>>>>>>>
>[-<+<+>>]
<<
[->>+<<] @L2i
>
>>>>>>>]
Check
<<<<<<<
-[>>>>>>>+<<<<<<<[-]]+>>>>>>>
-[+<<<<<<[>>>>>>>>>>>>>>]>>>>>>
]
<<<<<<<
]