Whirl

Whirl — эзотерический язык программирования со своеобразным подходом к переводу символов программы в команды.

Whirl был создан Сином Хебером (Sean Heber) в 2004 году. Благодаря своей необычности язык стал достаточно популярным (как для эзотерического): существует ряд реализаций и инструментов для работы с ним.

Важной частью интерпретатора являются два кольца, на которых расположены по 12 команд, сгруппированные по темам — “математика” и “операции”. У каждого кольца есть указатель на текущую команду на нем (изначально каждый указатель установлен в Noop, то есть пустую команду), направление вращения (изначально по часовой стрелке) и своя ячейка памяти (value). Кроме того, есть указатель на активное кольцо (изначально это кольцо операций).

Все действия, которые выполняет программа, связаны с этими кольцами и изменением их состояния. Символы программы изменяют состояние колец следующим образом. 1 всегда поворачивает активное кольцо на одну команду в направлении вращения, 0 — меняет направление вращения активного кольца на противоположное. Кроме того, если перед 0 был 0, который не запустил выполнение команды, то текущая команда на активной кольце выполняется, и активное кольцо меняется. Все символы программы, кроме 0 и 1, игнорируются.

Команды языка

value — значение в ячейке памяти кольца, memval — значение в текущей ячейке памяти произвольного доступа. На каждом кольце команды указаны в порядке обхода по часовой стрелке. Некоторые команды (работа с памятью, присвоение констант) дублируются на обоих кольцах, что необходимо для работы программы.

Кольцо операций:

• Noop Пустая команда
• Exit Остановить выполнение программы
• One Присвоить value значение 1
• Zero Присвоить value значение 0
• Load Присвоить value значение memval
• Store Присвоить memval значение value
• PAdd Безусловный переход: увеличить указатель текущего символа в программе на value
• DAdd Увеличить указатель текущей ячейке памяти на value
• Logic Логическое И: присвоить value значение (memval AND value)
• If Условный переход: если memval не равно 0, увеличить указатель текущего символа в программе на value
• IntIO Если value равно 0, прочитать целое число из потока ввода и присвоить его memval, иначе напечатать значение memval как число
• AscIO Если value равно 0, прочитать символ из потока ввода и присвоить его ASCII-код memval, иначе напечатать значение memval как символ

Кольцо математики:

• Noop Пустая команда
• Load Присвоить value значение memval
• Store Присвоить memval значение value
• Add Присвоить value значение value + memval
• Mult Присвоить value значение value * memval
• Div Присвоить value значение value / memval
• Zero Присвоить value значение 0
• < Присвоить value значение 1, если value < memval, и 0 в противном случае
• > Присвоить value значение 1, если value > memval, и 0 в противном случае
• = Присвоить value значение 1, если value = memval, и 0 в противном случае
• Not Присвоить value значение 1, если value = 0, и 0 в противном случае
• Neg Умножить value на -1