Brainfuck — язык программирования для души

Brainfuck (название примерно соответствует русскому вынос мозга, от англ. brain — мозг и to fuck — выносить (в смысле «наносить поражение»), заниматься ерундой, трахать) — один из известнейших эзотерических языков программирования, придуман Урбаном Мюллером (нем. Urban Müller) в 1993 году для забавы. Язык имеет восемь команд, каждая из которых записывается одним символом. Исходный код программы на Brainfuck представляет собой последовательность этих символов без какого-либо дополнительного синтаксиса.

Одним из мотивов Урбана Мюллера было создание языка с как можно меньшим компилятором. Отчасти он был вдохновлён языком FALSE, для которого существовал компилятор размера 1024 байта. Существуют компиляторы языка Brainfuck размера меньше 200 байт. Программы на языке Brainfuck писать сложно, за что его иногда называют языком для мазохистов. Но при этом важно отметить, что Brainfuck является вполне естественным, полным и простым языком и может использоваться при определении понятия вычислимости.

Машина, которой управляют команды Brainfuck, состоит из упорядоченного набора ячеек и указателя текущей ячейки, напоминая ленту и головку машины Тьюринга. Кроме того, подразумевается устройство общения с внешним миром (см. команды . и ,) через поток ввода и поток вывода.

Язык Brainfuck можно описать с помощью эквивалентов языка Си:

Несмотря на внешнюю примитивность, Brainfuck с бесконечным набором ячеек имеет тьюринговскую полноту, а, следовательно, по потенциальным возможностям не уступает «настоящим» языкам, подобным Си, Паскалю или Java.

Brainfuck подходит для экспериментов по генетическому программированию из-за простоты синтаксиса, и, соответственно, генерации исходного кода.

В «классическом» Brainfuck, описанном Мюллером, размер ячейки — один байт, количество ячеек 30 000. В начальном состоянии указатель находится в крайней левой позиции, а все ячейки заполнены нулями. Увеличение/уменьшение значений ячеек происходит по модулю 256. Ввод-вывод также происходит побайтно, с учётом кодировки ASCII (то есть в результате операции ввода (,) символ 1 будет записан в текущую ячейку как число 0x31 (49), а операция вывода (.), совершённая над ячейкой, содержащей 0x41 (65), напечатает латинскую А). В других вариантах языка размер и количество ячеек может быть другим (бо́льшим). Есть версии, где значение ячеек не целочисленно (с плавающей точкой).

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

Программа на языке Brainfuck, печатающая «Hello World!»:

 +++++++++++++++++++++++++++<<<<
 +++++++<<+++++++++++++++
 --------------

Разбор программы:

В принципе, печать «Hello World!» можно реализовать проще, но программа будет в три с лишним раза больше, чем приведённый выше оптимизированный вариант:

 +++++++++++++++++++++++++++++++++++++++++++++
 ++++++++++++++++++++++++++++++++++++++++++++
 +++++++++++++++++++-------------------
 ---------------------------------------------
 ---------------+++++++++++++++++++++++++++++
 ++++++++++++++++++++++++++++++++++++++++++++
 ++++++--------------------------------
 ---------------------------------------------
 -----------------------

Интерпретатор Brainfuck

Интерпретатора Brainfuck’а, написанный на языке Perl

#!/usr/bin/perl
open F,shift;
@code=grep{/[+-\.,\[\]><]/}split'',<F>;
for(my$_=0;$_<@code;++$_){
$cpu[$i]++if$code[$_]eq'+';
$cpu[$i]--if$code[$_]eq'-';
$i--if$code[$_]eq'<';
$i++if$code[$_]eq'>';
print chr$cpu[$i]if$code[$_]eq'.';
$cpu[$i]=ord<STDIN>if$code[$_]eq',';
if($code[$_]eq'['){
if(!$cpu[$i]){
++$brc;
while($brc){
++$_;
$brc++if$code[$_]eq'[';
$brc--if$code[$_]eq']';
}
}else{
next;
}
}elsif($code[$_]eq']'){
if(!$cpu[$i]){
next;
}else{
$brc++if$code[$_]eq']';
while($brc){
--$_;
$brc--if$code[$_]eq'[';
$brc++if$code[$_]eq']';
}
--$_;
}
}
}

