1632
правки
Изменения
м
{{В разработке}} == '''Лямбда-исчисление== ''Лямбда-исчисление' (''англ. lambda calculus'' ) {{---}} формальная система, придуманная в 1930-х годах
Более формально, ''лямбда== Лямбда-функцию'' (или, ''лямбда-терм'') можно задать следующей грамматикой:исчисление==
Ещё один пример функцииИногда <tex>\lambda</tex> -термы пишут по другому. Для краткости подряд идущие лямбды заменяют на одну. Например:: <tex>sum = \lambda x \to .\ \lambda y \ .P\ \to x + y|\ \lambda xy. Эта функция двух аргументов,которая возвращает их сумму. Правда, здесь мы немного вышли за написанную выше грамматику.Ну да ладно. <tex>sum 2 3 == 5P</tex>
===η-редукция===Рассмотрим выражение вида В <tex>\lambda x \to f xbeta</tex>. Если подставить в эту функцию значение -редукции вполне возможна функция вида <tex>y</tex>, то получим: <tex>(\lambda x . \to f lambda x.x) y \to_\beta f y</tex>. Но если просто подставитьВо время подстановки вместо <tex>y</tex> в <tex>fx</tex>внутренняя переменная не заменяется - действует принцип локальной переменной. Но принято считать, то получится то же самоечто таких ситуаций не возникает и все переменные называются разными именами. ===Каррирование===
* :<tex>\bar 0 = \lambda s \to .\ \lambda z \to .\ z</tex>* :<tex>\bar 1 = \lambda s \to .\ \lambda z \to .\ s \ z</tex>* :<tex>\bar 2 = \lambda s \to .\ \lambda z \to .\ s \ (s \ z)</tex>* :<tex>\bar 3 = \lambda s \to .\ \lambda z \to .\ s \ (s \ (s \ z))</tex>
Тут правда ничего не понятно? Наиболее известным комбинатором неподвижной точки является <tex>Y</tex>-комбинатор, введенный известным американским ученым Хаскеллом Карри как:'<tex>Y\ = \ \lambda f.(\lambda x.f(x\ x))\ (\lambda x.f(x\ x))</tex>
rollbackEdits.php mass rollback
Алонзо Чёрчем. Лямбда-функция является, по сути, анонимной функцией.
Эта концепция показала себя удобной и сейчас активно используется во многих
языках программирования.
{{Определение
|definition=
'''Лямбда-выражением''' (англ. <tex>\lambda</tex>''-term'') называется выражение, удовлетворяющее следующей грамматике:<br>
<tex>
\begin{array}{r c l}Lambda \langle Term \rangle & ::= & \langle Variable \rangle to V\\ & | & \langle Term \rangle \langle Term \rangle \\ & | & \lambda \langle Variable \rangle Lambda \to \langle Term \rangle\\ & | & ( Lambda \langle Term \rangle )Lambda\\\langle Variable Lambda \rangle & ::= & to \langle Char \rangle *\\lambda V . \end{array}Lambda
</tex>
где <tex>V</tex> {{---}} множество всех строк над фиксированным алфавитом <tex> \Sigma \setminus \{ "\lambda", "\ ",\ "."\} </tex>.
}}
Пробел во втором правиле является терминалом грамматики. Иногда его обозначают как @, чтобы он не сливался с другими символами в выражении.
В первом случае функция является просто переменной.
создание функции одного аргумента с заданными именем аргумента и телом функции.
Рассмотрим, например, функцию <tex>\lambda</tex>-терм <tex>\operatorname{id } = \lambda x \to .\ x</tex>. Эта функция принимает аргумент и
возвращает его неизменённым. Например,
<tex>\operatorname{id }\ 2 \equiv 2</tex>. Аналогично, <tex>\operatorname{id }\ y == \equiv y</tex>. Еще примеры::<tex>x\\(x\ z)\\(\lambda x.(x\ z))\\(\lambda z.(\lambda w.((\lambda y.((\lambda x.(x\ z))\ y))\ w)))\\ </tex>
===Приоритет операций===
* Применение левоассоциативноАппликация: <tex>x \ y \ z \ w == \equiv ((x \ y) \ z) \ w</tex>* Аппликация Абстракция забирает себе всё, до чего дотянется: <tex>\lambda x \to .\ \lambda y \to .\ \lambda z \to .\ z \ y \ x \equiv \lambda x \to .\ (\lambda y \to .\ (\lambda z \to .\ ((z \ y) \ x)))</tex>
* Скобки играют привычную роль группировки действий
дереве разбора были абстракции. Все остальные переменные называются свободными.
Например, в <tex>\lambda x \to .\lambda y \to x</tex>, <tex>x</tex> и связана, а <tex>y</tex>{{---}} свободна. А в <tex>\lambda y \to .\ x \ (\lambda x \to .\ x)</tex>
в своём первом вхождении переменная <tex>x</tex> свободна, а во втором {{---}} связана.
Связанные переменные {{---}} это аргументы функции. То есть для функции они являются локальными. Рассмотрим функции <tex>\lambda y \to .\ y</tex> и <tex>\lambda x \to .\ y</tex>. В первой из них при взгляде на <tex>y</tex>
понятно, что она имеет отношение к переменной, по которой производилась
абстракция. Если по одной и той же
переменной абстракция производилась более одного раза, то переменная связана
с самым поздним (самым нижним в дереве разбора) абстрагированием. Например, в
<tex>\lambda x \to .\ \lambda x \to .\ \lambda y \to .\ \lambda x \to .\ x</tex>, переменная <tex>x</tex> связана с самой правой абстракцией
по <tex>x</tex>.
===α-конверсияэквивалентность=== Рассмотрим функции <tex>(\lambda x \to x) z</tex> и <tex>(\lambda y \to y) z</tex>. Интуитивно понятно, что они являются одинаковыми.
{{Определение
|definition='''<tex>\alpha</tex>-конверсияэквивалентностью'' {{---}} переименование связанной переменной' (англ. Выражение''<tex>\lambda x \to falpha</tex> можно заменить -equivalence'') {{---}} называется наименьшее соотношение эквивалентности на <tex>\lambda y \to f[x := y]Lambda</tex>, если такое что::<tex>yP=_\alpha P</tex> не входит свободно в для любого <tex>fP</tex>,где :<tex>f\lambda x.P=_\alpha \lambda y.P[x:=y]</tex> означает замену всех свободных вхождений если <tex>xy \not\in FV(P)</tex> в и замкнуто относительно следующих правил::<tex>f</tex> на <tex>yP=_\alpha P' \Rightarrow \forall x \in V: \lambda x.P=_\alpha \lambda x.P'\\P=_\alpha P' \Rightarrow \forall Z \in \Lambda : P Z =_\alpha P'Z\\P=_\alpha P' \Rightarrow \forall Z \in \Lambda : Z P =_\alpha Z P'\\P=_\alpha P' \Rightarrow P'=_\alpha P\\P=_\alpha P' \ \& \ P'=_\alpha P'' \Rightarrow P=_\alpha P''\\</tex>.
}}
Функции, получающиеся одна из другой с помощью <tex>\alpha</tex>-конверсий, называются ''<tex>lambda x\ .\alpha</tex>-эквивалентными'' и обозначаются <tex>f \equiv_lambda y\alpha g</tex>. Функции <tex>\lambda x \to \lambda y \to x y z</tex> и <tex>\lambda a \to .\ \lambda x \to .\ a \ x \ z</tex> являются <tex>\alpha</tex>-эквивалентными,а <tex>\lambda x \to .\ \lambda y \to .\ y \ z</tex> и <tex>\lambda y \to .\ \lambda x \to .\ y \ z</tex> {{---}} нет.
===β-редукция===
{{Определение
|definition=
'''<tex>\beta</tex>-редукция олицетворяет идею счёта значения функции''' (англ. Выражение вида ''<tex>(\lambda x \to f) ybeta</tex> можно заменить -reduction'') {{---}} это наименьшее соотношение на <tex>f[x := y]\Lambda</tex>, где такое что:<tex>f(\lambda x.P)Q\to _\beta P[x:=yQ]</tex>, как и ранее, означаетзамкнуто относительно следующих правилзамену всех свободных вхождений :<tex>P\to _\beta P' \Rightarrow \forall x\in V:\lambda x.P\to _\beta \lambda x.P'\\P\to _\beta P' \Rightarrow \forall Z\in \Lambda : P\ Z\to _\beta P'\ Z\\P\to _\beta P' \Rightarrow \forall Z\in \Lambda : Z\ P\to _\beta Z\ P'</tex> в <tex>f</tex> на <tex>y</tex>.
}}
}}
{{Определение
|definition=
'''Каррирование''' (англ. ''carrying'') {{---}} преобразование функции от многих переменных в функцию, берущую свои аргументы по одному. Для функции <tex>h</tex> типа <tex>h\eta:\ (A\ *\ B)\ \to\ C</tex>-редукция {{---}} оператор каррирования <tex>\Lambda </tex> выполняет преобразование <tex>\lambda x Lambda (h)\ :\ A\to (B\to C)</tex>. Таким образом <tex>\Lambda (h)</tex> берет аргумент типа <tex>A</tex> и возвращает функцию типа <tex>B\ \to f x\ C</tex> в . С интуитивной точки зрения, каррирование функции позволяет фиксировать ее некоторый аргумент, возвращая функцию от остальных аргументов. Таким образом, <tex>\Lambda</tex> представляет собой функцию типа <tex>f\Lambda :\ (A\ *\ B\to C)\to (A\to (B\to C))</tex>.
}}
==Нотация Де БрюинаБрауна==
Существует также альтернативное эквивалентное определение <tex>\lambda</tex>-исчисления.
В оригинальном определении для обозначения переменных использовались имена,
связана. В данной нотации получаются несколько более простые определения
свободных переменных и <tex>\beta</tex>-редукции.
Грамматику нотации можно задать как:
:<tex>e\ ::= n\ |\ \lambda .e\ |\ e\ e</tex>
Примеры выражений в этой нотации:
{|
! Standart
! de Bruijn
|-
| $\lambda x.x$
| $\lambda .0$
|-
| $\lambda z.z$
| $\lambda .0$
|-
| $\lambda x. \lambda y.x$
| $\lambda . \lambda .1$
|-
| $\lambda x. \lambda y. \lambda s. \lambda z.x\ s\ (y\ s\ z)$
| $\lambda . \lambda . \lambda . \lambda .3\ 1(2\ 1\ 0)$
|-
| $(\lambda x.x\ x)(\lambda x.x\ x)$
| $(\lambda .0\ 0)(\lambda .0\ 0)$
|-
| $(\lambda x. \lambda x.x)(\lambda y.y)$
| $(\lambda .\lambda .0)(\lambda .0)$
|}
Переменная называется свободной, если ей соответствует число, которое больше
При <tex>\beta</tex>-редукции же нужно будет ко всем свободным переменным заменяющего
дерева при каждой замене прибавить число, равное разницы уровней раньше и сейчас.
Это будет соответствовать тому, что эта переменная продолжит <<держаться>> «держаться» за
ту же лямбду, что и раньше.
число.
Каждое число будет функцией двух аргументов: какой-то функции и начального значения.
Число <tex>n</tex> будет <tex>n</tex> раз применять функцию к начальному значению и возвращать
результат. Если такому <<"числу>> " дать на вход функцию <tex>(+1)</tex> и <tex>0</tex> в качестве
начального значения, то на выходе как раз будет ожидаемое от функции число:
<tex>\bar 3 \ (+1) \ 0 \equiv 3</tex>.
===+1===
Функция, прибавляющая <tex>1 </tex> к числу, должна принимать первым аргументом число.
Но число {{---}} функция двух аргументов. Значит, эта функция должна принимать три
аргумента: <<"число>> " <tex>n</tex>, которое хочется увеличить, функция, которую надо будет
<tex>n+1</tex> раз применить, и начальное значение.
<tex>\operatorname{succ} = \lambda n \to .\ \lambda s \to .\ \lambda z \to .\ s \ (n \ s \ z)</tex>
Здесь <tex>n \ s \ z</tex> {{---}} <tex>n</tex> раз применённая к <tex>z</tex> функция <tex>s</tex>. Но нужно применить <tex>n+1</tex> раз. Отсюда <tex>s \ (n \ s \ z)</tex>.
===Сложение===
Сложение двух чисел похоже на прибавление единицы. Но только надо прибавить не единицу, а второе число.
<tex>\operatorname{plus} = \lambda n \to .\ \lambda m \to .\ \lambda s \to .\ \lambda z \to .\ n \ s \ (m \ s \ z)</tex>
<tex>n</tex> раз применить <tex>s</tex> к применённому <tex>m</tex> раз <tex>s</tex> к <tex>z</tex>
<tex>(\operatorname{plus} \ \bar 3 \ \bar 3) \ (+1) \ 0 \equiv 6</tex> <tex>(\operatorname{plus}\ ((\operatorname{plus}\ 2\ 5)(+1)\ 0)\ 4)(+1)0 \equiv 11</tex>
===Умножение===
функции должна быть не <tex>s</tex>, а функция, применяющая <tex>n</tex> раз <tex>s</tex>.
<tex>\operatorname{mult} = \lambda n \to .\ \lambda m \to .\ \lambda s \to .\ \lambda z\ .\ n \ (m \ s)\ z</tex>
Здесь <tex>m \ s</tex> {{---}} функция, которая <tex>m</tex> раз применит <tex>s</tex> к тому, что дадут ей на
вход. С помощью <tex>\eta</tex>-редукции можно немного сократить эту формулу
<tex>\operatorname{mult} = \lambda n \to .\ \lambda m \to .\ \lambda s \to .\ n \ (m \ s)</tex>
<tex>(\operatorname{mult} \bar 3 \ \bar 3) \ (+1) \ 0 \equiv 9</tex>
===Возведение в степень===
It's a kind of magic
<tex>\operatorname{power} = \lambda n \to .\ \lambda m \to .\ \lambda s\ .\ \lambda z\ .\ m \ n\ s\ z</tex>
<tex>(\operatorname{power} \ \bar 3 \ (\operatorname{succ} \ \bar 3)) \ (+1) \ 0 \equiv 81</tex>
===Логические значения===
<tex>\operatorname{true} = \lambda a \to .\ \lambda b \to .\ a</tex>
<tex>\operatorname{false} = \lambda a \to .\ \lambda b \to .\ b</tex>
Функции двух аргументов, возвращающие первый и второй, соответственное, аргументы.
чтобы красиво написать функцию <tex>\operatorname{if}</tex>:
<tex>\operatorname{if} = \lambda p \to .\ \lambda t \to .\ \lambda e \to .\ p\ t\ e</tex>
Если ей в качестве первого аргумента дадут <tex>\operatorname{true}</tex>, то вернётся <tex>t</tex>, иначе {{---}} <tex>e</tex>.
Стандартные функции булевой логики:
<tex>\operatorname{and} = \lambda n \to .\ \lambda m \to .\ \operatorname{if} \ n\ m\ \operatorname{false}</tex>
<tex>\operatorname{or} = \lambda n \to .\ \lambda m \to .\ \operatorname{if} \ n\ \operatorname{true} \ m</tex>
<tex>\operatorname{not} = \lambda b \to .\ \operatorname{if} \ b\ \operatorname{false} \ \operatorname{true}</tex>
Ещё одной важной функцией является функция проверки, является ли число нулём:
<tex>\operatorname{isZero} = \lambda n \to .\ n\ (\lambda c \to .\ \operatorname{false})\ \operatorname{true}</tex>
Функция выглядит несколько странно. <tex>\lambda c -> \to \operatorname{false}</tex> {{---}} функция, которая независимо
от того, что ей дали на вход, возвращает <tex>\operatorname{false}</tex>. Тогда, если в качестве <tex>n</tex>
будет дан ноль, то функция, по определению нуля, не выполнится ни разу, и будет
===Пара===
<tex>\operatorname{pair} = \lambda a \to .\ \lambda b \to .\ \lambda t \to .\ t\ a\ b</tex>
<tex>\operatorname{fst} = \lambda p \to .\ p\ \operatorname{true}</tex>
<tex>\operatorname{snd} = \lambda p \to .\ p\ \operatorname{false}</tex>
Функция <tex>\operatorname{pair}</tex> принимает два значения и запаковывает их в пару так, чтобы к ним можно было обращаться по <tex>\operatorname{fst}</tex> и <tex>\operatorname{snd}</tex>. В <tex>\operatorname{fst}</tex> и <tex>\operatorname{snd}</tex> вместо <tex>t</tex> в <tex>\operatorname{pair}</tex> будет подставлено <tex>\operatorname{true}</tex> или <tex>\operatorname{false}</tex>, возвращающие, соответственно, первый и второй аргументы, то есть <tex>a</tex> или <tex>b</tex>, соответственно.
В отличие от всех предыдущих функций, вычитание для натуральных чисел определено только в случае, если уменьшаемое больше вычитаемого. Положим в противном случае результат равным нулю. Пусть уже есть функция, которая вычитает из числа единицу. Тогда на её основе легко сделать, собственно, вычитание.
<tex>\operatorname{minus} = \lambda n \to .\ \lambda m \to .\ m\ \operatorname{pred} n</tex>
Это то же самое, что <tex>m</tex> раз вычесть единицу из <tex>n</tex>.
Осталось, собственно, функция для вычитания единицы. Однако, это не так просто, как может показаться на первый взгляд. Проблема в том, что, имея функцию, которую нужно применить для того, чтобы продвинуться вперёд, продвинуться назад будет проблематично. Если попробовать воспользоваться идеей о том, чтобы, начав от нуля, идти вперёд, и пройти на один шаг меньше, то будет не очень понятно, как же остановиться ровно за один шаг до конца. Для реализации вычитания единицы сделаем следующее. <tex>n</tex> раз выполним следующее: имея пару <tex>\langle n-1, n-2\rangle</tex> построим пару <tex>\langle n, n-1\rangle</tex>. Тогда после <tex>n</tex> шагов во втором элементе пары будет записано число <tex>n-1</tex>, которое и хочется получить.
<tex>\operatorname{pred} = \lambda n \to .\ \lambda s \to .\ \lambda z \to.\ \operatorname{snd} \ (
n\ (
\lambda p \to .\ \operatorname{pair}\ (s\ (\operatorname{fst} p))\ (\operatorname{fst} p) )\ (\operatorname{pair}\ z\ z))</tex>
Если вы ничего не поняли, не огорчайтесь. Вычитание придумал Клини, когда ему вырывали зуб мудрости. А сейчас наркоз уже не тот.
Так как вычитание определено таким способом, чтобы для случая, в котором уменьшаемое больше, чем вычитаемое, возвращать ноль, можно определить сравнение на больше-меньше через него. Равными же числа <tex>a</tex> и <tex>b</tex> считаются, если <tex>a - b = 0 \wedge b - a = 0</tex>.
<tex>\operatorname{le} = \lambda n \to .\ \lambda m \to .\ \operatorname{isZero}\ (\operatorname{minus}\ n\ m)</tex>
<tex>\operatorname{less} = \lambda n \to .\ \lambda m \to .\ \operatorname{le}\ n\ (\operatorname{pred} m)</tex>
<tex>\operatorname{eq} = \lambda n \to .\ \lambda m \to .\ \operatorname{and}\ (\operatorname{isZero}\ (\operatorname{minus}\ n\ m))\
(\operatorname{isZero}\ (\operatorname{minus}\ m\ n))</tex>
===Комбинатор неподвижной точки===
Попробуем выразить в лямбда-исчислении какую-нибудь функцию, использующую рекурсию. НапрмерНапример, факториал.
<tex>\operatorname{fact} = \lambda x \to .\ \operatorname{if}\ (\operatorname{isZero}\ x)\ \bar 1\ (\operatorname{fact}\ (\operatorname{pred}\ x))</tex>
Мы столкнулись с проблемой. В определении функции <tex>\operatorname{fact}</tex> используется функция <tex>\operatorname{fact}</tex>. При формальной замене, получим бесконечную функцию. Можно попытаться решить эту проблему следующим образом
<tex>\operatorname{fact} = (\lambda f \to .\ \lambda x \to .\ \operatorname{if}\ (\operatorname{isZero}\ x)\ \bar 1\ (f\ (\operatorname{pred}\ x)))\ \operatorname{fact}</tex>
{{Определение
Рассмотрим следующую функцию.
<tex>\operatorname{fix} = \lambda f \to .\ (\lambda x \to .\ f\ (x\ x))\ (\lambda x \to .\ f\ (x\ x))</tex>
Заметим, что <tex>\operatorname{fix} \to_\beta^* \lambda f \to .\ f\ ((\lambda x \to .\ f\ (x\ x))\ (\lambda x \to .\ f\ (x\ x)))</tex>.
Или, что то же самое,
<tex>\lambda f \to .\ (\lambda x \to .\ f\ (x\ x))\ (\lambda x \to .\ f\ (x\ x)) \to_\beta^*</tex><tex>\lambda f \to .\ f\ ((\lambda x \to .\ f\ (x\ x))\ (\lambda x \to .\ f\ (x\ x)))</tex>
Рассмотрим функцию
<tex>\operatorname{fact'} = \lambda f \to .\ \lambda x \to .\ \operatorname{if}\ (\operatorname{isZero}\ x)\ \bar 1\ (\operatorname{mult}\ x\ (f\ (\operatorname{pred}\ x)))</tex>
Как было показано выше, <tex>\operatorname{fix} f \to_\beta^* f\ (\operatorname{fix} f)</tex>, то есть, <tex>\operatorname{fix}\ \operatorname{fact'} \to_\beta^* \operatorname{fact}</tex>, где <tex>\operatorname{fact}</tex> {{---}} искомая функция, считающая факториал.
<tex>\operatorname{fact} = \operatorname{fix}\ \operatorname{fact'}</tex>
Это даст функцию, которая посчитает факториал числа. Но делать она это будет мееедленно-меееедленно. Для того, чтобы посчитать <tex?>5!</tex> потребовалось сделать 66066 <tex>\beta</tex>-редукций.
===Деление===
Воспользовавшись идеей о том, что можно делать рекурсивные функции, сделаем функцию, которая будет искать частное двух чисел.
<tex>\operatorname{div'} = \lambda div \to .\ \lambda n \to .\ \lambda m \to .\ \operatorname{if}\ (\operatorname{less}\ n\ m)\ \bar 0\ (\operatorname{succ}\ (div\ (\operatorname{minus}\ n\ m)\ m))</tex>
<tex>\operatorname{div} = \operatorname{fix}\ \operatorname{div'}</tex>
И остатка от деления
<tex>\operatorname{mod'} = \lambda mod \to .\ \lambda n \to .\ \lambda m \to .\ \operatorname{if}\ (\operatorname{less}\ n\ m)\ n\ (mod\ (\operatorname{minus}\ n\ m)\ m)</tex>
<tex>\operatorname{mod} = \operatorname{fix}\ \operatorname{mod'}</tex>
===Проверка на простоту===
<tex>\operatorname{isPrimeHelp}</tex> {{---}} принимает число, которое требуется проверить на простоту и то, на что его надо опытаться поделить, перебирая это от <tex>2 </tex> до <tex>p-1</tex>. Если на что-нибудь разделилось, то число {{---}} составное, иначе {{---}} простое.
<tex>\operatorname{isPrimeHelp'} =</tex><tex>\lambda f \to .\ \lambda p \to .\ \lambda i \to .\ \operatorname{if}\ (\operatorname{le}\ p\ i)\ \operatorname{true}\ (\operatorname{if}\ (\operatorname{isZero}\ (\operatorname{mod}\ p\ i))\ \operatorname{false}\ (f\ p\ (\operatorname{succ}\ i)))</tex>
<tex>\operatorname{isPrimeHelp} = \operatorname{fix}\ \operatorname{isPrimeHelp'}</tex>
<tex>\operatorname{isPrime} = \lambda p \to .\ \operatorname{isPrimeHelp}\ p\ \bar 2</tex>
Следующее простое число. <tex>\operatorname{nextPrime'}</tex> {{---}} следующее, больше либо равное заданного, <tex>\operatorname{nextPrime}</tex> {{---}} следующее, большее заданного.
<tex>\operatorname{nextPrime''} = \lambda f \to .\ \lambda p \to .\ \operatorname{if}\ (\operatorname{isPrime}\ p)\ p\ (f\ (\operatorname{succ}\ p)) </tex>
<tex>\operatorname{nextPrime'} = \operatorname{fix}\ \operatorname{nextPrime'}</tex>
<tex>\operatorname{nextPrime} = \lambda p \to .\ \operatorname{nextPrime'}\ (\operatorname{succ}\ p)</tex>
<tex>\operatorname{ithPrimeStep}</tex> пропрыгает <tex>i</tex> простых чисел вперёд. <tex>\operatorname{ithPrime}</tex> принимает число <tex>i</tex> и пропрыгивает столько простых чисел вперёд, начиная с двойки.
<tex>\operatorname{ithPrimeStep'} = \lambda f \to .\ \lambda p \to .\ \lambda i \to .\ \operatorname{if}\ (\operatorname{isZero}\ i)\ p\ (f\ (\operatorname{nextPrime}\ p)\ (\operatorname{pred}\ i))</tex>
<tex>\operatorname{ithPrimeStep} = \operatorname{fix}\ \operatorname{ithPrimeStep'}</tex>
<tex>\operatorname{ithPrime} = \lambda i \to .\ \operatorname{ithPrimeStep}\ \bar 2\ i</tex>
...и всего через 314007 <tex>\beta</tex>-редукций вы узнаете, что третье простое число {{---}} семь!
<tex>\operatorname{empty} = \operatorname{pair}\ \operatorname{zero}\ \bar 1</tex>
<tex>\operatorname{cons} = \lambda h \to .\ \lambda t \to .\ \operatorname{pair}\ (\operatorname{succ}\ (\operatorname{fst}\ t))\ (\operatorname{mult}\ (\operatorname{snd}\ t)\ (\operatorname{power}\ (\operatorname{ithPrime}\ (\operatorname{fst}\ t))\ h))</tex>
<tex>\operatorname{head} = \lambda list \to .\ \operatorname{getExponent}\ (\operatorname{snd}\ list)\ (\operatorname{ithPrime}\ (\operatorname{pred}\ (\operatorname{fst}\ list)))</tex>
<tex>\operatorname{tail} = \lambda list \to .\ \operatorname{pair}\ (\operatorname{pred}\ (\operatorname{fst}\ list))
(\operatorname{eliminateMultiplier}\ (\operatorname{snd}\ list)\ (\operatorname{ithPrime}\ (\operatorname{pred}\ (\operatorname{fst}\ list))))</tex>
<tex>\operatorname{eliminateMultiplier'} =</tex><tex> \lambda f \to .\ \lambda n \to .\ \lambda m \to .\ \operatorname{if}\ (\operatorname{isZero}\ (\operatorname{mod}\ n\ m))\ (f\ (\operatorname{div}\ n\ m)\ m)\ n</tex>
<tex>\operatorname{eliminateMultiplier} = \operatorname{fix}\ \operatorname{eliminateMultiplier'}</tex>
<tex>\operatorname{getExponent'} =</tex><tex> \lambda f \to .\ \lambda n \to .\ \lambda m \to .\ \operatorname{if}\ (\operatorname{isZero}\ (\operatorname{mod}\ n\ m))\ (\operatorname{succ}\ (f\ (\operatorname{div}\ n\ m)\ m))\ \bar 0</tex>
<tex>\operatorname{getExponent} = \operatorname{fix}\ \operatorname{getExponent'}</tex>
====fact====
<tex>(\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda f.\lambda x.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> (x)) </tex><tex> (\lambda s.\lambda z.s z) </tex><tex> ((\lambda n.\lambda m.\lambda s.n (m s)) </tex><tex> (x) </tex><tex> (f ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex>((\lambda a.\lambda b.\lambda t.t a b) </tex><tex>(z) </tex><tex> z))) (x)))))</tex>
====head====
<tex>\lambda list.(\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda f.\lambda n.\lambda m.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda mod.\lambda n.\lambda m.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.\lambda m.(\lambda n.\lambda m.(\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m)) (n) </tex><tex> ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) (m))) </tex><tex> (n) </tex><tex> m) n (mod ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m) m)) n m)) ((\lambda n.\lambda s.\lambda z.s (n s z)) </tex><tex> (f ((\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda div.\lambda n.\lambda m.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.\lambda m.(\lambda n.\lambda m.(\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m)) (n) </tex><tex> ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) (m))) </tex><tex> (n) </tex><tex> m) (\lambda s.\lambda z.z) </tex><tex> ((\lambda n.\lambda s.\lambda z.s (n s z)) </tex><tex> (div ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m) m))) n m) m)) (\lambda s.\lambda z.z)) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (list)) </tex><tex> ((\lambda i.(\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda f.\lambda p.\lambda i.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> (i)) </tex><tex> p (f ((\lambda p.(\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda f.\lambda p.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda p.(\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda f.\lambda p.\lambda i.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.\lambda m.(\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m)) (p) </tex><tex> i) (\lambda a.\lambda b.a) </tex><tex> ((\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda mod.\lambda n.\lambda m.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.\lambda m.(\lambda n.\lambda m.(\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m)) (n) </tex><tex> ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) (m))) </tex><tex> (n) </tex><tex> m) n (mod ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m) m)) p i)) (\lambda a.\lambda b.b) </tex><tex> (f p ((\lambda n.\lambda s.\lambda z.s (n s z)) </tex><tex> (i))))) </tex><tex> p (\lambda s.\lambda z.s (s z))) </tex><tex> (p)) </tex><tex> p (f ((\lambda n.\lambda s.\lambda z.s (n s z)) </tex><tex> (p)))) </tex><tex> ((\lambda n.\lambda s.\lambda z.s (n s z)) </tex><tex> (p))) </tex><tex> (p)) </tex><tex> ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) (i)))) </tex><tex> (\lambda s.\lambda z.s (s z)) </tex><tex> i) ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (list))))</tex>
====tail====
<tex>\lambda list.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (list))) </tex><tex> ((\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda f.\lambda n.\lambda m.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda mod.\lambda n.\lambda m.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.\lambda m.(\lambda n.\lambda m.(\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m)) (n) </tex><tex> ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) (m))) </tex><tex> (n) </tex><tex> m) n (mod ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m) m)) n m)) (f ((\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda div.\lambda n.\lambda m.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.\lambda m.(\lambda n.\lambda m.(\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m)) (n) </tex><tex> ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) (m))) </tex><tex> (n) </tex><tex> m) (\lambda s.\lambda z.z) </tex><tex> ((\lambda n.\lambda s.\lambda z.s (n s z)) </tex><tex> (div ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m) m))) n m) m) n) ((\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (list)) </tex><tex> ((\lambda i.(\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda f.\lambda p.\lambda i.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> (i)) </tex><tex> p (f ((\lambda p.(\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda f.\lambda p.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda p.(\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda f.\lambda p.\lambda i.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.\lambda m.(\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m)) (p) </tex><tex> i) (\lambda a.\lambda b.a) </tex><tex> ((\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda f.(\lambda x.f (x x)) </tex><tex> (\lambda x.f (x x))) </tex><tex> (\lambda mod.\lambda n.\lambda m.(\lambda p.\lambda t.\lambda e.p t e) </tex><tex> ((\lambda n.\lambda m.(\lambda n.\lambda m.(\lambda n.n (\lambda c.\lambda a.\lambda b.b) </tex><tex> (\lambda a.\lambda b.a)) </tex><tex> ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m)) (n) </tex><tex> ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) (m))) </tex><tex> (n) </tex><tex> m) n (mod ((\lambda n.\lambda m.m (\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) n) (n) </tex><tex> m) m)) p i)) (\lambda a.\lambda b.b) </tex><tex> (f p ((\lambda n.\lambda s.\lambda z.s (n s z)) </tex><tex> (i))))) </tex><tex> p (\lambda s.\lambda z.s (s z))) </tex><tex> (p)) </tex><tex> p (f ((\lambda n.\lambda s.\lambda z.s (n s z)) </tex><tex> (p)))) </tex><tex> ((\lambda n.\lambda s.\lambda z.s (n s z)) </tex><tex> (p))) </tex><tex> (p)) </tex><tex> ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) (i)))) </tex><tex> (\lambda s.\lambda z.s (s z)) </tex><tex> i) ((\lambda n.\lambda s.\lambda z.(\lambda p.p (\lambda a.\lambda b.b)) </tex><tex> (n (\lambda p.(\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (s ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (p))) </tex><tex> ((\lambda a.\lambda b.\lambda t.t a b) </tex><tex> (z) </tex><tex> z))) ((\lambda p.p (\lambda a.\lambda b.a)) </tex><tex> (list)))))</tex> == См. также ==*[[Неразрешимость задачи вывода типов в языке с зависимыми типами]]
==СсылкиИсточники информации==* Lectures on the Curry Howard - Isomorphism*[https://github.com/shd/tt2014 Д. Штукенберг. Лекции]*[http://rainen.ifmowikipedia.org/wiki/Lambda-calculus Английская Википедия]*[http://ru.wikipedia.org/~komarovwiki/Turing%D0%9B%D1%8F%D0%BC%D0%B1%D0%B4%D0%B0-%D0%B8%D1%81%D1%87%D0%B8%D1%81%D0%BB%D0%B5%D0%BD%D0%B8%D0%B5 Русская Википедия]*[http://worrydream.lhs Тут можно это всё потыкатьcom/AlligatorEggs Игра про крокодилов]
[http[Категория://worrydream.com/AlligatorEggs А это игра про крокодильчиковТеория формальных языков]][[Категория: Теория вычислимости]]