Thử thách đơn giản lấy cảm hứng từ sự phổ biến của văn bản in vô hình trước đây của tôi và in thử thách văn bản vô hình thực sự , và cùng thử thách chuỗi khác nhau .

Cho một chuỗi chỉ bao gồm các ký tự có thể in ( 0x20 to 0x7E), in mọi ký tự có thể in không có trong chuỗi.

Đầu vào

Một chuỗi hoặc một mảng các ký tự, chỉ bao gồm các ký tự ASCII có thể in được

Đầu ra

Mỗi ký tự ASCII có thể in không có trong chuỗi đầu vào, theo bất kỳ thứ tự nào.

Tủ thử

Input:  "Hello, World!"
Output: ""#$%&'()*+-./0123456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVXYZ[\]^_`abcfghijkmnpqstuvwxyz{|}~"
========
Input:  "Hi!"
Output: " "#$%&'()*+,-./0123456789:;<=>?@ABCDEFGIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghjklmnopqrstuvwxyz{|}~"
========
Input:  ""
Output: " !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
========
Input:  " !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
Output: ""

Chấm điểm

Đây là môn đánh gôn nên ít byte nhất trong mỗi ngôn ngữ sẽ thắng

GS2 , 2 byte

ç7

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

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

    (implicit) Push the sting of all characters in STDIN on the stack.
ç   Push the string of all printable ASCII characters.
 7  Perform symmetric set difference.
    (implicit) Print the result to STDOUT.

Perl 6 , 29 byte

{[~] keys (' '..'~')∖.comb}

Lưu ý rằng kết quả là ngẫu nhiên vì Set s không có thứ tự.

Kiểm tra nó

Mở rộng:

{
  [~]        # reduce using string concatenation
             # (shorter than ｢join '',｣)

  keys       # get the keys from the Set object resulting from the following

  (' '..'~') # Range of printable characters
  ∖          # Set minus (this is not \ )
  .comb      # split the input into individual characters
}

Ngoài ra còn có phiên bản ASCII ∖ (-), nhưng nó sẽ yêu cầu một khoảng trắng trước nó để nó không được phân tích cú pháp như một lệnh gọi chương trình con.

Python 3.5 , 39 byte

lambda n:{*map(chr,range(32,127))}-{*n}

Hãy thử trực tuyến!
Biến đầu vào thành một bộ và xóa nó khỏi bộ chứa tất cả các ký tự ascii

Japt , 14 byte

Ho#_dÃf@bX ¥J

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

Đã lưu 4 byte nhờ Shaggy và obarakon

Haskell, 32 byte

f x=[y|y<-[' '..'~'],all(/=y)x] 

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

Chức năng thư viện nhàm chán cho sự khác biệt thiết lập:

Haskell, 31 byte

import Data.List
([' '..'~']\\)

MATL , 5 byte

6Y2X~

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

Cảm ơn Luis Mendo vì đã chơi golf 8 byte!

Giải trình:

   X~   % The symmetric set difference
6Y2     % Between all printable ASCII
        % And the input string (implicit)
        % Implicitly display

Sự khác biệt của bộ đối xứng sẽ cung cấp cho mọi phần tử có mặt trong chính xác một trong hai bộ đầu vào. (nhưng không phải cả hai) Điều này sẽ luôn đưa ra câu trả lời đúng, vì bộ đầu vào sẽ luôn là tập con của bộ thứ hai (tất cả ASCII có thể in được).

Phiên bản gốc:

32:126tGom~)c

Giải trình:

32:126          % Push the range 32-126
      t         % Duplicate it on the stack
       G        % Push the input
        o       % Convert it to character points
         m      % Is member (0 for each char that isn't in input, 1 for each char that is)
          ~     % Logical NOT
           )    % Take the truthy elements of this array from the previous array (All Printable ASCII)
            c   % Display as a string

Brachylog , 5 byte

ẹ;Ṭ↔x

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

Giải trình

ẹ          Split the input string into a list of chars
 ;Ṭ↔x      Exterminate the chars from the string Ṭ of printable ASCII chars

