Thử thách

Cho một chuỗi không rỗng S có độ dài L bao gồm toàn bộ các ký tự ASCII in được, đầu ra một chuỗi có độ dài L mà bao gồm toàn bộ các ký tự ASCII in được, nhưng không phải là bằng S .

Đối với mục đích của thử thách này, một char ASCII có thể in được là một trong số giữa U + 0020 và U + 007E, bao gồm; nghĩa là, từ (không gian) đến ~(dấu ngã). Dòng mới và tab không được bao gồm.

Ví dụ, được đưa ra "abcde", một số đầu ra hợp lệ có thể là:

• "11111"
• "abcdf"
• "edcba"

Nhưng những điều này sẽ không hợp lệ:

• "abcde"
• "bcde"
• "abcde0"

Các trường hợp thử nghiệm

"asdf"
"1111"
"       "
"~~~~~"
"abcba"
"1"
" "
"~"
" ~"
"~ "
"  0"
"!@#$%^&*()ABCDEFGhijklmnop1234567890"
" !\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_`abcdefghijklmnopqrstuvwxyz{|}~"

Quy tắc

• Bạn có thể giả sử đầu vào bao gồm toàn bộ ký tự ASCII có thể in được.
• Bạn không được cho rằng đầu vào không chứa tất cả 95 ký tự có thể in được.
• Bạn có thể giả sử đầu vào chứa ít nhất một ký tự và dài ít hơn 256 ký tự.
• Đầu ra cũng phải bao gồm toàn bộ ký tự ASCII có thể in được. Ví dụ, bạn không thể xuất byte \ x7F cho đầu vào "~".
• Đầu ra phải khác với đầu vào có xác suất 1; nghĩa là, bạn có thể tạo các chuỗi ngẫu nhiên cho đến khi một chuỗi khác với đầu vào, nhưng bạn không thể chỉ xuất các ký tự ngẫu nhiên L và hy vọng nó khác.
• Các dòng mới không được phép trong đầu ra, nhưng bạn có thể xuất một dòng mới không được tính vào chuỗi.

Chấm điểm

Đây là mã golf , vì vậy mã ngắn nhất tính theo byte trong mỗi ngôn ngữ sẽ thắng.

Python 2 , 21 byte

lambda s:`s`[:len(s)]

Hãy thử trực tuyến!

Lấy biểu diễn chuỗi của chuỗi đầu vào và cắt ngắn nó theo chiều dài của chuỗi đầu vào. Đối với một chuỗi điển hình, điều này đặt nó trong 'dấu ngoặc kép và ngắt kết thúc:

abc  ->   'abc'  ->  'ab
     rep        chop

Lưu ý rằng chuỗi mới bắt đầu bằng '. Hãy cho thấy rằng đầu ra luôn khác với đầu vào.

• Nếu đầu vào không có ', thì đầu ra bắt đầu 'và đầu vào thì không.

• Nếu đầu vào chứa a 'và nhưng không ", thì Python sẽ sử dụng "cho dấu ngoặc kép bên ngoài, đưa ra một ký tự đầu tiên "không có trong chuỗi đầu vào.

• Nếu đầu vào có cả hai 'và ", thì dấu ngoặc kép bên ngoài 'và mỗi dấu 'được thoát là \'. Bất cứ nơi nào "xuất hiện đầu tiên trong đầu vào, nó sẽ dịch chuyển sang phải bởi đầu tiên 'trong đầu ra và bởi bất kỳ khả năng thoát nào. Điều này có nghĩa là nó không thể khớp với a "ở vị trí tương ứng trong đầu ra.

Cuối cùng, lưu ý rằng việc trích dẫn đầu vào và có thể thoát các ký tự luôn làm tăng số lượng ký tự, do đó việc cắt bớt đầu ra làm cho nó có cùng độ dài với đầu vào.

Lưu ý rằng điều quan trọng là Python thích nghi chuyển sang "trường hợp thứ hai. Nếu nó không làm như vậy, nó sẽ thất bại ở đầu vào ba ký tự '\'. Hoặc, bất kỳ tiền tố dài hơn của chuỗi chương trình sửa chữa bằng cách sử dụng '. Vì vậy, phương pháp này sẽ không hoạt động đối với hầu hết các ngôn ngữ.

