Necesito hacer una función en Maxima que repita k veces los dígitos de un número n. Por ejemplo,
repetirDigitos(41,4) = 41414141
repetirDigitos(24,3) = 242424
repetirDigitos(14,7) = 14141414141414
He intentado convertir el número n en una cadena (string), y repetirlo las k veces necesarias. Pero, he buscado en distintos manuales y no encuentro ninguna función que haga eso.
Este es el código que tengo
(%i1) log10(n) :=
log(n) / log(10)$
nDigitos(n) :=
if n = 0 then 1
else floor(log10(n)) +1$
(%i2) nDigitos(3^64);
(%o1) 31
(%i3) repetirNumero(n,k) :=
repeat(k,readline(n))$
NOTA.- Todo el código es parte del ejercicio que quiero hacer, pero me he quedado atascado en la función repetirNumero(n,k)
repetirNumero
pero no hay ningun intento... algo habrás probado, y algun error o problema concreto habrás tenido no?readline(n)
la he encontrado en un manual, yrepeat
no sé si existe, no encuentro ninguna función que repita elementos.