シンプルな挑戦は、私の以前の人気に触発されたプリント目に見えないテキストと実際の見えないテキスト印刷挑戦をし、同じ長さの異なる文字列挑戦。

印刷可能な文字（0x20 to 0x7E）のみで構成される文字列を指定すると、文字列に存在しないすべての印刷可能な文字を印刷します。

入力

印刷可能なASCII文字のみで構成される文字列、または文字の配列

出力

任意の順序で入力文字列に存在しないすべての印刷可能なASCII文字。

テストケース

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は順不同なので、結果はランダムであることに注意してください。

試して

拡張：

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

オンラインでお試しください！

Shaggyとobarakonのおかげで4バイト節約

Haskell、32バイト

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

オンラインでお試しください！

セットの違いのための退屈なライブラリ関数：

Haskell、31バイト

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

MATL、5バイト

6Y2X~

オンラインでお試しください！

8バイトのゴルフをしてくれたLuis Mendoに感謝します！

説明：

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

対称セットの違いは、2つの入力セットのいずれか1つに存在するすべての要素を提供します。（両方ではありません）入力セットは常に2番目のセット（すべて印刷可能な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"

オンラインでお試しください！

ヘキサ範囲を生成し、16進ダンプを逆さまにしてcharにし、最初のパラメーターにある文字を削除します。

オクターブ、22 20バイト

@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
]

オーム、3バイト

α@─

オンラインでお試しください！

注：入力を文字列として入力することもできます（例）が、空の入力の場合は失敗します。

ルビー、23 18 17バイト

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

@sethrinのコメントに従って、ラムダ関数を使用します。

以前のバージョン：

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

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

APL、13バイト

⍞~⍨⎕UCS31+⍳95

わかりやすい：

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

R、50バイト

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

無名関数を返します。入力文字列を整数に変換し、印刷可能範囲と入力値との差を計算し、それらを文字列に変換して返します。

オンラインでお試しください！

PHP、53バイト

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

でパイプとして実行し-rます。

C＃、74 71バイト

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

74バイトの範囲を作成する古いバージョン：

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

05AB1E、5 4バイト

-1 エミグナのおかげ

žQsK

オンラインでお試しください！

ž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バイト

òiÎflax
òcH ¬ ~@"<

オンラインでお試しください！

Hexdump：

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

C（gcc）、75 72 70 68 50バイト

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

オンラインでお試しください！

ゼリー、8 バイト

本当に、8バイト？何か見逃したことを教えてください！

32r126Ọḟ

オンラインでお試しください！

どうやって？

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

代わりに

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

このチャレンジ以来、すべての印刷可能なASCII文字を生成する新しいアトムØṖが導入され、3バイトで次の作業が行われました。

ØṖḟ

炭、18 15 10 8バイト

Ｆγ¿¬№θιι

オンラインでお試しください！リンクは、コードの詳細バージョンです。編集：整数ではなく文字を範囲指定することで3バイトを保存しました。γ印刷可能なASCII文字を保持する文書化されていない変数を発見したとき、さらに5バイトを節約しました。詳細モードで@ASCIIのみの事前定義された入力を修正すると、さらに2バイトを節約しました（答えは今でも有効です。現時点では機能しなかったのは、オンラインリンクのみです）。

Mathematica、35バイト

20~CharacterRange~126~Complement~#&

匿名関数。入力として文字のリストを受け取り、出力として文字のリストを返します。

Lua、78バイト

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バイト

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

このプログラムで行われた変換：

• A -> int main(int argc, char **argv) {
• O -> for(
• @ -> argv
• P -> putchar
• 自動挿入クロージング ));}

結果のプログラムは次のようになります。

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

オンラインでお試しください！

Pyth、17バイト

Vr32 127I!}CNzpCN

素朴なアプローチ。

説明：

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

オンラインでテストしてください！

Clojure、60または49バイト

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

これらの「適用」は私を殺している：/ああ、もしリストを返すのが良いなら、これは少し短い。

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