05AB1E , 3 byte

ÇÈJ

Hãy thử trực tuyến!

Ç   # Convert to ASCII values
 È  # is even? (0 is 48 and 1 is 49 therefore 0 -> 1 and 1 -> 0)
  J # Join

JavaScript (ES6), 37 33 36 29 26 18 21 19 byte

s=>s.slice(1)+ +!+s

Hãy thử trực tuyến!

-4 byte nhờ vào ETH Productstions

-7 + -5 + -2 byte nhờ CalculatorFeline

-3 byte nhờ Rick Hitchcock

Di chuyển ký tự đầu tiên đến cuối và đặt nó thành 0 nếu đó là số và khác không, và 1 khác.

Giải trình

s=>                    anonymous function with parameter s
                 +s    convert s to a number
                !      not (converts to boolean; relevant: 0->true,1->false)
               +       convert !+s back to number (true->1, false->0)
   s.slice(1)+         prefix the rest of the string
              ␣        needed to avoid the +s combining

Bằng chứng

Bởi vì char thứ hai trở thành thứ nhất, char thứ ba trở thành thứ hai, v.v ... tất cả các ký tự sẽ phải giống hệt nhau. Char còn lại cuối cùng chỉ có thể là 0 hoặc 1, do đó char lặp lại sẽ phải là 0 hoặc 1. Nhưng bất kỳ chuỗi 0 nào cũng tạo ra 1 ở cuối và ngược lại; do đó, không thể tạo đầu vào bằng với đầu ra của nó. -Sản phẩm

Xem các chỉnh sửa cho các phiên bản cũ và giải thích.

f=
s=>s.slice(1)+ +!+s

console.log(f("000"))
console.log(f("111"))
console.log(f("001"))
console.log(f("110"))
console.log(f("~"))
console.log(f("111111111111111111111111111111111111111111111111111"))
console.log(f("Hello world!"))
console.log(f("23"))
console.log(f(" "))
console.log(f("1x"))

Thạch , 3 byte

~Ṿṁ

Đầu ra là một chuỗi các chữ số, dấu phẩy và ký tự dấu trừ, ký tự đầu tiên sẽ khác với ký tự đầu tiên của chuỗi đầu vào.

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

~Ṿṁ  Main link. Argument: s (string)

~    Map bitwise NOT over the characters c in s.
     This attempts to cast c to int and then apply bitwise NOT, mapping
     '0', ..., '9' to 0, ..., 9 (before ~), then -1, ..., -10 (after ~).
     For non-digits, the attempt fails, mapping c to 0.
 Ṿ   Uneval, yielding a comma-separated string of integers in [-10, ..., 0].
     The first character will be '-' if s starts with a digit and '0' if not.
  ṁ  Mold; truncate the result to the length of s.

Haskell , 20 byte

map$head.show.(<'M')

Hãy thử trực tuyến!

Chuyển đổi thành một chuỗi Fvà T. Điều quan trọng là các nhân vật Fvà Tchuyển đổi lẫn nhau. Điều này được thực hiện bằng cách kiểm tra xem ký tự có nhỏ hơn Mđể nhận Truehoặc Falsesau đó lấy ký tự đầu tiên của biểu diễn chuỗi.

Haskell , 23 byte

q '~'=' '
q _='~'
map q

Dùng thử trực tuyến

Thay thế mọi nhân vật bằng ~, ngoại trừ ~trở thành một không gian.

Khoảng trắng, 59 byte

Đại diện hữu hình

NSSNSSSTSSSSSNSNSSNSSNSTNTSTTTTSSTNTTSNSNSTSSSNSSSNTNSSNSNN

Những gì nó làm:

Đối với mỗi ký tự, nó đọc nó in một khoảng trắng, ngoại trừ khi đó là khoảng trắng, thì nó sẽ in một @.

Tháo gỡ:

loop:
    push 32
     dup
      dup
       dup
        ichr
       get
       sub
      jn not_32
     dup
      add
not_32:
     pchr
    jmp loop

MATL , 6 5 byte

Qo!V!

Hãy thử trực tuyến!

Giải trình

