Liên quan đến: Tạo trình thông dịch; #

Trong thử thách liên kết ở trên, nhiệm vụ là tạo ra một trình thông dịch cho ngôn ngữ bí truyền ;#.

các ;#ngôn ngữ

Ngôn ngữ có chính xác hai lệnh: ;và #(tất cả các ký tự khác bị người phiên dịch bỏ qua):

;: Tăng bộ tích lũy

#: Modulo bộ tích lũy bằng 127, in ký tự ASCII tương ứng và đặt lại bộ tích thành 0.

Thử thách

Bởi vì tôi lười biếng nhưng vẫn muốn thử nghiệm thêm một số testcase, tôi cần một chương trình hoặc chức năng chuyển đổi văn bản đơn giản thành ;#mã.

Đầu vào

Đầu vào là một chuỗi, được lấy làm đối số hoặc thông qua stdin. Nó sẽ chỉ chứa các ký tự ASCII có thể in và các dòng mới.

Đầu ra

Đầu ra là ;#chương trình được tạo bằng cách quay lại hoặc in ra thiết bị xuất chuẩn. Miễn là chương trình hợp lệ, nó có thể chứa các ký tự thừa khác với #và ;như tất cả các ký tự khác bị bỏ qua.

Ví dụ

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

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

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

Bảng xếp hạng

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

Bị ruồng bỏ bởi Conor O'Brien

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

Hãy thử trực tuyến!

Lưu ý rằng đầu vào có một byte null.

; # + , 40 byte

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

Hãy thử trực tuyến! Đầu vào được kết thúc bằng một byte null.

Giải trình

Mã được chia thành hai phần: tạo và lặp.

Thế hệ

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

Điều này đặt các hằng số ;và #vào bộ nhớ như vậy:

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

Lặp lại

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

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

Hãy thử trực tuyến!

Thạch , 10 8 7 byte

O”;ẋp”#

Hãy thử trực tuyến!

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 nhờ @Emigna
-1 byte nhờ @Dennis

GS2 , 6 byte

■•;2•#

Hãy thử trực tuyến!

Hexdump có thể đảo ngược (xxd)

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

Làm thế nào nó hoạt động

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

Taxi, 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]

Hãy thử trực tuyến!

Ung dung:

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]

Giải trình:

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

Hãy thử trực tuyến!

Giải trình

Ç          # 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 chấm dứt chương trình.

Giải trình

+[+[<]>->++]          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()]

Hãy thử trực tuyến!

> <> , 22 byte

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

Dùng thử trực tuyến hoặc tại sân chơi cá

Đầu vào là STDIN, đầu ra là STDOUT. Trong> <>, các ký tự và mã ASCII là như nhau, vì vậy tất cả những gì chúng ta cần làm là đọc một ký tự, in ";"và giảm ký tự cho đến khi 0, sau đó in "#"và lặp cho đến khi không còn đầu vào nữa.

F #, 79 byte

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

Hãy thử trực tuyến!

Mở rộng

// 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 lấy chuỗi đầu vào và xuất ra một chương trình; #

Sử dụng

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

Python 2 - 36 byte

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

Hãy thử trực tuyến!

PowerShell, 29 27 25 byte

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

Khá đơn giản. Lấy đầu vào làm đối số dòng lệnh. Đầu ra là một chương trình hợp lệ; # in văn bản được yêu cầu.

Brainfuck , 47 byte

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

Hãy thử trực tuyến!

Xem thêm: câu trả lời của ovs , có cách tiếp cận tương tự, nhưng với một phương pháp tạo hằng số khác nhau và bố trí ô khác nhau.

Giải trình:

Thử thách này phù hợp với thông số brainfuck khá tốt, điều đó có nghĩa là giải pháp về cơ bản là tầm thường. Brainfuck lấy đầu vào là giá trị ASCII, chính xác là gì; # cần xuất ra dưới dạng.

Sơ đồ để dịch mã rất đơn giản: Tạo giá trị ASCII cho ;và #, in ;bằng giá trị ASCII của ký tự đầu vào, in #, lặp lại cho mỗi đầu vào.

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

Toán học, 49 byte

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

Giải trình

Chuyển đổi chuỗi đầu vào thành một danh sách mã ký tự, sau đó Maplà hàm StringRepeat[";",#]<>"#"&trên danh sách, sau đó StringJoinlà kết quả với chuỗi trống.

Aceto , 19 byte

Vì có một thông dịch viên trong Aceto , tôi nghĩ rằng cũng có một câu trả lời Aceto cho thách thức này. Nó nằm gọn trong một đường cong Hilbert thứ 2:

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

Trước hết, chúng tôi đọc một ký tự đơn ( ,) và sao chép và phủ định nó để kiểm tra xem đó có phải là một dòng mới không (d! khi đọc một dòng mới, một ký tự trống thường được đẩy trên ngăn xếp). Sau đó, tôi sử dụng những gì tôi nghĩ là một mẹo khá thông minh để xử lý gọn nhẹ trường hợp dòng mới:

`'\n

Nếu giá trị trên ngăn xếp là True(chúng ta đọc một dòng mới), mã đó có nghĩa là: do ( `) đặt một ký tự bằng chữ trên ngăn xếp (' ), đó là một dòng mới : \n.

Nếu giá trị trên ngăn xếp là False(chúng tôi đã không đọc một dòng mới), mã đó có nghĩa là: không ( `) đọc một ký tự bằng chữ ( '). Điều đó có nghĩa là nhân vật tiếp theo được thực thi như một lệnh. May mắn thay, một dấu gạch chéo ngược thoát khỏi lệnh tiếp theo (nó làm cho nó không được thực thi), vì vậyn đó không in một dòng mới (đó là những gìn thường làm).

Phần còn lại của mã là đơn giản; chúng tôi chuyển đổi ký tự trên ngăn xếp thành số nguyên của mã số unicode ( o), chúng tôi đẩy một dấu chấm phẩy bằng chữ ( ';), nhân số với chuỗi ( *như trong Python), print kết quả, đẩy một chữ ( ') #, print nó cũng vậy, và quay trở lạiO rigin.

Chạy với -Fnếu bạn muốn xem kết quả ngay lập tức (vì bộ đệm), nhưng nó cũng hoạt động mà không có.

Perl, 24 byte

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

Chạy với perl -pe.

Giải pháp thay thế:

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

Chạy với perl -nE.

Giải quyết , 11 byte

Yay, ngôn ngữ mới.

';@jx{'#}Ep

Giải trình

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

Hãy thử nó trên FourIDE!

Để chạy, bạn phải đặt chuỗi đầu vào trong dấu ngoặc kép.

Mã giả giải thích

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 nhờ Jo King .

"#@~k:*k,;

Hãy thử trực tuyến!

JavaScript, 55 54 51 50 48 byte

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

Dùng thử trực tuyến

• Lưu 1 byte nhờ Neil .

Lựa chọn thay thế

Nếu chúng ta có thể lấy đầu vào là một mảng các ký tự riêng lẻ thì 5 byte có thể được lưu.

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

Nếu chúng ta cũng có thể xuất ra dưới dạng một mảng thì có thể lưu thêm 2 byte.

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

Trên thực tế , 11 byte

O⌠';*'#o⌡MΣ

Hãy thử trực tuyến!

Giải trình:

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

Hãy thử trực tuyến!

⎕UCS Convert to Unicode code points

';'⍴¨⍨ use each code point to reshape (⍴ = Rho ≈ R; Reshape) a semicolon

#',¨⍨ append a hash to each string

Ruby, 28 25 bytes

24 bytes, plus the -n command line switch to repeatedly operate on 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!