JavaScript (ES6), 74 byte

Tôi chắc chắn có một cách ngắn hơn để làm điều này!

s=>[...Array(95)].map((_,y)=>s.includes(c=String.fromCharCode(y+32))?"":c)

Thử nó

let f=
s=>[...Array(95)].map((_,y)=>s.includes(c=String.fromCharCode(y+32))?"":c)
oninput=_=>o.innerText=f(i.value).join``
o.innerText=f(i.value="Hello, World!").join``

<input id=i><pre id=o>

Bash ,47 43 40 byte

printf %x {32..126}|xxd -r -p|tr -d "$1"

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

Tạo phạm vi hexa, đảo ngược kết xuất hex thành char loại bỏ các ký tự có trong tham số đầu tiên.

Tháng Mười , 22 20 byte

Nhờ @Luis Mendo đã lưu 2 byte.

@(s)setxor(32:'~',s)

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

Câu trả lời khác:

@(s)setdiff(' ':'~',s)

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

PHP, 42 byte

Nhập dưới dạng mảng

Đầu ra dưới dạng chuỗi

<?=join(array_diff(range(" ","~"),$_GET));

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

PHP, 53 byte

Nhập dưới dạng chuỗi

Đầu ra dưới dạng chuỗi

<?=join(array_diff(range(" ","~"),str_split($argn)));

thay thế <?=joinvới print_rmột đầu ra như mảng

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

CJam , 8 byte

'␡,32>q^

Ở đâu ␡ là một ký tự xóa theo nghĩa đen.

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

'␡,       e# The range of all characters up to ~.
   32>    e# Slice it to be the range of all characters from space to ~.
      q^  e# Symmetric set difference with the input.

Perl, 39 byte

s!.*!"pack(c95,32..126)=~y/$_//dr"!ee

Chạy với perl -pe.

Brainfuck , 120 byte

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

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

Gói:

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

Giải thích:

+[+[>+<+<]>]>-         initialize what we will now consider cell 0 to 95
[[>>]+[<<]>>-]         initialize cells 2 4 etc 95*2 to 1; end on cell 0 at 0
,[                     main input loop (for each char of input)
  <+++++[>------<-]>-  subtract 31 from the input
  [>[>>]+[<<]>-]       lay a trail of (input minus 31) ones in the empty spaces
  >[>>]<[-]<[-<<]>     use the trail to clear the appropriate "print" flag
,]                     keep reading input until it ends
++++++++[->++++<]>     initialize the cell directly before flag 1 to 32
[                      we'll let the accumulator overflow; no harm done
  >[-<.>]              print the accumulator if the flag is still set
  <[->>+<<]>>+         shift over the accumulator and increment it
]

Ồ , 3 byte

α@─

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

Lưu ý: bạn cũng có thể nhập dữ liệu nhập của mình dưới dạng chuỗi ( ví dụ ), nhưng không thành công cho trường hợp đầu vào trống.

Ruby, 23 18 17 byte

->s{[*' '..?~]-s}

Sử dụng chức năng lambda theo nhận xét của @ sethrin.

Những phiên bản trước:

[*' '..?~]-s.chars

(' '..'~').to_a-s.chars

APL, 13 byte

⍞~⍨⎕UCS31+⍳95

Nói thẳng:

       31+⍳95  ⍝ A vector 32 .. 126
   ⎕UCS        ⍝ as characters
 ~⍨            ⍝ without
⍞              ⍝ those read from character input.

R , 50 byte

function(s)intToUtf8(setdiff(32:126,utf8ToInt(s)))

trả về một hàm ẩn danh. Chuyển đổi chuỗi đầu vào thành số nguyên, tính toán chênh lệch đã đặt giữa phạm vi có thể in và các giá trị đầu vào, sau đó chuyển đổi chúng trở lại thành một chuỗi và trả về nó.

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

PHP, 53 byte

for($k=31;$k++<126;)~strstr($argn,$k)?:print chr($k);
# or
for($k=31;$k++<126;)echo~strstr($argn,$k)?"":chr($k);

