Пример «Конвеер функций»

Файлы:

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

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

//Имена функций в конвеере разделяются символом двоеточие.
//

// --- вспомогательные элементы ---

(Функция (ВернутьСписок) 
    (Список "  Василий Петров  " 8 "девять")
) 

(Функция (Четное? А) 
    (= (% А 2) 0)
) 

(Функция (ПолучитьЧетные спис) 
    (Если (пусто? спис)
        спис
        //Иначе
        (Если (Четное? (ПЭЛ спис))
            (СЭЛ (ПЭЛ спис) (ПолучитьЧетные (ОЭЛ спис)))
            //Иначе
            (ПолучитьЧетные (ОЭЛ спис)) 
        ) 
    ) 
) 

(Функция (УдвоитьЭлементы спис) 
    (ПоКаждому (Функ (А) (* А 2)) спис)
) 

(Перем Стр "  вася  пупкин  ") 

// --- конвеер функций ---

//с помощью конвеера отрежем от строки 8 символов, переведем в верхний регистр
//и обрежем пробелы слева и справа
(Вывод "СокрЛП:ВРег:Лев = *" (СокрЛП:ВРег:Лев Стр 8) "*" пс)

//с помощью конвеера получим список и вычислим его длину
(Вывод "Длина списка: " (Длина:ВернутьСписок) пс)

(Вывод "Первый элемент списка: *" (СокрЛП:ПЭЛ:ВернутьСписок) "*" пс)
(Вывод "Второй элемент списка: *" (СокрЛП:ПЭЛ (ОЭЛ (ВернутьСписок))) "*" пс)

(Вывод (СЭЛ (Список 3 4 5) (ВернутьСписок)) пс)

//с помощью конвеера получим из списка четные элементы и удвоим их
(Вывод (УдвоитьЭлементы:ПолучитьЧетные (Список 0 1 2 3 4 5 6 7 8 9)) пс)

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