Исправление czan, (текущая версия) :
Текст программы:
(setq a '(1 2))
(setq b '(1 2 3 4))
(setq c '(11 22))
(setq d '(100 200))
(setq str "a")
(setq n 1)
(define (get-element some-string ind)
(nth (- ind 1) (eval (read-expr some-string))))
Использовать так:
> (get-element str n)
1
P.S.: Писалось на new-lisp.
Исходная версия czan, :
Текст программы:
(setq a '(1 2))
(setq b '(1 2 3 4))
(setq c '(11 22))
(setq d '(100 200))
(setq str "a")
(setq n 1)
(define (get-element some-string ind)
(nth (- ind 1) (eval (read-expr some-string))))
Использовать так:
> (get-element str n)
1