Tantangan sederhana terinspirasi oleh popularitas teks tak terlihat cetak saya sebelumnya dan mencetak tantangan teks nyata tak terlihat , dan tantangan string berbeda panjang yang sama .

Diberikan string yang hanya terdiri dari karakter yang dapat dicetak ( 0x20 to 0x7E), cetak setiap karakter yang dapat dicetak yang tidak ada dalam string.

Memasukkan

String, atau array karakter, terdiri dari hanya karakter ASCII yang dapat dicetak

Keluaran

Setiap karakter ASCII yang dapat dicetak tidak ada dalam string input, dalam urutan apa pun.

Testcases

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

Mencetak gol

Ini adalah kode-golf sehingga byte paling sedikit di setiap bahasa menang

GS2 , 2 byte

ç7

Cobalah online!

Bagaimana itu bekerja

    (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}

Perhatikan bahwa hasilnya acak karena Set s tidak berurutan.

Menguji

Diperluas:

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

Ada juga versi ASCII ∖ (-), tetapi akan membutuhkan ruang sebelum itu agar tidak diuraikan sebagai panggilan subrutin.

Python 3.5 , 39 byte

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

Cobalah online!
Mengubah input menjadi satu set, dan menghapusnya dari set yang berisi semua karakter ascii

Japt , 14 byte

Ho#_dÃf@bX ¥J

Cobalah online!

Disimpan 4 byte berkat Shaggy dan obarakon

Haskell, 32 byte

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

Cobalah online!

Fungsi perpustakaan yang membosankan untuk perbedaan set:

Haskell, 31 byte

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

MATL , 5 byte

6Y2X~

Cobalah online!

Terima kasih untuk Luis Mendo bermain golf dengan 8 byte!

Penjelasan:

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

Perbedaan set simetris akan memberikan setiap elemen yang ada di persis salah satu dari dua set input. (tetapi tidak keduanya) Ini akan selalu memberikan jawaban yang benar, karena set input akan selalu menjadi subset dari set kedua (semua ASCII yang dapat dicetak).

Versi asli:

32:126tGom~)c

Penjelasan:

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

Cobalah online!

Penjelasan

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

JavaScript (ES6), 74 byte

Saya yakin ada cara yang lebih singkat untuk melakukan ini!

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

Cobalah

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>

Pesta ,47 43 40 byte

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

Cobalah online!

Menghasilkan kisaran hexa, membalikkan hex dump untuk menghasilkan karakter yang ada di parameter pertama.

Oktaf, 22 20 byte

Terima kasih kepada @Luis Mendo yang menyimpan 2 byte.

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

Cobalah online!

Jawaban lain:

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

Cobalah online!

PHP, 42 Bytes

Input sebagai array

Keluaran sebagai string

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

Cobalah online!

PHP, 53 Bytes

Input sebagai string

Keluaran sebagai string

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

ganti <?=joindengan print_runtuk output sebagai array

Cobalah online!

CJam , 8 byte

'␡,32>q^

Di mana ␡karakter hapus literal.

Cobalah online!

'␡,       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

Jalankan dengan perl -pe.

brainfuck , 120 byte

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

Cobalah online!

Terbungkus:

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

Dijelaskan:

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

α@─

Cobalah online!

Catatan: Anda juga dapat memasukkan input sebagai string ( contoh ), tetapi gagal untuk case input kosong.

Ruby, 23 18 17 byte

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

Menggunakan fungsi lambda sesuai komentar @ sethrin.

Versi sebelumnya:

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

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

APL, 13 byte

⍞~⍨⎕UCS31+⍳95

Mudah:

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

mengembalikan fungsi anonim. Mengubah string input menjadi bilangan bulat, menghitung perbedaan yang ditetapkan antara rentang yang dapat dicetak dan nilai input, dan kemudian mengubahnya kembali menjadi string dan mengembalikannya.

Cobalah online!

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

Jalankan sebagai pipa dengan -r.

C #, 74 71 byte

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

Versi lama dengan membuat kisaran untuk 74 byte:

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

05AB1E , 5 4 byte

-1 terima kasih kepada Emigna

žQsK

Cobalah 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 byte

òiÎflax
òcH ¬ ~@"<

Cobalah 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 byte

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

Cobalah online!

Jelly , 8 byte

Benarkah, 8 byte? Tolong, katakan padaku aku melewatkan sesuatu!

32r126Ọḟ

Cobalah online!

Bagaimana?

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

kalau tidak

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

Karena tantangan ini, sebuah atom baru yang menghasilkan semua karakter ASCII yang dapat dicetak ØṖ,, telah diperkenalkan membuat karya berikut ini untuk 3 byte:

ØṖḟ

Arang , 18 15 10 8 byte

Ｆγ¿¬№θιι

Cobalah online! Tautan adalah untuk mengucapkan versi kode. Sunting: Disimpan 3 byte dengan rentang karakter alih-alih bilangan bulat. Menyimpan 5 byte lebih lanjut ketika saya menemukan γvariabel tidak berdokumen yang menampung karakter ASCII yang dapat dicetak. Menyimpan 2 byte lebih lanjut ketika @ ASCII-satunya input tetap ditetapkan sebelumnya dalam mode verbose (jawabannya masih berlaku seperti itu, itu hanya link online coba yang tidak akan bekerja pada saat itu).

Mathematica, 35 byte

20~CharacterRange~126~Complement~#&

Fungsi anonim. Mengambil daftar karakter sebagai input dan mengembalikan daftar karakter sebagai output.

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

Konversi yang dilakukan dalam program ini:

• A -> int main(int argc, char **argv) {
• O -> for(
• @ -> argv
• P -> putchar
• Penutupan yang dimasukkan secara otomatis ));}

Program yang dihasilkan terlihat seperti:

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

Cobalah online!

Pyth , 17 byte

Vr32 127I!}CNzpCN

Pendekatan naif.

Penjelasan:

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

Uji secara online!

Clojure, 60 atau 49 byte

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

Ini "berlaku" membunuh saya: / Oh, jika mengembalikan daftar baik-baik saja maka ini sedikit lebih pendek.

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