WikiDer > Opal (язык программирования)

Opal (programming language)

ОПАЛ (OPзастенчивый Априкладной Lязык) является функциональный язык программирования впервые разработан в Технический университет Берлина.

Пример программы

Это пример программы OPAL, которая вычисляет НОД рекурсивно.

Файл подписи (декларация)
   ПОДПИСЬ НОД ВЕСЕЛО НОД: нат ** нат -> нат
Файл реализации (определение)
   ВЫПОЛНЕНИЕ НОД ИМПОРТ Нат ПОЛНОСТЬЮ   DEF НОД (а, б) == ЕСЛИ а% b = 0 ТОГДА б ELSE IF а-б <б ТОГДА НОД (б, а-б) ЕЩЕ НОД (а-б, б) FI                   FI

внешняя ссылка