ความท้าทายง่ายแรงบันดาลใจจากความนิยมของฉันก่อนหน้าข้อความที่มองไม่เห็นการพิมพ์และการพิมพ์ข้อความที่มองไม่เห็นจริงความท้าทายและความยาวสตริงที่แตกต่างกันความท้าทาย

รับสตริงที่ประกอบด้วยอักขระที่พิมพ์ได้เท่านั้น ( 0x20 to 0x7E) พิมพ์อักขระที่พิมพ์ได้ทุกตัวที่ไม่มีอยู่ในสตริง

อินพุต

สตริงหรืออาร์เรย์ของอักขระประกอบด้วยอักขระ ASCII ที่พิมพ์ได้เท่านั้น

เอาท์พุต

อักขระ ASCII ที่พิมพ์ได้ทุกตัวไม่มีอยู่ในอินพุตสตริงในลำดับใด ๆ

Testcases

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

เกณฑ์การให้คะแนน

นี่คือโค้ดกอล์ฟที่มีจำนวนน้อยที่สุดในแต่ละภาษาที่ชนะ

GS2 , 2 ไบต์

ç7

ลองออนไลน์!

มันทำงานอย่างไร

    (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 ไบต์

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

โปรดทราบว่าผลลัพธ์เป็นแบบสุ่มเนื่องจากSet s ไม่ได้เรียงลำดับ

ทดสอบมัน

ขยาย:

{
  [~]        # 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
}

นอกจากนี้ยังมีรุ่น ASCII ∖ (-)ด้วย แต่จะต้องมีช่องว่างก่อนจึงจะไม่แยกวิเคราะห์เป็นการเรียกรูทีนย่อย

Python 3.5 , 39 ไบต์

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

ลองออนไลน์!
เปลี่ยนอินพุตเป็นชุดและลบออกจากชุดที่มีอักขระ ascii ทั้งหมด

Japt , 14 ไบต์

Ho#_dÃf@bX ¥J

ลองออนไลน์!

บันทึกแล้ว 4 ไบต์ขอบคุณ Shaggy และ obarakon

Haskell, 32 ไบต์

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

ลองออนไลน์!

ฟังก์ชั่นห้องสมุดที่น่าเบื่อสำหรับชุดที่แตกต่าง:

Haskell, 31 ไบต์

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

MATL , 5 ไบต์

6Y2X~

ลองออนไลน์!

ขอบคุณ Luis Mendo สำหรับ เล่นกอล์ฟ 8 ไบต์!

คำอธิบาย:

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

ความแตกต่างของชุดสมมาตรจะให้ทุกองค์ประกอบที่มีอยู่ในหนึ่งในสองชุดอินพุต (แต่ไม่ใช่ทั้งคู่) นี่จะให้คำตอบที่ถูกต้องเสมอเนื่องจากชุดอินพุตจะเป็นชุดย่อยของชุดที่สองเสมอ (ASCII ที่พิมพ์ได้ทั้งหมด)

รุ่นเดิม:

32:126tGom~)c

คำอธิบาย:

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 ไบต์

ẹ;Ṭ↔x

ลองออนไลน์!

คำอธิบาย

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

JavaScript (ES6), 74 ไบต์

ฉันแน่ใจว่ามีวิธีที่สั้นกว่านี้!

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

ลองมัน

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>

ทุบตี ,47 43 40 ไบต์

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

ลองออนไลน์!

สร้างช่วง hexa กลับค่าการถ่ายโอนข้อมูลเลขฐานสิบหกเพื่อลบอักขระที่อยู่ในพารามิเตอร์แรก

อ็อกเทฟ22 22ไบต์

ขอบคุณ @Luis Mendo บันทึก 2 ไบต์

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

ลองออนไลน์!

คำตอบอื่น ๆ :

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

ลองออนไลน์!

PHP, 42 ไบต์

อินพุตเป็นอาร์เรย์

เอาต์พุตเป็นสตริง

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

ลองออนไลน์!

PHP, 53 ไบต์

อินพุตเป็นสตริง

เอาต์พุตเป็นสตริง

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

แทนที่<?=joinด้วยprint_rสำหรับผลลัพธ์เป็นอาร์เรย์

ลองออนไลน์!

CJam , 8 ไบต์

'␡,32>q^

␡ตัวอักษรลบอยู่ตรงไหน

ลองออนไลน์!

'␡,       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 ไบต์

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

perl -peทำงานด้วย

brainfuck , 120 ไบต์

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

ลองออนไลน์!

ห่อ:

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

อธิบาย:

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

Ohm, 3 bytes

α@─

Try it online!

Note: you can also enter your input as a string (example), but it fails for the empty input case.

Ruby, 23 18 17 bytes

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

Uses a lambda function as per @sethrin's comments.

Previous versions:

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

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

APL, 13 bytes

⍞~⍨⎕UCS31+⍳95

Straightforward:

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

R, 50 bytes

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

returns an anonymous function. Converts the input string to integers, computes the set difference between the printable range and the input values, and then converts them back to a string and returns it.

Try it online!

PHP, 53 bytes

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

Run as pipe with -r.

C#, 74 71 bytes

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

Old version with creating a range for 74 bytes:

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

05AB1E, 5 4 bytes

-1 thanks to Emigna

žQsK

Try it online!

ž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 bytes

òiÎflax
òcH ¬ ~@"<

Try it online!

Hexdump:

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

C (gcc), 75 72 70 68 50 bytes

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

Try it online!

Jelly, 8 bytes

Really, 8 bytes? Please, tell me I missed something!

32r126Ọḟ

Try it online!

How?

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

Alternatively

“ ~‘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

Since this challenge a new atom which yields all printable ASCII characters, ØṖ, has been introduced making the following work for 3 bytes:

ØṖḟ

Charcoal, 18 15 10 8 bytes

Ｆγ¿¬№θιι

Try it online! Link is to verbose version of code. Edit: Saved 3 bytes by ranging over characters instead of integers. Saved a further 5 bytes when I discovered the undocumented γ variable which holds the printable ASCII characters. Saved a further 2 bytes when @ASCII-only fixed predefined inputs in verbose mode (the answer is still valid as it stands, it's only the try it online link that wouldn't have worked at the time).

Mathematica, 35 bytes

20~CharacterRange~126~Complement~#&

Anonymous function. Takes a list of characters as input and returns a list of characters as output.

Lua, 78 bytes

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 bytes

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

Conversions made in this program:

• A -> int main(int argc, char **argv) {
• O -> for(
• @ -> argv
• P -> putchar
• Auto-inserted closing ));}

The resulting program looks like:

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

Try it online!

Pyth, 17 bytes

Vr32 127I!}CNzpCN

The naive approach.

Explanation:

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

Test it online!

Clojure, 60 or 49 bytes

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

These "apply"s are killing me :/ Oh, if returning a list is fine then this is a bit shorter.

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