Powiązane z: Make a; # interpreter

W powyższym powiązanym wyzwaniu zadaniem było stworzenie tłumacza dla ezoterycznego języka ;#.

;#język

Język ma dokładnie dwie komendy: ;i #(wszystkie inne znaki są ignorowane przez tłumacza):

;: Zwiększ akumulator

#: Zmoduluj akumulator o 127, wydrukuj odpowiedni znak ASCII i zresetuj akumulator do 0.

Wyzwanie

Ponieważ jestem leniwy, ale nadal chcę testować więcej przypadków testowych, potrzebuję programu lub funkcji, która konwertuje zwykły tekst na ;#kod.

Wkład

Dane wejściowe są ciągiem, traktowanym jako argument lub przez stdin. Będzie zawierać tylko drukowalne znaki ASCII i znaki nowej linii.

Wydajność

Dane wyjściowe to wygenerowany ;#program, zwracając lub drukując na standardowe wyjście. Tak długo, jak program jest poprawny, może zawierać nadmiar znaków innych niż #i ;wszystkie inne znaki są ignorowane.

Przykłady

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

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

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

Tabela liderów

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 bajtów

Outgolfed przez Conor O'Brien

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

Wypróbuj online!

Zauważ, że wejście ma końcowy bajt zerowy.

; # + , 40 bajtów

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

Wypróbuj online! Wejście jest zakończone bajtem zerowym.

Wyjaśnienie

Kod podzielony jest na dwie części: generację i iterację.

Generacja

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

To wprowadza stałe ;i #do pamięci jako takiej:

;;;;;~+++++++>~;~++++:>
;;;;;                     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

Iteracja

*(-(;~<#~):<#-*:)
*                    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

pieprzenie mózgu , 59 54 bajtów

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

Wypróbuj online!

Galaretka , 10 8 7 bajtów

O”;ẋp”#

Wypróbuj online!

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 bajty dzięki @Emigna
-1 bajtów dzięki @Dennis

GS2 , 6 bajtów

■•;2•#

Wypróbuj online!

Odwracalny zrzut heksadecymalny (xxd)

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

Jak to działa

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

Taxi, 779 bajtów

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]

Wypróbuj online!

Nie golfowany:

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]

Wyjaśnienie:

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 bajtów

Ç';×'#«J

Wypróbuj online!

Wyjaśnienie

Ç          # 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 bajty

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

Bajt zerowy kończy program.

Wyjaśnienie

+[+[<]>->++]          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 bajtów

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

Wypróbuj online!

> <> , 22 bajty

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

Wypróbuj online lub na placu zabaw dla ryb

Wejście to STDIN, wyjście to STDOUT. W> <> znaki i kody ASCII są tym samym, więc wszystko, co musimy zrobić, to odczytać znak, wydrukować ";"i zmniejszyć znak do zera, a następnie drukować "#"i zapętlać, dopóki nie pozostanie więcej danych wejściowych.

F #, 79 bajtów

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

Wypróbuj online!

Rozszerzony

// 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

konwersja pobiera ciąg wejściowy i wyprowadza program; #

Stosowanie

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

Python 2 - 36 bajtów

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

Wypróbuj online!

PowerShell, 29 27 25 bajtów

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

Całkiem proste. Pobiera dane wejściowe jako argument wiersza polecenia. Dane wyjściowe to poprawny program #, który drukuje żądany tekst.

pieprzenie mózgu , 47 bajtów

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

Wypróbuj online!

Zobacz także: odpowiedź ovsa , która przyjmuje podobne podejście, ale z inną metodą generowania stałych i innym układem komórek.

Wyjaśnienie:

To wyzwanie całkiem nieźle się zgadza ze specyfiką pieprzenia mózgu, co oznacza, że ​​rozwiązanie jest w zasadzie banalne. Brainfuck pobiera dane wejściowe jako wartości ASCII, co jest dokładnie tym; # trzeba wyprowadzać jako.

Schemat transpilacji jest prosty: wygeneruj wartość ASCII dla ;i #wypisz ;równą wartości ASCII znaku wejściowego, wydrukuj #, powtórz dla każdego wejścia.