Chạy như ống với -r.

C #, 74 71 byte

using System.Linq;s=>new int[95].Select((n,i)=>(char)(i+32)).Except(s);

Phiên bản cũ với việc tạo phạm vi cho 74 byte:

using System.Linq;s=>Enumerable.Range(32,95).Select(n=>(char)n).Except(s);

05AB1E , 5 4 byte

-1 cảm ơn Emigna

žQsK

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

žQ   # Push all printable characters
  s  # Swap input to the top
   K # Push a with no b's (remove input characters from all printable character)

V , 20 byte

òiÎflax
òcH ¬ ~@"<

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

Hexdump:

00000000: f269 ce66 1b6c 6178 0af2 6348 20ac 207e  .i.f.lax..cH . ~
00000010: 1b40 223c                                .@"<

C (gcc) , 75 72 70 68 50 byte

i;f(s){for(i=31;++i<127;strchr(s,i)?:putchar(i));}

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

Thạch , 8 byte

Thực sự, 8 byte? Xin vui lòng, cho tôi biết tôi đã bỏ lỡ một cái gì đó!

32r126Ọḟ

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

Làm sao?

32r126Ọḟ - Main link: list of characters s
32r126   - inclusive range from 32 to 126 = [32,33,...,125,126]
      Ọ  - cast ordinals to characters = list of printable characters
       ḟ - filter discard if in s

Hoặc

“ ~‘r/Ọḟ - Main link
“ ~‘     - code-page indexes = [32,126]
    r/   - reduce by inclusive range = [32,33,...,125,126]
      Ọ  - cast from ordinals to characters = list of printable characters
       ḟ - filter discard if in s

Vì thách thức này một nguyên tử mới mang lại tất cả các ký tự ASCII có thể in được ØṖ, đã được giới thiệu làm cho công việc sau đây có 3 byte:

ØṖḟ

Than , 18 15 10 8 byte

Ｆγ¿¬№θιι

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Chỉnh sửa: Đã lưu 3 byte bằng cách thay đổi các ký tự thay vì số nguyên. Đã lưu thêm 5 byte khi tôi phát hiện ra γbiến không có giấy tờ chứa các ký tự ASCII có thể in được. Đã lưu thêm 2 byte khi các đầu vào được xác định trước chỉ cố định @ ASCII ở chế độ dài dòng (câu trả lời vẫn còn hiệu lực, đó chỉ là liên kết thử trực tuyến không hoạt động vào thời điểm đó).

Toán học, 35 byte

20~CharacterRange~126~Complement~#&

Chức năng ẩn danh. Lấy danh sách các ký tự làm đầu vào và trả về danh sách các ký tự làm đầu ra.

Lua, 78 byte

s=io.read()for i=32,126 do c=string.char(i)io.write(s:find(c,1,1)and""or c)end

shortC , 33 byte

i;AOi=31;++i<'~';strchr(*@,i)?:Pi

Chuyển đổi được thực hiện trong chương trình này:

• A -> int main(int argc, char **argv) {
• O -> for(
• @ -> argv
• P -> putchar
• Tự động đóng ));}

Chương trình kết quả trông như sau:

i;int main(int argc, char **argv){for(i=31;++i<'~';strchr(*argv,i)?:putchar(i));}

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

Bình thường , 17 byte

Vr32 127I!}CNzpCN

Cách tiếp cận ngây thơ.

Giải trình:

Vr32 127I!}CNzpCN
Vr32 127             For N in [32, 127[
           CN        Get the ASCII character for the code N
        I!}  z       If it is in the input string...
              pCN    ...then print it

Kiểm tra nó trực tuyến!

Clojure, 60 hoặc 49 byte

#(apply str(sort(apply disj(set(map char(range 32 127)))%)))

Những "ứng dụng" này đang giết chết tôi: / Ồ, nếu trả về một danh sách là tốt thì cái này ngắn hơn một chút.

#(sort(apply disj(set(map char(range 32 127)))%))