Pregunta novata de loops

[José Luis Romero]

Buenas. Estoy aprendiendo Clojure y lo que he probado me ha gustado
bastante, sin embargo estoy estancado con los loops. Estoy probando
aprender Clojure resolviendo problemas sencllos que los saco de
codingbat.com. Estoy tratando de resolver un problema que dice algo
como que dados 2 parametros, una cadena y un entero, devolver la
cadena concatenada n veces. Por ejemplo, dados los parametros "codigo"
y 3, devolver "codigocodigocodigo". Si existe una manera sin loops
para realizaro perfecto, pero me gustaria mucho alguna explicacion
usando loops para tomarle el truco al loop

Muchas gracias por adelantado

[Sebastián Galkin]

Sin duda que loop/recur no es lo que más conviene, pero si lo querés
hacer así podes intentar algo como:

(defn f [s n]
(if (< n 2)
s
(recur (str s s) (dec n))))


Fijate que no hace falta usar loop, porque es implícito en la línea de
definición de la función, alcanza con el recur.

Saludos

[José Luis Romero]

y otra duda que me sale es, por que se repite mas veces de la cantidad
que se le pasa por parametro? disculpen la necedad pero me interesa
aprender =D

Saludos

[Sebastián Galkin]

Porque tiene un bug horrible jeje.

Estoy concatenando el resultado parcial con sí mismo, en vez de
concatenar el resultado parcial con el string original.

(defn f [s n]
(loop [res s n n]
(if (< n 2)
res
(recur (str res s) (dec n)))))

Creo que ahora anda, perdón

[tang...@gmail.com]

No vale, mas bien muchas gracias por tomarte el tiempo para ayudarme. Saludos
Enviado desde mi BlackBerry de Movistar

[Marcelo Morales]

2010/6/27 José Luis Romero <tang...@gmail.com>:

loop es el abuelo:
(defn f [s n]
(loop [r "" c n]
(if (= c 0)
r
(recur (str r s) (dec c)))))

Pero también puedes hacerlo como copiando, línea a línea, de Java:
(defn f [s n]
(let [sb (StringBuilder.) c (* n (count s))]
(do
(while (> c (.length sb))
(.append sb s))
(str sb))))

Claro que la solución funcional es más sencilla:
(defn f [s n] (->> s (repeat) (take n) (apply str)))

--
Marcelo Morales

[Jose Luis Romero]

Gracias por los approachs.. seguire, como decimos aqui, tirando piedras con Clojure... espero me sigan ayudando.

Saludos