Связанный с: Сделать интерпретатор; #

В вышеупомянутой связанной задаче стояла задача создать переводчика для эзотерического языка ;#.

;#язык

Язык имеет ровно две команды: ;и #(все остальные символы игнорируются интерпретатором):

;: Увеличить аккумулятор

#: По модулю аккумулятора на 127, выведите соответствующий символ ASCII и сбросьте аккумулятор на 0.

Вызов

Поскольку я ленивый, но все еще хочу протестировать еще несколько тестовых случаев, мне нужна программа или функция, которая преобразует простой текст в ;#код.

вход

Вводом является строка, взятая либо в качестве аргумента, либо через стандартный ввод. Он будет содержать только печатные символы ASCII и символы новой строки.

Выход

Выводом является сгенерированная ;#программа путем возврата или печати в стандартный вывод. Пока программа действует, она может содержать иные , чем лишние символы #и , ;как и все остальные символы игнорируются.

Примеры

Input: Hello, World!
Output: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#

Input: ABC
Output: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#

Input: ;#
Output: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;#

Leaderboard

var QUESTION_ID=122139,OVERRIDE_USER=73772;function answersUrl(e){return"https://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"https://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.1.1/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>

; # + , 61 байт

Конг Оф Брайен

;;;;;;;(~;;;;;~-;-)~>:~;;;;(~;;;;;;~-;-)~>~-*((;~<#~):<#-:-*)

Попробуйте онлайн!

Обратите внимание, что вход имеет завершающий нулевой байт.

; # + , 40 байт

;;;;;~+++++++>~;~++++:>*(-(;~<#~):<#-*:)

Попробуйте онлайн! Ввод завершается нулевым байтом.

объяснение

Код разбит на две части: генерация и итерация.

поколение

;;;;;~+++++++>~;~++++:>

Это помещает константы ;и #в память как таковую:

;;;;;~+++++++>~;~++++:>
;;;;;                     set A to 5
     ~                    swap A and B
      +++++++             add B to A 7 times
                          (A, B) = (5*7, 5) = (35, 5)
             >            write to cell 0
              ~           swap A and B
               ;          increment A
                ~         swap A and B
                          (A, B) = (35, 6)
                 ++++     add B to A 4 times
                          (A, B) = (59, 6)
                     :    increment cell pointer
                      >   write to cell 1

итерация

*(-(;~<#~):<#-*:)
*                    read a character into A
 (            * )    while input is not a null byte:
  -                  flip Δ
   (     )           while A != 0
    ;                decrement
     ~               swap A and B
      <              read ";" into A
       #             output it
        ~            swap A and B
           :         decrement cell pointer
            <        read "#" into A
             #       output it
              -      flip Δ
               *     take another character from input
                :    increment cell pointer

бред , 59 54 байта

+++++[<+++++++>-]++++++[>++++++++++<-]>-<,[[>.<-]<.>,]

Попробуйте онлайн!

Желе , 10 8 7 байт

O”;ẋp”#

Попробуйте онлайн!

O”;ẋp”#  Main Link
O        Map over `ord` which gets the codepoint of every character
 ”;ẋ     Repeat ';' the required number of times
     ”#  '#'
    p    Cartesian Product; this puts a '#' at the end of each element in the array

Implicit Output shows as a single string

-2 байта благодаря @Emigna
-1 байту благодаря @Dennis

GS2 , 6 байт

■•;2•#

Попробуйте онлайн!

Обратимая hexdump (xxd)

0000000: ff 07 3b 32 07 23                                ■•;2•#

Как это работает

■       Map the rest of the program over  all code points C of the input.
 •;         Push ';'.
   2        Multiply; repeat ';' C times.
    •#      Push '#'.

Такси, 779 байтов

Go to Post Office:w 1 l 1 r 1 l.Pickup a passenger going to Chop Suey.Go to Chop Suey:n 1 r 1 l 4 r 1 l.[c]Switch to plan "e" if no one is waiting.Pickup a passenger going to Charboil Grill.Go to Charboil Grill:n 1 l 3 l 3 l.Pickup a passenger going to The Underground.Go to Writer's Depot:w 1 r.[p]; is waiting at Writer's Depot.Pickup a passenger going to Post Office.Go to Post Office:n 1 r 2 r 1 l.Go to The Underground:n 1 r 1 l.Switch to plan "n" if no one is waiting.Pickup a passenger going to The Underground.Go to Zoom Zoom:n 3 l 2 r.Go to Writer's Depot:w.Switch to plan "p".[n]# is waiting at Writer's Depot.Go to Writer's Depot:n 3 l 2 l.Pickup a passenger going to Post Office.Go to Post Office:n 1 r 2 r 1 l.Go to Chop Suey:n 1 r 1 l 4 r 1 l.Switch to plan "c".[e]

Попробуйте онлайн!

Ungolfed:

Go to Post Office: west 1st left 1st right 1st left.
Pickup a passenger going to Chop Suey.
Go to Chop Suey: north 1st right 1st left 4th right 1st left.
[c]
Switch to plan "e" if no one is waiting.
Pickup a passenger going to Charboil Grill.
Go to Charboil Grill: north 1st left 3rd left 3rd left.
Pickup a passenger going to The Underground.
Go to Writer's Depot: west 1st right.
[p]
; is waiting at Writer's Depot.
Pickup a passenger going to Post Office.
Go to Post Office: north 1st right 2nd right 1st left.
Go to The Underground: north 1st right 1st left.
Switch to plan "n" if no one is waiting.
Pickup a passenger going to The Underground.
Go to Zoom Zoom: north 3rd left 2nd right.
Go to Writer's Depot: west.
Switch to plan "p".
[n]
# is waiting at Writer's Depot.
Go to Writer's Depot: north 3rd left 2nd left.
Pickup a passenger going to Post Office.
Go to Post Office: north 1st right 2nd right 1st left.
Go to Chop Suey: north 1st right 1st left 4th right 1st left.
Switch to plan "c".
[e]

Объяснение:

Pick up stdin and split it into characters.
Covert each character to ASCII.
Print ";" as you count down from that ASCII to zero.
Print "#".
Pickup the next character and repeat until done.

05AB1E , 8 байтов

Ç';×'#«J

Попробуйте онлайн!

объяснение

Ç          # convert each input char to its ascii value
 ';×       # repeat ";" those many times
    '#«    # append a "#" to each run of semi-colons
       J   # join to string

Brainfuck, 43 байта

+[+[<]>->++]--[>--<+++++++]>-<,[[<.>-]>.<,]

Нулевой байт завершает программу.

объяснение

+[+[<]>->++]          59 (semicolon) location 5
--[>--<+++++++]>-       35 (hash) location 7
<,[                     input location 6
    [   while input byte not 0
        <.>     print semicolon
        -       decrement input byte
    ]
    >.< print hash
,]  loop while input not null

Python 3 , 39 байт

[print(";"*ord(s)+"#")for s in input()]

Попробуйте онлайн!

> <> , 22 байта

i:0(?;\"#"o
o1-:?!\";"

Попробуйте онлайн или на рыбной площадке

Вход STDIN, выход STDOUT. В> <> символы и ASCII-коды - это одно и то же, поэтому все, что нам нужно сделать, это прочитать символ, вывести ";"и уменьшить значение символа до его 0, затем распечатать "#"и зациклить, пока не останется ввода.

F #, 79 байтов

let c i=System.String.Join("#",Seq.map(fun c->String.replicate(int c)";")i)+"#"

Попробуйте онлайн!

расширенный

// string -> string
let convert input =
    System.String.Join(
        "#",      // join the following char seq with "#"
        input     // replicate ";" n times where n = ASCII value of char c
        |> Seq.map (fun c-> String.replicate (int c) ";") 
    ) + "#" // and add the last "#" to the output

convert принимает входную строку и выводит программу; #

использование

convert "Hello, World!" |> printfn "%s"
convert "ABC" |> printfn "%s"
convert ";#" |> printfn "%s"

Python 2 - 36 байт

for i in input():print';'*ord(i)+'#'

Попробуйте онлайн!

PowerShell, 29 27 25 байт

$args|% t*y|%{';'*$_+'#'}

Довольно просто. Принимает ввод в качестве аргумента командной строки. Вывод является действительной; # программой, которая печатает запрошенный текст.

брейкфук , 47 байт

+++++++[->++++++++>+++++<<]>+++<,[[>.<-]>>.<<,]

Попробуйте онлайн!

Смотрите также: ovs's answer , который использует аналогичный подход, но с другим методом генерации констант и другим расположением ячеек.

Объяснение:

Эта задача хорошо согласуется со спецификацией brainfuck, что означает, что решение по сути тривиально. Brainfuck принимает входные данные как значения ASCII, и это именно то, что нужно # вывести как.

Схема для переноса проста: сгенерируйте значение ASCII для ;и #, напечатайте ;равное значению ASCII входного символа, напечатайте #, повторите для каждого ввода.

+++++++[-             7
         >++++++++       * 8 = 56
         >+++++<<        * 5 = 35 (#)
       ]>+++<                  56 + 3 = 59 (;)
,[                    Input into first cell
  [>.<-]              Print ;'s equal to ASCII input
  >>.<<,              Print one #
 ]                    End on EOF

Mathematica, 49 байтов

StringRepeat[";",#]<>"#"&/@ToCharacterCode@#<>""&

объяснение

Преобразует входную строку в список кодов символов, затем Mapвыполняет функцию StringRepeat[";",#]<>"#"&над списком, а затем StringJoinрезультат с пустой строкой.

Ацето , 19 байт

Поскольку в Aceto есть переводчик , я подумал, что Aceto не сможет ответить и на этот вызов. Он хорошо вписывается в кривую Гильберта 2-го порядка:

\n;*
'o'p
`!#'
,dpO

Прежде всего, мы читаем один символ ( ,), дублируем его и отменяем его, чтобы проверить, является ли он новой строкой ( d!при чтении новой строки в стек обычно помещается пустой символ). Затем я использую то, что я считаю довольно хитрым трюком, чтобы компактно обработать случай новой строки:

`'\n

Если значение в стеке True(мы читаем новую строку), этот код означает: do ( `) помещает символьный литерал в стек ( '), который является новой строкой:\n .

Если значение в стеке False(мы не читали новую строку), этот код означает: не ( `) читать символьный литерал ( '). Это означает, что следующий символ выполняется как команда. К счастью, обратная косая черта экранирует следующую команду (она делает так, чтобы она не выполнялась), поэтому nне выводит символ новой строки (вот чтоn обычно и делается).

Остальная часть кода проста; мы конвертируем символ в стеке в целое число его кодовой точки Unicode ( o), вставляем буквальную точку с запятой ( ';), умножаем число на строку ( *как в Python), pопечатываем результат, нажимаем литерал ( ') #, pзапечатываем его и вернуться кO ригин.

Запустите с, -Fесли вы хотите увидеть немедленные результаты (потому что буферизация), но он работает и без.

Perl, 24 байта

s/./";"x(ord$&)."#"/ges

Беги с perl -pe.

Альтернативное решение:

say";"x ord,"#"for/./gs

Беги с perl -nE.

Утешение , 11 байт

Уу, новые языки.

';@jx{'#}Ep

объяснение

';           Push the code point of ';' (59).
  @j         Push the entire input as a list of code points.
    x        For each code point in the input, repeat 59 that many times.
     {  }E   For each resulting list of 59s:
      '#      Push the code point of '#' (35).
          p  Flatten and print as unicode characters.

Фурье , 19 байт

$(I(`;`&j)`#`0~j&i)

Попробуйте это на FourIDE!

Для запуска необходимо заключить входную строку в кавычки.

Пояснение псевдокод

While i != Input length
    temp = pop first char of Input
    While j != Char code of temp
        Print ";"
        Increment j
    End While
    Print "#"
    j = 0
    Increment i
End While

Befunge-98 (FBBI) , 23 17 10 байт

-5 байт благодаря Джо Кинг .

"#@~k:*k,;

Попробуйте онлайн!

JavaScript, 55 54 51 50 48 байт

s=>1+[...s].map(c=>";".repeat(Buffer(c)[0])+"#")

Попробуйте онлайн

• 1 байт сохранен благодаря Нейлу .

альтернативы

Если мы можем принять ввод как массив отдельных символов, то можно сохранить 5 байтов.

a=>1+a.map(c=>";".repeat(Buffer(c)[0])+"#")

Если мы также можем вывести в виде массива, то можно сохранить еще 2 байта.

a=>a.map(c=>";".repeat(Buffer(c)[0])+"#")

На самом деле , 11 байтов

O⌠';*'#o⌡MΣ

Попробуйте онлайн!

Объяснение:

O⌠';*'#o⌡MΣ
O            convert string to list of ASCII ordinals
 ⌠';*'#o⌡M   for each ordinal:
  ';*          repeat ";" that many times
     '#o       append "#"
          Σ  concatenate

APL (Dyalog) , 18 байт

'#',¨⍨';'⍴¨⍨⎕UCS

Попробуйте онлайн!

⎕UCS Преобразовать в кодовые точки Unicode

';'⍴¨⍨ используйте каждую кодовую точку, чтобы изменить ( ⍴ = Rho ≈ R ; R eshape) точку с запятой

#',¨⍨ добавить хеш к каждой строке

Рубин, 28 25 байт

24 байта, плюс -nпереключатель командной строки для многократного включения stdin.

$_.bytes{|b|$><<?;*b+?#}

3 байта сохранены (и вывод исправлен на новых строках!) Благодаря ручной работе.

PHP, 54 байта

for(;$o=ord($argn[$i++]);)echo str_repeat(";",$o)."#";

Попробуйте онлайн!

Алиса , 12 байт

'#I.h%&';d&O

Попробуйте онлайн!

объяснение

'#    Push 35, the code point of '#'.
I     Read a code point C from STDIN. Pushes -1 at EOF.
.h%   Compute C%(C+1). For C == -1, this terminates the program due to division
      by zero. For C > -1, this just gives back C, so it does nothing.
&';   Pop C and push that many 59s (the code point of ';').
d     Push the stack depth, which is C+1.
&O    Print that many code points from the top of the stack.
      The IP wraps around to the beginning and another iteration of this
      loop processes the next character.

PHP, 48 байт

for(;$c?:~$c=~ord($argn[$i++]);)echo";#"[!++$c];

JQ, 30 символов

(26 символов кода + 4 символа командной строки)

explode|map(";"*.+"#")|add

Образец прогона:

bash-4.4$ jq -Rr 'explode|map(";"*.+"#")|add' <<< 'Hello, World!' | jq -Rrj '[scan(".*?#")|gsub("[^;]";"")|length%127]|implode'
Hello, World!

Он-лайн тест

Pyth, 10 байт

sm_+\#*\;C

Попытайся!

Рёда , 24 байта

{chars|[";"*ord(_),"#"]}

Попробуйте онлайн!