Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Бип из системно... 65535
Гостевая книга ... 65535
Invision Power ... 65535
Содержание сайт... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Программируемая... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
Оператор выбора... 65535
Модуль Forms 62784
Создание отчето... 62766
ТЕХНОЛОГИИ ДОСТ... 59300
Пример работы с... 58009
Имитационное мо... 54678
Реклама
Сейчас на сайте
Гостей: 7
На сайте нет зарегистрированных пользователей

Пользователей: 13,071
новичок: virtualight
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование ЭВМ на GPSS (три класса заданий) + Пояснительная записка
Информационная система - продуктовый магазин на Turbo Pascal (База данны...
Моделирование вычислительного центра на GPSS + Отчет + Блок схема

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Задача
Задача 16.1 Записать следующее определение исходного языка с по-
мощью суперкомбинаторов:

el n s = if n = 1 then hd s
else el(n−1)(tl s).



Функция el выбирает n-й элемент из последовательности s.
Решение. В терминах λ-исчисления определение функции принима-
ет вид:
el = Y (λel.λn.λs.if(= n 1)(hd s)(el(− n 1)(tl s))). (el)



Напомним алгоритм перевода λ -выражения в аппликативную фор-
му. Возьмем произвольное λ -выражение λV.E.
SK--1. Тело выражения преобразуется в аппликативную форму
рекурсивным вызовом компилятора. Результатом является:
λV.E0
.



SK--2. Свободные переменные в λ-выражении идентифицируют-
ся литерами P, Q, . . . , R , затем λ-выражение снабжается
префиксом λ , связывающим все эти переменные. Результа-
том служит:
λP.λQ....λR.λV.E0
.



Результирующее выражение заведомо является комбинато-
ром, поскольку E0 - аппликативная форма, все свободные пе-
ременные P, Q, . . . , R которой связаны.
SK--3. Назовем возникающий комбинаторalphaи сопоставим ему
определение (определяющее равенство) :
alpha P Q . . . RV → E0
.



Исходноеλ-выражение заменяется формой(alpha P R . . . R).
Применительно к выражению аппликацию a можно сокра-
тить. Выражение связано с V , а каждая свободная перемен-
ная принимает свое собственное значение в 0
. Следователь-
но, аппликативная форма действительно полностью эквива-
лентна исходному λ -выражению. Теперь определим пошаго-
вую трансляцию.
1. Рассмотрим самое внутреннее λ -выражение:
λs.if(= n 1)(hd s)(el(− n 1)(tl s)).



его свободными переменными являются n и el, поэтому
комбинатор alpha вводится определением:
alpha n el s → if(= n1)(hd s)(el(−n1)(tl s)). (alpha)



2. Все λ - выражения заменим на (alpha n el), следова-
тельно,
el = Y (λel.λn.alpha n el).



3. Повторим шаги (1.) и (2.) дляλn.alpha n el. Введем ком-
бинатор beta определением:
beta el n → alpha n el, (beta)



откуда получаем, что
el = Y (λel.beta el).



4. Повторим шаги (1.) и (2.) для (λel.beta el). Введем ком-
бинатор gamma определением:
gamma el → beta el, (gamma)



откуда получаем, что
el = Y gamma.



Ответ. el = Y gamma.
Контрольные вопросы.
1. Чем вызвано использование суперкомбинаторов для реализа-
ции редукции?
2. Что представляет собой язык константных аппликативных форм
(КАФ)?
3. Какие специфические свойства комбинаторов S, K, I допус-
кают их непосредственное использование в РГ-машине?
Упражнение. Записать с помощью суперкомбинаторов выражение:
f ac n = if n = 0 then 1 else n × (f ac(n−1)).


Опубликовал Kest May 04 2014 21:30:22 · 0 Комментариев · 1432 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Панель случайной ...
ComboBox97
WinAmp
MiniTetris [Исход...
Размещение элемен...
TsHintManager
NetGraph [Исходни...
SendSMS для PHP-F...
Просмотр коммент...
Мониторинг сервер...
Голосование для ...
Delphi 7: Для про...
Приемы программир...
NotePad Pro [Исхо...
Редактор текста (...
Библия хакера 2. ...
Pirc
Srinilist
Run
DCMintry

Топ загрузок
Приложение Клие... 100420
Delphi 7 Enterp... 84880
Converter AMR<-... 20061
GPSS World Stud... 11934
Borland C++Buil... 11401
Borland Delphi ... 8362
Turbo Pascal fo... 7007
Visual Studio 2... 4983
Калькулятор [Ис... 4618
FreeSMS v1.3.1 3529
Случайные статьи
Защищайте доступно...
Я - Zend Certified...
Печать документа
Модули расширения ...
Проверить: запущен...
Арматурный магазин
Философствование н...
Чип можно заказать...
Песочные часы
Проверка жесткого ...
Взять один символ ...
Резюме
Для чего маски VLS...
Операции управлени...
Функции управления...
Рекурсивные методы...
Структура seg и ук...
Распределенные сис...
Средства отладки -...
Выбор сканирующего...
Решения, по органи...
Как фильтруется и ...
Функция GraphErrorMsg
Билеты
2.1. Соберем все в...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?