Пример «Функции с тремя операндами»

Файлы:

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

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

// Тест функции Сред: извлекает часть строки
(Перем Стр "абвгдеёжзи")
(Вывод "(Сред Стр 2 4): " (Сред Стр 2 4) пс) 
// ожидаем: "вгде"

// Тест функции Сред: извлекает часть списка
(Перем Буквы (Список "а" "б" "в" "г" "д" "е" "ё" "ж" "з" "и"))
(Вывод "(Сред Буквы 3 3): " (Сред Буквы 3 3) пс)
// ожидаем: (в г д)

// Тест функции УЭЛ: заменяет элемент списка по индексу
(Перем Буквы (Список "а" "б" "в" "г" "д" "е" "ё" "ж" "з" "и"))
(УЭЛ Буквы "Ф" 4) // изменим "д" на "Ф"
(Вывод "После применения УЭЛ: " Буквы пс)

// Тест функции УстановитьЭлемент: синоним УЭЛ
(УстановитьЭлемент Буквы "Х" 7) // изменим "ж" на "Х"
(Вывод "После применения УстановитьЭлемент:" Буквы пс)

// Тест функции СтрЗаменить: заменяет в строке подстроку на другую
(Перем Стр "абвгдеабвгдеабвгде")
(Вывод "(СтрЗаменить Стр ""абв"" ""ХХ""): " (СтрЗаменить Стр "абв" "ХХ") пс)
// ожидаем: "ХХгдеХХгдеХХгде"

// Тест функции СтрРазделить: разбивает строку по разделителю, включая пустые строки
// Возвращает массив строк.
(Перем Стр "а;;б;в;;г;")
(Перем Части1 (СтрРазделить Стр ";" Истина))
(Вывод "СтрРазделить (с включением пустых) : [" (Части1.Представление ",") "]" пс)
// ожидаем: [а,,б,в,,г,]

// Тест функции СтрРазделить: разбивает строку по разделителю, исключая пустые строки
// Возвращает массив строк.
(Перем Части2 (СтрРазделить Стр ";" Ложь))
(Вывод "СтрРазделить (без включения пустых): [" (Части2.Представление ",") "]" пс)
// ожидаем: [а,б,в,г]

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