Q     % Implicitly input a string. Add 1 to each code point.
o     % Parity: 0 if odd, 1 if even. Note that '0' has ASCII code 48, so after
      % having added 1 it now gives 1. Similarly. '1' has ASCII code 49, so it
      % now gives 0. All other chars give 0 or 1. 
!V!   % Convert each number to the corresponding char. Implicitly display

Haskell , 19 byte

Một hàm ẩn danh nhận và trả về a String. Sử dụng như (map$(!!1).show.succ) "1111".

map$(!!1).show.succ

Hãy thử trực tuyến! (Sử dụng khai thác thử nghiệm của @ xnor.)

• Đối với mỗi ký tự trong chuỗi đầu vào, tăng ký tự, sau đó chuyển đổi nó thành định dạng bằng ký tự, sau đó lấy ký tự thứ hai của chữ, là ký tự chỉ sau 'trích dẫn bắt đầu .
• Đối với gần như tất cả các ký tự có thể in, điều này chỉ dẫn đến ký tự tăng dần. Các trường hợp ngoại lệ là &và ~, mà thay vào đó đưa ra \, bởi vì kế của họ 'và \DELđược thoát trong literals nhân vật.

05AB1E , 5 byte

žQDÀ‡

Hãy thử trực tuyến!

Giải trình

Thay thế mỗi char bằng char ascii có thể in tiếp theo, gói từ dấu ngã sang không gian.

žQ     # push a string of printable acsii chars (space to tilde)
  D    # duplicate
   À   # rotate left
    ‡  # translate

V , 7 byte

íÁ/a
g?

Hãy thử trực tuyến! hoặc Xác minh tất cả các trường hợp thử nghiệm!

Làm thế nào nó hoạt động?

Xem xét tất cả các chuỗi bao gồm ASCII có thể in. Mỗi chuỗi phải 1) Chứa các ký tự chữ cái hoặc 2) Không chứa các ký tự chữ cái.

Vì vậy, cách chương trình này hoạt động là trước tiên chuyển đổi một ký tự không phải là chữ cái thành 'a', sau đó thực hiện ROT13 trên chuỗi đầu vào.

í       " Substitute:
 Á      "   A non-alphabetic character ([^a-zA-Z])
  /     "   with
   a    "   the letter 'a'
g?      " Perform ROT13 on...
        "   (Implicit) the current line.

C (gcc) , 22 byte

f(char*s){*s=65+*s%2;}

Đưa một con trỏ chuỗi và điều chỉnh char đầu tiên tại chỗ.

Hãy thử trực tuyến!

C (gcc) , 20 byte

Câu trả lời của Saw Dennis, đã nghĩ đến một cải tiến thiết yếu 2 byte.

f(char*s){*s^=*s/3;}

Hãy thử trực tuyến! (Chân trang của Dennis.)

Giống như bản gốc, sửa đổi ký tự đầu tiên của chuỗi, nhưng xors nó với giá trị của nó chia cho 3 (số nhỏ nhất hoạt động. 2 thất bại trên ký tự đơn 'U'cho 127, không in được.)

Python 2 , 25 byte

lambda s:`s<'T'`[0]+s[1:]

Hãy thử trực tuyến!

Anders Kaseorg đã lưu một byte bằng cách trích xuất ký tự đầu tiên từ Truehoặc False.

Haskell, 30 26 byte

f ' '='~'
f c=pred c
map f

Hãy thử trực tuyến!

Thay thế mỗi char bằng tiền thân và không gian bằng dấu ngã.

Octave , 19 18 byte

@(s)['',(s<66)+65]

Hãy thử trực tuyến!

Giải trình:

@(s)                 % Anonymous function taking a string s as input
         s<66        % A boolean vector with `1` for all characters below ASCII-66.
        (s<66)+65    % Add 65 to this, so that all elements that are 32-65 are now 66.
                     % All other elements are 65 
    ['',         ]   % Implicitly convert the list of 65 and 66 to the letters A and B

CJam , 5 byte

l)iA%

Hãy thử trực tuyến!

