(N.B. The word “fuck” appears multiple times in this post. I recommend that
the reader temporarily not consider “fuck” as profanity, as it isn’t used that
way here.)

Придумал крутой язык программирования henlang.

Henlang — сокращение от incomprehensible language, непостижимый язык. Также, hen это курица, то есть курояз. Также, 変 (хэн) это странный по-японски, то есть странный язык.

Вот несколько примеров кода на хенланге: вычисление n-ного числа Фибоначчи, вычисление факториала n, длина связанного списка.

Fibonacci←λn{
 1ι∋n⇒nι;
 n-(1)Fibonacci+(n-(2)Fibonacci)
}

Factorial←λn{
 n=(0)⇒1;
 n-(1)Factorial(n)
}

Length←λa{
 a∅?⇒1;
 a⁰Length+(1)
}

А вот проверка замкнутости графа, реализованного на хеш-таблицах.

GraphAcyclic?←λg{
 gτ∅?⇒⊤;
 g#λk,v{v∅?}∃(|)~⇒⊥;
 g GraphTearLeaf(
   g#λk,v{v∅?⇒k;⊥}ω∃(=⊥~)
 ) GraphAcyclic?
}

GraphTearLeaf←λg,l{
 gτ↓!(l)
 g#λk,v{gτset!(vπ↓(=(l))))}
 g
}

Я показывал наброски дизайна хенланга нескольким людям, их все пугали странные символы. Ничего страшного, для каждого странного символа можно предоставить синоним словом :)

GraphAcyclic? assign function g {
 g table-empty? then true
 else g map function k, v {
   v null?
…

Придумал крутой язык программирования henlang.

Henlang — сокращение от incomprehensible language, непостижимый язык. Также, hen это курица, то есть курояз. Также, 変 (хэн) это странный по-японски, то есть странный язык.

Вот несколько примеров кода на хенланге: вычисление n-ного числа Фибоначчи, вычисление факториала n, длина связанного списка.

Fibonacci←λn{
 1ι∋n⇒nι;
 n-(1)Fibonacci+(n-(2)Fibonacci)
}

Factorial←λn{
 n=(0)⇒1;
 n-(1)Factorial(n)
}

Length←λa{
 a∅?⇒1;
 a⁰Length+(1)
}

А вот проверка замкнутости графа, реализованного на хеш-таблицах.

GraphAcyclic?←λg{
 gτ∅?⇒⊤;
 g#λk,v{v∅?}∃(|)~⇒⊥;
 g GraphTearLeaf(
   g#λk,v{v∅?⇒k;⊥}ω∃(=⊥~)
 ) GraphAcyclic?
}

GraphTearLeaf←λg,l{
 gτ↓!(l)
 g#λk,v{gτset!(vπ↓(=(l))))}
 g
}

Я показывал наброски дизайна хенланга нескольким людям, их все пугали странные символы. Ничего страшного, для каждого странного символа можно предоставить синоним словом :)

GraphAcyclic? assign function g {
 g table-empty? then true
 else g map function k, v {
   v null?
…