🚀 go-pugleaf

In article <slrnf2d833.g1j.pere@hola.fou.net>, Pere Pujal i Carabantes 
wrote:
> La pregunta es si existe algo en scm equivalente a
> 
> for item in `cat lista`
> do
> órdenes varias
> done
> 
> o bién
> 
> for i in a b c d
> do
> órdenes varias
> done

Supongo que scm es scheme (mas que nada por el grupo en que estamos)
 para hacer eso se usa map 

que puede estar definida como:

 (define (map f lst)
   (cond ((null? lst) lst)
         (else (cons (f (car lst))
                     (map f (cdr lst))))))

y se llama tal que asi por ejemplo:

(map (lambda (x) (* x x)) '(1 2 3 4))
 ;;  => (1 4 9 16)


> 
> Algún FM donde mirar?
>

Una buena fuente es empezar con scheme en cualquiera de las wikipedias

--
Los programadores esta ocupados intendtado mejorar los programas a 
prueba de idiotas. Mientras tanto el universo  intenta mejorar los 
idiotas. El universo va ganandor

Hola Jos� Luis

El 19-04-2007
Jos� Luis P�rez Diez va escriure en 
es.comp.os.linux.programacion:
 
> In article <slrnf2d833.g1j.pere@hola.fou.net>, Pere Pujal i Carabantes 
> wrote:
> > La pregunta es si existe algo en scm equivalente a
> > 
> > for item in `cat lista`
> > do
> > órdenes varias
> > done
> > 
> > o bién
> > 
> > for i in a b c d
> > do
> > órdenes varias
> > done

> Supongo que scm es scheme (mas que nada por el grupo en que estamos)
>  para hacer eso se usa map 

S�, pensaba que el int�rprete ser�a /usr/bin/scm, de aqu� el t�tulo,
pero resulta que es tinyscheme, el que viene en el script-fu de gimp


> que puede estar definida como:

>  (define (map f lst)
>    (cond ((null? lst) lst)
>          (else (cons (f (car lst))
>                      (map f (cdr lst))))))

Copiado letra por letra, pero �hay necesidad de redefinirlo?

Es que acabo de probar sin el define y no veo la diferencia.



> y se llama tal que asi por ejemplo:

> (map (lambda (x) (* x x)) '(1 2 3 4))
>  ;;  => (1 4 9 16)

�ste ya me ha quedado diferente, tengo que pasar pares de coordenadas
para lo que me interesa:

(map (lambda (z)  (define x (car z))
	(define y (car(cdr z)))
	(set! target-layer (car (gimp-layer-copy target-layer TRUE)))
	(gimp-image-add-layer img target-layer -1)
	(gimp-drawable-offset target-layer 0 1 x y))
'((4 0) (-8 0) (4 4) (0 -8) (2 7)(-4 -6)(0 6)(4 -6)(-5 5)(6 -4)....))


Salut
Pere
-- 
Mentjant spam a spc@fornol.no-ip.org
Comiendo spam en cannsp@fornol.no-ip.org
Je mange spam a spmc@fornol.no-ip.org
Eating spam at cspm@fornol.no-ip.org

In article <slrnf37pno.38d.pere@hola.fou.net>, Pere Pujal i Carabantes 
wrote:
> > Supongo que scm es scheme (mas que nada por el grupo en que estamos)
> >  para hacer eso se usa map 
> 
> S�, pensaba que el int�rprete ser�a /usr/bin/scm, de aqu� el t�tulo,
> pero resulta que es tinyscheme, el que viene en el script-fu de gimp
> 
> > que puede estar definida como:
> 
> >  (define (map f lst)
> >    (cond ((null? lst) lst)
> >          (else (cons (f (car lst))
> >                      (map f (cdr lst))))))
> 
> Copiado letra por letra, pero �hay necesidad de redefinirlo?

No era simplemete para mostar el funcionamiento, no 

 
> Es que acabo de probar sin el define y no veo la diferencia.
>

Y seguramete sin el define vaya  mas rapido yo lo puse porque incluso en 
los lenguages que tienen la funcion map muy poca gente la utilza como 
control de flujo

--
Los programadores esta ocupados intendtado mejorar los programas a 
prueba de idiotas. Mientras tanto el universo  intenta mejorar los 
idiotas. El universo va ganando