Chuyển đổi ký tự cuối cùng thành điểm mã của nó và lấy modulo 10. Điều này rõ ràng khác với các ký tự không có chữ số ở vị trí cuối cùng. Nhưng các chữ số bắt đầu tại điểm mã 48, do đó, việc sử dụng các mod 10 đó sẽ dịch chuyển chúng sang trái theo chu kỳ và do đó ký tự cuối cùng luôn được thay đổi.

Võng mạc , 10 6 byte

Chơi golf 4 byte nhờ @Neil

T`p`~p

Hãy thử trực tuyến!

Điều này phiên âm thành ~, !đến , "đến !, ..., ~thành }.

Japt , 4 byte

®c v

Hãy thử trực tuyến!

Giải trình:

®c v
®    At each char:
 c     Convert to its ASCII value
   v   Return 1 if divisible by 2, otherwise return 0

Khối , 10 byte

..@|i?2%)O

Hãy thử trực tuyến! hoặc xem nó chạy!

Đối với mỗi char, in 1nếu char có điểm mã chẵn, 2nếu không; 1có một điểm mã lẻ và 2chẵn, vì vậy đầu ra sẽ không bao giờ bằng đầu vào.

Giải trình

Mã này tương ứng với mạng khối sau:

    . .
    @ |
i ? 2 % ) O . .
. . . . . . . .
    . .
    . .

IP (con trỏ lệnh) bắt đầu ở góc trên bên trái của mặt xa bên trái, hướng về phía đông. Nó tuân theo loạt hướng dẫn này:

i     Grab a char-code from STDIN and push it to the stack (-1 if there is no more input).
?     If the top item is negative, turn left and hit @ which ends the program.
      If it's positive (any printable ASCII char), turn right. The IP runs through a bunch
        of no-ops, then hits:
)     Increment the top item.
|     Mirror the IP's direction horizontally (turns it around).
)     Increment the top item again. The IP then wraps around again until it hits:
?     The top item is positive, so turn right.
2     Push a 2 to the stack.
%     Push the modulus of the top two items (0 for even char-code, 1 for odd).
)     Increment the result (now 1 for even char-code, 2 for odd).
O     Output as a number. The IP wraps back around to the i and the process starts again.

Alice , 9 byte

#oi/
t i@

Hãy thử trực tuyến!

Giải trình

Ý tưởng được lấy từ đệ trình CJam của Martin Ender. Ký tự đầu tiên được lấy làm điểm mã, giảm mod 10 và được chuyển đến cuối đầu ra. Vì chính xác một ký tự đã được thay đổi, việc hoán vị các ký tự không thể dẫn đến việc lấy lại cùng một chuỗi.

#   skip next command
o   (skipped)
i   push first byte onto stack
    STACK: [97]
/   reflect to SE, switch to ordinal mode (implicit reflect to SW)
i   push remaining input onto stack as string (implicit reflect to NW)
    STACK: [97, "sdf"]
o   output top of stack (implicit reflect to SW)
    STACK: [97]
t   implicitly convert code point to decimal string, and extract last character
    (implicit reflect to NE)
    STACK: ["9", "7"]
o   output this last digit (implicit reflect to SE)
i   push empty string, since there is no more input to take (implicit reflect to NE)
/   reflect to S, switch to cardinal mode
@   terminate

Đẩy , 1 byte

Q

Hãy thử trực tuyến!

Điều này chuyển đổi chuỗi đã cho thành danh sách mã ký tự ASCII, lập chỉ mục chúng (lập chỉ mục mô-đun) thành bảng chữ cái in hoa, sau đó in kết quả. Về cơ bản, mỗi nhân vật nđược ánh xạ tới chr(ord(n) % 26 + 65). Bạn có thể sử dụng chương trình này để xem cách ánh xạ hoạt động.

Đầu ra:

• Sẽ luôn có cùng độ dài với đầu vào, vì các ký tự được ánh xạ trực tiếp vào các ký tự mới.
• Sẽ luôn chỉ bao gồm các ký tự ASCII có thể in (vì nó chỉ chứa các chữ cái viết hoa)
• Sẽ luôn khác với đầu vào, vì không có ký tự đầu vào khả dĩ nnào chr(ord(n) % 26 + 65) == n, vì điều này là đúng, phải có một số nguyên xsao 26x = 65cho không có giải pháp.

