3var - это вариант deadfish, который использует три переменные, называемые A, B и R. A и B являются аккумуляторами, в то время как R используется как переменная результата.
В этом соревновании по коду для игры в гольф вам нужно найти переводчика для урезанной версии этого языка.
Обязательные команды:
i Increments A
d Decrements A
s Squares A
p Prints A
P Prints the ASCII character of A
> Sets A to R
a Increments B
k Decrements B
m Squares B
o Prints B
O Prints the ASCII character of B
< Sets B to R
+ Adds A and B, stores in R
- Subtracts B from A, stores in R
* Multiplies A and B, stores in R
/ Divides A by B, stores in R
w Prints R
@ Resets A to 0
# Resets B to 0
e Resets R to 0
Все остальное (включая пробелы) игнорируется.
Разъяснения
oиpдолжен выводить без чего-либо после него.- Деление является целочисленным делением.
- Числа выше 255 и числа ниже 0 поддерживаются.
- 'w' должен выводить пробел или символ новой строки после R
- Деление на 0 останавливается без ошибок. (Нет вывода в STDERR)
- A, B и R изначально равны 0
правила
- Это код-гольф, поэтому выигрывает самый короткий ответ.
- В случае ничьей побеждает самый старый ответ.
- Файл будет предоставлен через аргументы командной строки или STDIN.
- Разрешен любой язык.
- Эвал разрешен.
Тестовые случаи
Hello world! (взято из Esolangs)
iisssaa/>e
maa->e#
aamam->e#
dddddddddddddddddddddddddPiiiiiiiiiiiiiiiiiiiiiiiii
iiiiPiiiiiiiPPiiiP
@#e
iis
aamaaaa
*>P
@#e
iisssaa/>e
maa->e#
aamam->e#
iiiiiiiiiiiiiiiiiiiiiiP
ddddddddP
iiiP
ddddddP
ddddddddP
@#e
iiss
aa*>
iP
Выходы 20spooky22me:
iipois+iis<-<aaaO<OkOOkkkkOP@#iippisa+<m+>PaO
Выходы 9P-1420 100 3Q-1 162 0:
iiispsdPkokmo/w<+w#aaaommO-w@ii*wew
Leaderboards
Вот фрагмент стека, который генерирует как регулярную таблицу лидеров, так и обзор победителей по языкам.
Чтобы убедиться, что ваш ответ обнаружен, начните его с заголовка, используя следующий шаблон уценки:
# Language Name, N bytes
где Nразмер вашего представления. Если вы улучшите свой счет, вы можете сохранить старые результаты в заголовке, вычеркнув их. Например:
# Ruby, <s>104</s> <s>101</s> 96 bytes
Если вы хотите включить в заголовок несколько чисел (например, потому что ваш результат равен сумме двух файлов или вы хотите перечислить штрафы за флаг интерпретатора отдельно), убедитесь, что фактический результат является последним числом в заголовке:
# Perl, 43 + 2 (-p flag) = 45 bytes
Вы также можете сделать название языка ссылкой, которая затем будет отображаться во фрагменте списка лидеров:
# [><>](http://esolangs.org/wiki/Fish), 121 bytes
var QUESTION_ID=63008,OVERRIDE_USER=45220;function answersUrl(e){return"http://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"http://api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.0.3/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table> </div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table> </div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody> </table>
code-golf
interpreter
DJgamer98
источник
источник
dddddpвiiiisspрезультате вы получите -5 и получите 256, как вы ожидаете, а не 0.rделают? его нет в вашем списке допустимых команд@#e.Ответы:
CJam, 112
Попробуйте онлайн
Объяснение:
Программа создает массив фрагментов кода, который должен быть выполнен, и выполняет соответствующий фрагмент для каждого символа. Работать с делением на ноль сложнее, потому что в CJam еще нет оператора "break". Вместо этого программа выдвигает π как маркер (так как иначе число с плавающей запятой не может появиться), и в конце она сохраняет только выходные данные перед первым π.
Кроме того, программа использует переменные T, U и V вместо A, B и R, потому что они предварительно инициализированы с 0 в CJam.
Реальные реализации команд (построенные программой):
источник
JavaScript (ES7) 208
213 223 237 241 311Edit3 Копируя друг друга, я и Дендробиум рушимся вместе.
Edit2 Использование EcmaScript 7 для сохранения всего 2 байтов, объединенная обработка A и B
Редактировать Следуя изменениям правил.
Обратите внимание, я добавилrкоманду, которая не требуется в вопросе, просто для запуска старого примера Hello worldисточник
A=B=R=0,и установки этих переменных , используя фактический 3var функции перед обработкой строки, как:[...'@#e'+p].GNU Sed (с опцией eval для оценки
dcвыражения), 254Deadfish довольно красиво отображает подмножество
dc. Поэтому мы используем sed для этого отображения:источник
Javascript
ES6ES7,217215213208 байтUngolfed
источник
A=B=R=0,и установки этих переменных , используя фактический 3var функции перед обработкой строки, как:for(c of '@#e'+s).wAPL, 191
Это функция, которая принимает программу в качестве аргумента, например:
Его можно использовать как анонимную функцию, я просто дал ему имя для ясности.
Объяснение:
0::→: если произошла ошибка (скажем, деление на ноль), остановите без вывода сообщения об ошибкеA B R←0: инициализировать переменные{...}¨⍵: для каждой команды:⍵∊G←'aikdms<>': Если команда относится к типу var ← fn (var, x) , найдите правильные fn и x , подставьте их и затем оцените:⍎: оценить'AB'[1+2|G⍳⍵:Aесли положение⍵in'aikdms<>'четное, вBпротивном случае.'+-*∘'[M]: добавить, вычесть, мощность или ничего, в зависимости отM(определено позже)'←': назначить'112R'[M←⌈2÷⍨G⍳⍵]:1(для сложения и вычитания),2(для мощности) иR(ни для чего, т.е. просто устанавливает переменную вR), в зависимости от тогоM, принадлежит ли команда первой, второй, третьей или четвертой паре.⍵∊G←'PpOo': выход:⍞←: выход⎕UCS⍣(2|G⍳⍵): ASCII (ну, Unicode) или число в зависимости от того, была ли команда в нечетной или четной позицииPpOo,⊢A B[⌈2÷⍨G⍳⍵]:AилиB, в зависимости от того, была ли команда в первой или второй половине.⍵∊G←'+-*/: math:R∘←⌊A(⍎'+-×÷'[G⍳⍵])B: установитьRрезультат применения данного оператора кAиB.⍵∊G←'@#e':сброс:⍎: оценить'ABR'[G⍳⍵]: выберите правильную переменную'∘←0': установить на ноль⍵='w':⍞←R: если команда естьw, выведитеR.источник
C
253241 байтЭтот код использует строку
id@s>ak#m<e+-*/wpoPOв качестве таблицы команд. Строка расположена в соответствии с назначением вычисленного выражения. Просто так получилось, что есть 5 команд, которые обновляют каждую из переменных:id@s>- Обновитьaak#m<- Обновитьbe+-*/- ОбновитьrwpoPO- обновление ... расположение памяти после того, какa,bиr. Надеюсь это не так уж и важно :)Таким образом, после нахождения входного символа в строке команд его индекс многократно уменьшается, и в зависимости от того, когда он достигает 0, выбирается выражение.
Если оно не достигает 0 после 15 вычитаний, это
printfс некоторыми правильно выбранными аргументами.Кроме того, при делении он избегает деления на 0 путем вызова
exit().Этот код должен быть скомпилирован без оптимизации, поскольку он предполагает , что
a,bиrрасположены в смежных адресов в стеке ( а не в регистрах процессора).Кроме того, он должен быть скомпилирован в 32-битном режиме, потому что он преобразует указатели в целые числа и наоборот.
источник
VBA,
484, 453380 байтЧтобы долго, чтобы выиграть, но Супер Простой способ делать вещи, Ничего Не Причудливый просто старый добрый
Select CaseДобавление обработки целочисленного деления и ошибки Div 0Снято
много байтов.Обработка ошибок удалена, так как обычная обработка ошибок приводит к той же функциональности. Исправлено Int Division для работы как положено. Был также короче.источник
DefInt A-Z, таким образом , исключая необходимость явного объявленияA,BаRтакжеInteger:DefInt A-Z:Dim A, B, R. Он мог бы также работать , чтобы просто присвоить их, без объявления:A=0:B=0:R=0. Расчеты должны работать и на вариантах.DefIntто, что я использую каждый день, но в будущем буду очень полезен для игры в гольф на VBA. К сожалениюA=0, из моих тестов он будет действовать как двойник. Там для производстваiiiaa/wдают десятичный результат, а не целое.PHP, 310 байт
Впервые в жизни использую
evalПринимает первый ввод командной строки:
Вывод из примеров:
источник
С 357
Макросы FTW!
(Кого я шучу - с этим никогда не выиграю)
источник
JavaScript (ES6),
293262 байтаиспользование
объяснение
Есть некоторые детали языка, в которых я не уверен (целочисленные размеры, обработка нераспознанных символов и т. Д.), Но это решение, кажется, работает достаточно и игнорирует пробельные символы, такие как новые строки в тестовом примере.
источник
:$=>на$, а затем добавив замену для строки.Simplex v.0.8 , 211 байт
(В кодировке UTF-8.)
объяснение
Так как это самая длинная симплексная программа, которую я до сих пор написал, я в общих чертах объясню, как это работает в пунктах.
h@u]- определяет макрос 0. Этот макрос просто записывает в регистр и заставляет лямбду ничего не возвращать.u2- переходит на указанную выше полосу и устанавливает текущий байт в 2; это определяет арность лямбд, которые будут определены.ƒ- начать лямбда-выражение; после завершения], будет толкать лямбда-функцию в стек лямбда. Он действует, беря (arity) ячейки из указателя в его локальную полосу, и, после завершения, установит в своей локальной полосе взятые ячейки, если текущий байт не записан. Указатель не затронут. Макрос 0 позволяет функции возвращаться без изменения чего-либо в полосе.§- перемещается к первой записанной ячейке в текущей полосе, т.е.A.ð- перемещается к последней записанной ячейке в текущей полосе, т.е.B.{"idspP>akmoO<+-*/w@#e"RlyG^u·u†vøÏ}{...Ï}повторять до тех пор, пока входной стек не станет пустым"idspP>akmoO<+-*/w@#e"- командыRly- положить полоску в кортежG^u- индекс входа в кортеж·- загрузить текущий байт th в лямбда-оценщикuRL- уходит в полосу холдингаAиB(пишетAиBесли их нет)†- выполняет лямбда (это лямбда-оценщик)vø- сбрасывает ниже полосыфу, я впечатлен. Это длинно для Симплекса, но коротко для всего остального.
;)источник
Минколанг 0,11 , 222 байта
Я уверен, что это может быть дальше, но это было весело. Также первый переводчик Минколанга на другой язык!
Попробуй это здесь.
объяснение
Остальные строки довольно просты, возможно, за исключением тех, с
1$((dl%"0"+$rl:d)$Okкоторыми есть, идиома, которая печатает число без пробела. (Я еще не реализовал функцию преобразования-этого-числа-в-строку, которая будет1Z.) О, да, у них у всех естьvв начале, что возвращает его к началу.источник
GNU Sed (с опцией eval для оценки выражения dc), 289
Вдохновленный Digital Trauma, который, к сожалению, не смог понять, что a) недопустимые символы должны игнорироваться, b) dc нужна вся преобразованная программа в одном аргументе и c) деление на 0 должно завершить программу без ошибок.
Если бы все эти правила не применялись, мое решение было бы только 235 байт;)
источник
AWK,
311309Круглые скобки TIL не требовались вокруг printf. 2 байта сохранены!
Безголовая версия для удобства чтения:
источник
Python 2, 272
источник
printзаявления включают завершающий перевод строки.Рубин, 199 байт
5 байтов можно сохранить, удалив
.readиз второй строки, если вы можете допустить вывод предупреждения на stderr в более новой версии Ruby.источник
Python, 244
Немного поздно, но я хотел пойти.
источник
Пролог, 759 байт
Не самая короткая программа, но, по крайней мере, она структурирована и читаема.
Пример ввода
Попробуйте это онлайн здесь
источник