Terkait dengan: Buat juru bahasa; #

Dalam tantangan terkait di atas, tugasnya adalah menciptakan penerjemah untuk bahasa esoterik ;#.

The ;#bahasa

Bahasa ini memiliki dua perintah: ;dan #(semua karakter lain diabaikan oleh penerjemah):

;: Menambah akumulator

#: Modulo akumulator dengan 127, cetak karakter ASCII yang sesuai dan reset akumulator ke 0.

Tantangan

Karena saya malas tetapi masih ingin menguji beberapa testcases lagi, saya memerlukan program atau fungsi yang mengubah teks biasa menjadi ;#kode.

Memasukkan

Masukan adalah string, diambil sebagai argumen atau melalui stdin. Ini hanya akan berisi karakter dan baris ASCII yang dapat dicetak.

Keluaran

Outputnya adalah ;#program yang dihasilkan dengan mengembalikan, atau mencetak ke stdout. Selama program ini valid, mungkin berisi kelebihan karakter selain #dan ;karena semua karakter lain diabaikan.

Contohnya

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

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

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

Papan peringkat

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 byte

Dikalahkan oleh Conor O'Brien

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

Cobalah online!

Perhatikan bahwa input memiliki null byte tambahan.

; # + , 40 byte

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

Cobalah online! Input diakhiri dengan byte nol.

Penjelasan

Kode ini dibagi menjadi dua bagian: generasi dan iterasi.

Generasi

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

Ini menempatkan konstanta ;dan #ke dalam memori sebagai berikut:

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

Perulangan

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

brainfuck , 59 54 byte

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

Cobalah online!

Jelly , 10 8 7 byte

O”;ẋp”#

Cobalah 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 byte terima kasih kepada @Emigna
-1 byte berkat @Dennis

GS2 , 6 byte

■•;2•#

Cobalah online!

Hexdump yang dapat dibalik (xxd)

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

Bagaimana itu bekerja

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

Taksi, 779 byte

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]

Cobalah online!

Tidak Disatukan:

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]

Penjelasan:

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 byte

Ç';×'#«J

Cobalah online!

Penjelasan

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

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

Null byte mengakhiri program.

Penjelasan

+[+[<]>->++]          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 byte

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

Cobalah online!

> <> , 22 byte

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

Cobalah secara online , atau di taman bermain ikan

Input adalah STDIN, output adalah STDOUT. Dalam> <>, karakter dan kode ASCII adalah hal yang sama, jadi yang perlu kita lakukan adalah membaca karakter, mencetak ";"dan mengurangi karakter sampai 0, lalu cetak "#"dan putar hingga tidak ada lagi input yang tersisa.

F #, 79 byte

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

Cobalah online!

Diperluas

// 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 mengambil string input dan menghasilkan program; #

Pemakaian

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

Python 2 - 36 byte

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

Cobalah online!

PowerShell, 29 27 25 byte

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

Cukup mudah. Mengambil input sebagai argumen baris perintah. Output adalah program yang valid; # yang mencetak teks yang diminta.

brainfuck , 47 byte

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

Cobalah online!

Lihat juga: jawaban Ovs , yang mengambil pendekatan yang serupa, tetapi dengan metode berbeda untuk menghasilkan konstanta dan tata letak sel yang berbeda.

Penjelasan:

Tantangan ini sejalan dengan spec brainfuck dengan cukup baik, yang berarti solusinya pada dasarnya sepele. Brainfuck mengambil input sebagai nilai ASCII, yang persis seperti apa; # perlu di-output.

Skema untuk pengubahan sederhana: Menghasilkan nilai ASCII untuk ;dan #, mencetak ;sama dengan nilai ASCII dari karakter input, mencetak #, ulangi untuk setiap input.

+++++++[-             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 byte

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

Penjelasan

Mengonversi string input ke daftar kode karakter, lalu Maps fungsinya di StringRepeat[";",#]<>"#"&atas daftar, lalu StringJoinhasilnya dengan string kosong.

Aceto , 19 byte

Karena ada penerjemah di Aceto , saya pikir tidak akan ada jawaban Aceto untuk tantangan ini juga. Ini cocok dengan rapi dalam kurva Hilbert urutan 2:

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

Pertama-tama, kita membaca satu karakter ( ,) dan menggandakan dan meniadakannya untuk menguji apakah itu adalah baris baru ( d!, ketika membaca baris baru, karakter kosong biasanya didorong pada tumpukan). Saya kemudian menggunakan apa yang saya pikir adalah trik yang cukup pintar untuk menangani kasus baris baru dengan kompak:

`'\n

Jika nilai pada stack adalah True(kita membaca baris baru), kode itu berarti: do ( `) meletakkan karakter literal pada stack ( '), yang merupakan baris baru:\n .

Jika nilai pada stack adalah False(kami tidak membaca baris baru), kode itu berarti: jangan ( `) membaca karakter literal ( '). Itu berarti karakter selanjutnya dieksekusi sebagai perintah. Untungnya, backslash lolos dari perintah berikutnya (itu membuatnya agar tidak dieksekusi), jadi ntidak mencetak baris baru (yang adalah apan biasanya dilakukan).

Sisa kode mudah; kita mengonversi karakter pada stack ke integer dari unicode codepoint ( o), kita mendorong titik koma literal ( ';), mengalikan angka dengan string ( *, seperti dalam Python), pmematahkan hasilnya, mendorong literal ( ') #, pmematahkannya juga, dan kembali ke menuO rigin.

Jalankan dengan -Fjika Anda ingin melihat hasil langsung (karena buffering), tetapi berfungsi juga.

Perl, 24 byte

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

Jalankan dengan perl -pe.

Solusi alternatif:

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

Jalankan dengan perl -nE.

Penghiburan , 11 byte

Yay, bahasa baru.

';@jx{'#}Ep

Penjelasan

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

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

Cobalah di FourIDE!

Untuk menjalankan, Anda harus melampirkan string input dalam tanda kutip.

Pseudocode penjelasan

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 byte

-5 byte terima kasih kepada Jo King .

"#@~k:*k,;

Cobalah online!

JavaScript, 55 54 51 50 48 byte

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

Cobalah online

• 1 byte disimpan berkat Neil .

Alternatif

Jika kita dapat mengambil input sebagai array karakter individu maka 5 byte dapat disimpan.

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

Jika kita juga bisa menampilkan sebagai array maka 2 byte lagi dapat disimpan.

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

Sebenarnya , 11 byte

O⌠';*'#o⌡MΣ

Cobalah online!

Penjelasan:

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 byte

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

Cobalah online!

⎕UCS Konversikan ke titik kode Unicode

';'⍴¨⍨ gunakan setiap titik kode untuk membentuk kembali ( ⍴ = Rho ≈ R ; R eshape) titik koma

#',¨⍨ menambahkan hash ke setiap string

Ruby, 28 25 byte

24 byte, ditambah -nsaklar baris perintah untuk beroperasi berulang kali stdin.

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

3 byte disimpan (dan hasil koreksi pada baris baru!) Berkat manatwork.

PHP, 54 Bytes

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

Cobalah online!

Alice , 12 byte

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

Cobalah online!

Penjelasan

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

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

jq, 30 karakter

(26 karakter kode + 4 opsi opsi baris perintah)

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

Contoh dijalankan:

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

Tes online

Pyth, 10 byte

sm_+\#*\;C

Cobalah!

Rosda , 24 byte

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

Cobalah online!