Простое задание, вдохновленное популярностью моих предыдущих печатных невидимых текстов и печатных настоящих невидимых текстовых заданий , а также разной длины разных строковых испытаний

Получив строку, состоящую только из печатаемых символов ( 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 неупорядочены.

Проверь это

Expanded:

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

Попробуйте онлайн!

Спасибо Луису Мендо за игру в гольф на 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

Брахилог , 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, инвертирует шестнадцатеричный дамп в 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.

мозговой трах , 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 байта сохранены, начиная с символов вместо целых чисел. Сохранено еще 5 байтов, когда я обнаружил недокументированную γпеременную, которая содержит печатные символы ASCII. Сохранены еще 2 байта, когда @ ASCII-только фиксированные предопределенные входные данные в подробном режиме (ответ остается в силе в том виде, в каком он есть, это всего лишь ссылка "Попробуй онлайн", которая не работала бы в то время).

Mathematica, 35 байт

20~CharacterRange~126~Complement~#&

Анонимная функция. Принимает список символов в качестве ввода и возвращает список символов в качестве вывода.

Луа, 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)))%))