¿Y qué tal (cdddr color)? O te creas tu propia función: (define acceso
(lambda (num lista)
(if (null? lista)
'()
(if (positive? num)
(acceso (- num 1) (cdr lista))
(car lista))))) Y la invocas tan fácil como: (acceso 3 color) Y tienes la ventaja de trabajar con listas arbitrariamente largas, no con vectores.
PD: Acepto correcciones al programa... tengo el Scheme un poco olvidado, y quizás se me haya colado algún gazapo.
Re:Scheme es difícil
(Puntos:1)O te creas tu propia función:
(define acceso
(lambda (num lista)
(if (null? lista)
'()
(if (positive? num)
(acceso (- num 1) (cdr lista))
(car lista)))))
Y la invocas tan fácil como:
(acceso 3 color)
Y tienes la ventaja de trabajar con listas arbitrariamente largas, no con vectores.
PD: Acepto correcciones al programa... tengo el Scheme un poco olvidado, y quizás se me haya colado algún gazapo.