Discussion :

[Canvas]

Bonjour,

Voici un défi qui consiste à écrire un programme en Tcl-Tk. Plusieurs solutions plus ou moins astucieuses ou élégantes sont possibles. L'idée étant que cela suscite des commentaires ou des questions sur les codes proposés afin d'en apprendre un peu plus sur Tcl-Tk.


Défi Tcl n°1 : persistance additive et multiplicative

A) La persistance additive PA(n) d'un nombre entier n consiste à :
1. prendre un nombre n
2. additionner les chiffres qui composent ce nombre
3. recommencer l'étape 1. à partir résultat

La persistance additive de n correspond au nombre de fois que l'on peut réaliser l'étape 2.

Ex :
N = 1789
1 + 7 + 8 + 9 = 25
2 + 5 = 7

Donc PA(1789) = 2

B) La persistance multiplicative PM(n) d'un nombre n consiste à faire la même chose mais en multipliant les chiffres de n :

Ex :
N = 1492
1 x 4 x 9 x 2 = 72
7 x 2 = 14
1 x 4 = 4

Donc PM(1492) = 3

Le défi est donc d'écrire les deux procédures PA et PM qui retournent la persistance additive et multiplicative d'un entier n.

A vos claviers (ou commandes vocales )

----
Canvas

[Invité]

Bonjour,

Moi j'ai fait comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
proc PA {n} {
    set r [expr [join [split $n {}] +]]
    if {$r == $n} {return [info level]} else {return [PA $r]}
}
 
proc PM {n} {
    set r [expr [join [split $n {}] *]]
    if {$r == $n} {return [info level]} else {return [PM $r]}
}

[Canvas]

Bonsoir,

Whouah, ça commence fort : récursivité et introspection du niveau de la pile !

Bon, je propose ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
proc PA n {
 for {set i 0} {[string length $n] > 1} {incr i} {
    set n [::tcl::mathop::+ {*}[split $n ""]]
 }
 return $i
}
 
proc PM n {
 for {set i 0} {[string length $n] > 1} {incr i} {
    set n [::tcl::mathop::* {*}[split $n ""]]
 }
 return $i
}

----
Canvas