Пример «Действие Вычислить»

Файлы:

Пример программы на языке программирования Перфо:

//Эта программа написана на языке программирования Перфо
//для демонстрации использования действия Вычислить

//Действие Вычислить:

//вычисляет переданное выражение в текущем окружении
//вариант 1: если передана строка, то она компилируется и вычисляется как код
//           например, (Вычислить "(+ 3 4)")
//вариант 2: если передан идентификатор, то его значение извлекается и затем вычисляется
//           Если значение это строка, то она вычисляется как код,
//           иначе вычисляется как выражение.
//           например, (Вычислить МояПеременная)
//вариант 3: если выражение НЕ является строкой или идентификатором, то оно просто вычисляется
//           например, (Вычислить (+ 3 4))

//-----------------------------------
//создадим вспомогательные переменные

(Перем МойКод (Код (+ 3 4 5)))

(Перем МойКодВСтроке "(+ 3 4 5)")

(Перем МояЛямбда (Функ() (+ 13 14 15)))

(Функция(Сум А Б) (+ А Б))

//-----------------------------------
//разнообразные тесты

(Вывод "(Вычислить 8) = " (Вычислить 8) пс)

(Вывод "(Вычислить (Код (+ 55 45))) = " (Вычислить (Код (+ 55 45))) пс)

(Вывод "(Вычислить (функ()(+ 100 300))) = " (Вычислить (функ()(+ 100 300))) пс)

(Вывод "(Вычислить (+ 20 30)) = " (Вычислить (+ 20 30)) пс)

(Вывод "(Вычислить МойКод) = " (Вычислить МойКод) пс)

(Вывод "(Вычислить МойКодВСтроке) = " (Вычислить МойКодВСтроке) пс)

(Вывод "(Вычислить МояЛямбда) = " (Вычислить МояЛямбда) пс)

(Вывод "(Вычислить ""МойКод"") = " (Вычислить "МойКод") пс)

(Вывод "(Вычислить ""МойКодВСтроке"") = " (Вычислить "МойКодВСтроке") пс)

(Вывод "(Вычислить ""МояЛямбда"") = " (Вычислить "МояЛямбда") пс)

(Вывод "(Вычислить ""(МояЛямбда)"") = " (Вычислить "(МояЛямбда)") пс)

(Вывод "(Вычислить ""(Вычислить МойКод)"") = " (Вычислить "(Вычислить МойКод)") пс)

(Вывод "(Вычислить ""(Вычислить МойКодВСтроке)"") = " (Вычислить "(Вычислить МойКодВСтроке)") пс)

(Вывод "(Вычислить ""(Вычислить МояЛямбда)"") = " (Вычислить "(Вычислить МояЛямбда)") пс)

(Вывод "(Вычислить ""(+ 70 80)"") = " (Вычислить "(+ 70 80)") пс)

(Вывод "(Вычислить (Сум 7 8)) = " (Вычислить (Сум 7 8)) пс)

(Вывод "(Вычислить ""(Сум 7 8)"") = " (Вычислить "(Сум 7 8)") пс)

К началу статьи