Пов’язано з: Зробіть перекладач; #

У вищезазначеному виклику завданням було створити перекладача для езотеричної мови ;#.

;#мова

Мова має рівно дві команди: ;і #(всі інші символи перекладач ігнорується):

;: Збільшення акумулятора

#: Модулюйте акумулятор на 127, надрукуйте відповідний символ ASCII та скиньте акумулятор на 0.

Виклик

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

Вхідні дані

Вхід - це рядок, прийнятий або як аргумент, або через stdin. Він буде містити лише символи ASCII для друку та нові рядки.

Вихідні дані

Вихід - це згенерована ;#програма, повертаючись або друкуючись до stdout. Поки програма діє, вона може містити зайві символи, крім #та ;як ігноруються всі інші символи.

Приклади

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

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

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

Таблиця лідерів

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•#

Спробуйте в Інтернеті!

Оборотний шестигранник (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]

Спробуйте в Інтернеті!

Безголівки:

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 , яка використовує аналогічний підхід, але з іншим методом генерування констант та іншим компонуванням комірок.

Пояснення:

Ця проблема досить добре поєднується зі специфікою, яка є мозком, що означає, що рішення по суті є тривіальним. 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

Математика, 49 байт

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

Пояснення

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

Ацето , 19 байт

Оскільки в Ацето є перекладач , я думав, що може бути відповіддю Асето і на цей виклик. Вона акуратно вписується в криву Гільберта 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 крапку з комою форму)

#',¨⍨ додайте хеш до кожного рядка

Рубі, 28 25 байт

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

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

3 bytes saved (and output corrected on newlines!) thanks to manatwork.

PHP, 54 Bytes

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

Try it online!

Alice, 12 bytes

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

Try it online!

Explanation

'#    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 bytes

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

jq, 30 characters

(26 characters code + 4 characters command line options)

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

Sample run:

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

On-line test

Pyth, 10 bytes

sm_+\#*\;C

Try it!

Röda, 24 bytes

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

Try it online!