1 byte

q

Hãy thử trực tuyến!

Câu trả lời này hoàn toàn giống nhau, ngoại trừ việc nó ánh xạ tới các ký tự chữ cái viết thường thay vì các ký tự chữ cái in hoa . Điều này vẫn còn hiệu lực vì không có ký tự đầu vào nào có thể nnhư vậy chr(ord(n) % 26 + 97) == n.

Brain-Flak , 53 byte

Bao gồm +1 cho -c

([(((()()()()){}){}){}()]({}())){{}(<({}[()()])>)}{}

Điều này sẽ làm giảm ký tự đầu tiên trừ khi nó là khoảng trắng, trong trường hợp đó, nó sẽ tăng ký tự đầu tiên.

Hãy thử trực tuyến!

([(((()()()()){}){}){}()]      )                     # Push: input + 1 != 33 on top of...
                         ({}())                      #    input + 1
                                {{}(<          >)}{} # If (input + 1 != 33)
                                     ({}[()()])      #   Push: (input + 1) - 2

Thạch , 4 byte

^1Ṿ€

Xuất ra một chuỗi chữ số. Không có ký tự đầu ra sẽ bằng ký tự đầu vào tương ứng.

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

^1Ṿ€  Main link. Argument: s (string)

^1    XOR each character c in with 1.
      This attempts to cast c to int, mapping '0', ..., '9' to 0, ..., 9.
      For non-digits, the attempt fails, mapping c to 0.
      After XORing with 1, we get 1, 0, 3, 2, 5, 4, 7, 6, 9, 8 for '0', ..., '9', 
      and 1 for all non-digits.
  Ṿ€  Uneval each; mapping 0, ..., 9 to '0', ..., '9'. This yields a character
      array, which is Jelly's string type.
      Note that no character is mapped to itself.

Bash + coreutils, 13

tr \ -~ ~\ -}

Chuyển các ký tự thành ~(0x20 - 0x7e) với ~, sau đó thành }(0x7e, 0x20 - 0x7d).

Hãy thử trực tuyến .

PHP, 30 27

<?=strtr($a=$argn,$a,$a^1);

Thay đổi mỗi char bằng với char đầu tiên với char có ít bit đáng kể nhất được lật.

Ruby , 20 + 1 = 21 byte

Sử dụng -pcờ.

sub(/./){$&=~/1/||1}

Hãy thử trực tuyến!

Thay thế ký tự đầu tiên trong đầu vào bằng 0nếu nó là 1, hoặc 1nếu không.

Brachylog , 9 byte

{¬Ṣ|∧Ịh}ᵐ

Hãy thử trực tuyến!

Giải trình

Điều này thay thế tất cả các ký tự bằng một khoảng trắng, ngoại trừ khoảng trắng mà nó thay thế bằng "0".

{      }ᵐ      Map on each char of the Input
 ¬Ṣ              The Input char is not " ", and the Output char is " "
   |             Or
    ∧Ịh          The Output char is "0"

PHP <7.1, 31 byte

for(;~$c=$argn[$i++];)echo$c^1;

Hãy thử trực tuyến!

Golf, 3 byte

Hãy thử trực tuyến!

)5%

Lấy giá trị ASCII của ký tự cuối modulo 5 và thay thế ký tự cuối cùng bằng kết quả. Điều này rõ ràng hoạt động đối với các ký tự không có chữ số, nhưng nếu ký tự cuối cùng là một chữ số, nó cũng thay đổi ("0" mod 5 = 3, "1" mod 5 = 4, v.v.).

Điều này cũng sẽ làm việc với 7 hoặc 9 trong khi vẫn giữ nguyên chiều dài.

Ngoài ra, yay! Tôi có một giải pháp Golfscript tốt như các giải pháp tốt nhất ở đây!

Vui nhộn , 26 22 byte

s=>s::gsub("."a=>1&~a)

Tính toán ~acho các chữ số không trả về NaN. Sau đó 1&giới hạn ở mức 0 hoặc 1, đối với chữ số 0, điều này sẽ là 1, và đối với 1điều này sẽ là 0. Vì vậy, chuỗi này luôn luôn là duy nhất.

Hãy thử trực tuyến!