Простий виклик, натхненний популярністю мого попереднього невидимого тексту для друку та надрукування справжніх невидимих ​​текстових викликів, а також однаковий рядковий виклик однакової довжини .

З огляду на рядок, що складається лише з символів для друку ( 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}

Зауважте, що результат є випадковим, оскільки множина 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 байти завдяки Шаггі та Обаракону

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>

Bash ,47 43 40 байт

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

Спробуйте в Інтернеті!

Створює діапазон гекса, інвертує шістнадцятковий дамп, щоб закреслити вилучення символів, присутніх у першому параметрі.

Октава, 22 20 байт

Завдяки @Luis Мендо зберегло 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 тільки в фіксованих заздалегідь введених введеннях у докладному режимі (відповідь все ще діє, як це є, лише пробне онлайн-посилання, яке б не працювало на той час).

Математика, 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)))%))