Интерпретатора Brainfuck’а, написанный на языке C++

#include <iostream>
#include <fstream>
#include <vector>
 
using namespace std;
 
static char cpu[30000];
 
int main(int argc, char **argv)
{ 
 vector<char> acc;
 char ch;
 ifstream infile(argv[1]);
 while(infile)
 {
 infile.get(ch);
 acc.push_back(ch);
 }
 infile.close();
 unsigned int j = 0;
 int brc = 0;
 for(int i = 0; i < acc.size(); ++i)
 {
 if(acc[i] == '>') j++;
 if(acc[i] == '<') j--;
 if(acc[i] == '+') cpu[j]++;
 if(acc[i] == '-') cpu[j]--;
 if(acc[i] == '.') cout << cpu[j];
 if(acc[i] == ',') cin >> cpu[j];
 if(acc[i] == '[')
 {
 if(!cpu[j])
 {
 ++brc;
 while(brc)
 {
 ++i;
 if (acc[i] == '[') ++brc;
 if (acc[i] == ']') --brc;
 }
 }else continue;
 }
 else if(acc[i] == ']')
 {
 if(!cpu[j])
 {
 continue;
 }
 else
 {
 if(acc[i] == ']') brc++;
 while(brc)
 {
 --i;
 if(acc[i] == '[') brc--;
 if(acc[i] == ']') brc++;
 }
 --i;
 }
 }
 }
}

Программирование на языке Brainfuck

Каждый начинающий программировать на Brainfuck немедленно сталкивается со следующими проблемами:

• отсутствие операции копирования значения
• отсутствие промежуточной (аккумуляторной) памяти
• отсутствие условных операторов в их привычном виде
• отсутствие привычной арифметики, операций умножения и деления

Эти проблемы могут быть решены.

 Обозначим через @(k) сдвиг на k ячеек вправо, если k>0, и влево, если k<0
 Соответственно, @(k) = >…k раз…> либо <…-k раз…<  
 zero(): обнуление текущей ячейки:
   [-]
   =
   [+]
 add(k): прибавление значения ячейки n (текущей) к значению ячейки n+k:
    [ — @(k)  + @(-k)  ]
 при этом значение ячейки n теряется (обнуляется).
 mov(k): копирование значения ячейки n (текущей) в ячейку n+k с потерей (обнулением) значения ячейки n:
   @(k) zero() @(-k) add(k)
   =
   @(k) [-] @(-k) [ — @(k)  + @(-k)  ] 
 copy(k,t): копирование значения ячейки n (текущей) в ячейку n+k 
 c использованием промежуточной ячейки n+k+t, благодаря чему значение ячейки n не теряется (сохраняется).
   @(k) zero() @(t) zero() @(-k-t) [ — @(k) + @(t) + @(-k-t) ] @(k+t) mov(-k-t)
   =
   @(k) [-] @(t) [-] @(-k-t) [ — @(k) + @(t) + @(-k-t) ] @(k+t) [ — @(-k-t) + @(k+t) ]
 ifelse(t): если текущая ячейка>0, то выполняется условие true
            если текущая ячейка=0, то выполняется условие false
            t-относительный номер вспомогательной ячейки:
   @(t)[-]+@(-t) устанавливаем флаг 1 для случая else
   [
    здесь действия ветки true
    @(t)[-]@(-t) устанавливаем флаг 0 для случая else
    [-] выход из цикла
]
   @(t)
   [@(-t)
    здесь действия ветки false
    @(t)[-] выход из цикла
]
   @(-t-1)

Brainfuck почти не используется для практического программирования (за исключением работ отдельных энтузиастов), а используется преимущественно для головоломок и задач для соревнований.

Ссылка на источник https://ru.wikipedia.org/wiki/Brainfuck