[DFooz]

Сущ-ют ли функции для работы с именем переменной?
Напр., есть имя "Func_1". Можно ли как-то выцепить единичку из имени?

[Клякса]

Почти уверен, что нет. А почему не ввести новую переменную?

[Makswell]

Программы с самомодифицирующемся кодом...
Ходят слухи что на лиспе это возможно, хотя может это просто слухи...

[Alaspher]

Сообщение от DFooz Сущ-ют ли функции для работы с именем переменной? Напр., есть имя "Func_1". Можно ли как-то выцепить единичку из имени?

Не очень понятно, зачем, но в принципе, нечто такое можно сделать так:

Код:

[Выделить все]

(setq func_1    '(1 2 3 4)
      tmp       'func_1
      func_name (vl-symbol-name tmp)
      base_name (vl-string-right-trim "0123456789" func_name)
      digital   (atoi (substr func_name (1+ (strlen base_name))))
)
(set (read (strcat base_name (itoa (1+ digital)))) func_1)
(setq func_1 nil)

Сообщение от Makswell Программы с самомодифицирующемся кодом... Ходят слухи что на лиспе это возможно, хотя может это просто слухи...

Самомодификация это совсем другое. На ЛИСПе, действительно реализуется достаточно несложно, другое дело, что задач, где это можно применить с пользой, практически нет.

[DFooz]

Не очень понятно, зачем,

я делаю форматки и хотелось бы в функцию пересылать часть имени переменной (из А1 - 1, из А2 - 2). Просто, чтобы не писать всё время разные параметры пересылки(1, 2), а иметь эту функцию, саму выделяющую часть имени файла.

[Кулик Алексей aka kpblc]

А если просто назначать значение переменной и его передавать в функцию? Что мешает?

[DFooz]

длина кода увеличится. Сущ-ют функции eval, apply, вот я и подумал, может вдруг есть и такая функция.

Всем большое спасибо.

[Кулик Алексей aka kpblc]

Да ну?? Быть того не могет! Может, логику кода надо пересмотреть?

[DFooz]

Быть того не могет!

В моём случае может.

Может, логику кода надо пересмотреть?

Может. Если кто предложит свой вариант на ЛИСПе будет интересно посмотреть.

[Авдотья Прасковьевна]

Сообщение от DFooz Быть того не могет! В моём случае может. Может, логику кода надо пересмотреть? Может. Если кто предложит свой вариант на ЛИСПе будет интересно посмотреть.

Ой, я столько лиспов знаю.
Только непонятно, что именно вам надо.
Может вы свой вариант покажете?

[Кулик Алексей aka kpblc]

Какой вариант кода? Вариантов рисования форматок, извиняюсь, как собак нерезанных (я и то свой написал).

[Apelsinov]

Я очень извиняюсь, что не в тему...
я, если честно, по теме ниче не понял...почти
я как в запяматованном году себе форматки нарисовал, так ими и пользуюсь, и не знаю зачем тут лисп.

Авдотья Прасковьевна - ваша фамилия случаем не Кибершутер ?

[Авдотья Прасковьевна]

Сообщение от Apelsinov Я очень извиняюсь, что не в тему... я, если честно, по теме ниче не понял...почти я как в запяматованном году себе форматки нарисовал, так ими и пользуюсь, и не знаю зачем тут лисп. Авдотья Прасковьевна - ваша фамилия случаем не Кибершутер ?

Да, но это девичья.
А как вы узнали?

[Apelsinov]

Сообщение от Авдотья Прасковьевна Да, но это девичья. А как вы узнали?

О, это простое совпадение!
Однако, обещаю Вам: жалеть, завидовать и охотно подсказывать.

Очень надеюсь на взаимность.

[Post]

[: |||||||| : ]

[Alaspher]

Сообщение от DFooz Не очень понятно, зачем, я делаю форматки и хотелось бы в функцию пересылать часть имени переменной (из А1 - 1, из А2 - 2). Просто, чтобы не писать всё время разные параметры пересылки(1, 2), а иметь эту функцию, саму выделяющую часть имени файла.

Честно сказать - стало значительно непонятнее... Передача данных в функции стандартно решается через аргументы.

[Profan]

Для DFooz.
У вас концепция не продумана. Или ее вовсе нет. Вот вы и паритесь.

я делаю форматки

Все делают форматки, но без таких проблем.

[Елпанов Евгений]

Сообщение от Alaspher Передача данных в функции стандартно решается через аргументы.

Можно пойти другим путем, на основе данных, сгенерировать функцию, специально заточенную под эти данные...
Как пример:
>Евгений Елпанов (2006-03-12 10:50:01)

[Alaspher]

Сообщение от Елпанов Евгений Можно пойти другим путем, на основе данных, сгенерировать функцию, специально заточенную под эти данные...

Можно, но, обычно, проще сделать что-то такое:

Код:

[Выделить все]

(defun multi-subst-1 (lst lst-i / tmp i)
    (cond ((not lst) nil)
          ((setq tmp (assoc (setq i (car lst)) lst-i))
           (cons (cadr tmp) (multi-subst-1 (cdr lst) lst-i))
          )
          (t (cons i (multi-subst-1 (cdr lst) lst-i)))
    )
)

Не так универсально, но гораздо проще.

[* небольшая правка - локализация переменных]

[Елпанов Евгений]

>Alaspher
Вы конечно правы, так проще, короче, понятнее...
Я изучал различные способы загрузки программ - мне нужна была защита изнутри лиспа. Я ее получил!
Принципы те же, что и в предложенной мной функции - программа генерируется на основе ключа, если ключ правильный - программа будет работать, не правильный - не будет! Самое главное в том, что в лиспе не хранится проверки ключа - проверить можно самой работой программы.