+++++++[-             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 bajtów

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

Wyjaśnienie

Konwertuje ciąg wejściowy na listę kodów znaków, następnie Maps funkcja StringRepeat[";",#]<>"#"&nad listą, a następnie StringJoinwynik z pustym ciągiem.

Aceto , 19 bajtów

Ponieważ w Aceto jest tłumacz , pomyślałem, że odpowiedź Aceto na to wyzwanie również będzie możliwa. Pasuje idealnie do krzywej Hilberta drugiego rzędu:

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

Przede wszystkim odczytujemy pojedynczy znak ( ,), duplikujemy go i negujemy, aby sprawdzić, czy jest to nowa linia ( d!podczas czytania nowej linii zwykle pusty znak jest umieszczany na stosie). Następnie używam czegoś, co moim zdaniem jest dość sprytną sztuczką, aby poradzić sobie z nowym przypadkiem kompaktowo:

`'\n

Jeżeli wartość na stosie jest True(czytamy nowej linii), co oznacza, że kod: nie ( `) umieścić znak literalny na stosie ( '), która jest znak nowej linii: \n.

Jeśli wartość na stosie to False(nie czytaliśmy nowego wiersza), ten kod oznacza: nie ( `) czytaj literału znaku ( '). Oznacza to, że następny znak jest wykonywany jako polecenie. Na szczęście ukośnik odwraca się od następnego polecenia (powoduje, że nie można go wykonać), więc nnie drukuje nowego wiersza (co nzwykle robi).

Reszta kodu jest prosta; konwertujemy znak na stosie na liczbę całkowitą jego kodu Unicode ( o), wciskamy literał średnik ( ';), mnożymy liczbę przez ciąg znaków ( *podobnie jak w Pythonie), printujemy wynik, push literal ( ') #, printujemy i wróć do Orutyny.

Uruchom, -Fjeśli chcesz zobaczyć natychmiastowe wyniki (ponieważ buforowanie), ale działa również bez.

Perl, 24 bajty

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

Uruchom z perl -pe.

Alternatywne rozwiązanie:

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

Uruchom z perl -nE.

Pociecha , 11 bajtów

Tak, nowe języki.

';@jx{'#}Ep

Wyjaśnienie

';           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.

Fourier , 19 bajtów

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

Wypróbuj na FourIDE!

Aby uruchomić, musisz ująć ciąg wejściowy w cudzysłów.

Objaśnienie pseudokod

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 bajtów

-5 bajtów dzięki Jo King .

"#@~k:*k,;

Wypróbuj online!

JavaScript, 55 54 51 50 48 bajtów

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

Wypróbuj online

• 1 bajt zapisany dzięki Neilowi .

Alternatywy

Jeśli możemy przyjąć dane wejściowe jako tablicę pojedynczych znaków, można zapisać 5 bajtów.

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

Jeśli możemy również wyprowadzać dane jako tablicę, można zapisać jeszcze 2 bajty.

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

Właściwie 11 bajtów

O⌠';*'#o⌡MΣ

Wypróbuj online!

Wyjaśnienie:

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 bajtów

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

Wypróbuj online!

⎕UCS Konwertuj na punkty kodowe Unicode

';'⍴¨⍨ użyj każdego punktu kodowego, aby zmienić kształt ( ⍴ = Rho ≈ R ; R eshape) średnikiem

#',¨⍨ dodaj skrót do każdego łańcucha

Rubinowy, 28 25 bajtów

24 bajty plus -nprzełącznik wiersza poleceń do wielokrotnego działania stdin.

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

3 bajty zapisane (i dane wyjściowe poprawione na nowych liniach!) Dzięki manatwork.

PHP, 54 bajtów

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

Wypróbuj online!

Alice , 12 bajtów

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

Wypróbuj online!

Wyjaśnienie

'#    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 bajtów

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

jq, 30 znaków

(26-znakowy kod + 4-znakowe opcje wiersza poleceń)

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

Przykładowy przebieg:

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

Test online

Pyth, 10 bajtów

sm_+\#*\;C

Spróbuj!

Röda , 24 bajty

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

Wypróbuj online!