Nhiệm vụ của bạn là viết một chương trình xuất ra chuỗi chính xácProgramming Puzzles (theo dõi dòng mới tùy chọn), nhưng khi tất cả các khoảng trắng, tab và dòng mới được loại bỏ, nó sẽ xuất ra Code Golf(theo dõi dòng mới tùy chọn.)

Số byte của bạn là số đếm của chương trình đầu tiên, vẫn còn khoảng trống.

Ghi chú

• Các không gian trong Code Golf và Programming Puzzles sẽ được loại bỏ như là một phần của việc loại bỏ, do đó hãy lên kế hoạch cho phù hợp.

• Trong các bảng mã trong đó 0x09, 0x0A và 0x20 không có các tab, dòng mới hoặc dấu cách tương ứng, các ký tự đó sẽ bị xóa.

• Nếu mã của bạn là

  42  $@ rw$
  @42
  

  sau đó phải xuất ra Programming Puzzles. Ngoài ra, trong cùng một ngôn ngữ,

  42$@rw$@42
  

  phải đầu ra Code Golf.

Đây là mã golf , vì vậy mã ngắn nhất tính bằng byte sẽ thắng! Chúc may mắn!

Python 2 , 50 byte

print["Code\40Golf","Programming Puzzles"][" ">""]

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

Với tất cả các không gian được loại bỏ:

print["Code\40Golf","ProgrammingPuzzles"]["">""]

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

Cảm ơn Stephen S cho 3 byte và Erik Outgolfer cho 1

Python 2 , 48 47 byte

^{-1 byte nhờ Erik the Outgolfer}

print' 'and'Programming Puzzles'or'Code\40Golf'

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

print''and'ProgrammingPuzzles'or'Code\40Golf'

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

05AB1E , 15 byte

”ƒËŠˆ”" "v”–±ÇÀ

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

Giải trình

”ƒËŠˆ”           # push "Code Golf"
      " "v       # for each character in the string " " do
          ”–±ÇÀ  # push "Programming Puzzles"
                 # implicitly output top of stack

C, 64 62 53 52 byte

f(){puts(*" "?"Programming Puzzles":"Code\40Golf");}

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

Sử dụng thực tế là chuỗi C kết thúc bằng ký tự null

CJam , 38 byte

" ""Programming Puzzles""Dpef!Hpmg":(?

Hãy thử trực tuyến! hoặc bị xóa khoảng trắng

Giải trình

" "                    e# Push this string.
"Programming Puzzles"  e# Push "Programming Puzzles".
"Dpef!Hpmg":(          e# Push "Dpef!Hpmg" and decrement each char, giving "Code Golf".
?                      e# If the first string is true (non-empty) return the second string,
                       e#   else return the third.

Không gian có trong chương trình hay không xác định xem chuỗi đầu tiên là trung thực hay giả.

Thạch , 18 byte

“½ċṭ6Ỵ»ḷ
“Ñ1ɦ+£)G»

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

Giải trình

Trong chương trình như đã viết, dòng đầu tiên là một hàm trợ giúp không bao giờ chạy. Dòng thứ hai (dòng cuối cùng trong chương trình) là chương trình chính và là biểu diễn nén của chuỗi "Programming Puzzles"(sau đó được in ngầm).

Nếu bạn loại bỏ dòng mới, toàn bộ sẽ trở thành một chương trình lớn. “½ċṭ6Ỵ»là biểu diễn nén của chuỗi "Code Golf". ḷđánh giá nhưng bỏ qua đối số tay phải của nó, để lại giá trị như trước khi nó chạy; nó có thể được sử dụng để đánh giá các chức năng cho các tác dụng phụ của chúng (điều mà tôi đã làm trước đây), nhưng nó cũng có thể được sử dụng, như ở đây, để nhận xét hiệu quả mã.

Thật thú vị, logic thực tế ở đây ngắn hơn mục 05AB1E, nhưng toàn bộ mã xuất hiện lâu hơn vì trình nén chuỗi không tốt trong việc nén các chuỗi cụ thể này.

Thạch , 17 byte

“Ñ1ɦ+£)G“½ċṭ6 Ỵ»Ṃ

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

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

Như trong câu trả lời Jelly khác, Ñ1ɦ+£)Gvà ½ċṭ6Ỵmã hóa chuỗi Lập trình Câu đố và Code Golf . “bắt đầu một chuỗi bằng chữ và tách một chuỗi thành một chuỗi khác, trong khi »chọn kiểu chữ (nén dựa trên từ điển), do đó, điều này mang lại

["Programming Puzzles", "Code Golf"]

Ṃsau đó lấy tối thiểu, mang lại Code Golf .

Tuy nhiên, bằng cách thêm một khoảng trắng giữa ½ċṭ6và Ỵ, chúng ta có được một chuỗi thứ hai hoàn toàn khác và theo nghĩa đen là

["Programming Puzzles", "caird coinheringaahing"]

Vì caird coinheringaahing lớn hơn về mặt từ vựng so với Câu đố lập trình , nên Ṃchọn chuỗi đầu tiên thay thế.

Javascript, 46 43 42 byte

x=>" "?"Programming Puzzles":"Code\40Golf"

console.log((x=>" "?"Programming Puzzles":"Code\40Golf")())
console.log((x=>""?"ProgrammingPuzzles":"Code\40Golf")())

Ngôn ngữ Wolfram, 62 byte

"Programming Puzzles"[ToExpression@"\"Code\\.20Golf\""][[0 1]]

Không gian trong [[0 1]]là phép nhân ngầm, vì vậy điều này tương đương với [[0]]. Không có một không gian, 01chỉ là 1. Phần 0 và 1 của biểu thức này là các chuỗi chúng ta muốn.

Một giải pháp khác về tính hợp lệ đáng ngờ (44 byte, 2 được lưu bởi Kelly Lowder):

"Programming Puzzles"["Code\.20Golf"][[0 1]]

Không gian \.20được thay thế bằng một khoảng trắng ngay lập tức khi được nhập vào môi trường Mathicala, vì vậy không rõ liệu nó có bị xóa cùng với các không gian khác không

Excel - 56 byte

=IF(""=" ","Code"&CHAR(32)&"Golf","Programming Puzzles")

Rất giống với hầu hết các câu trả lời khác ... không có gì lạ mắt ở đây.

Haskell, 48 byte

a _="Programming Puzzles";a4="Code\32Golf";f=a 4
a_="ProgrammingPuzzles";a4="Code\32Golf";f=a4

Xác định hàm ftrả về chuỗi tương ứng.

Để tham khảo, phiên bản cũ là:

Haskell, 49/47 byte

f""="Code\32Golf";f(_)="Programming Puzzles";f" "

với không gian bị xóa

f""="Code\32Golf";f(_)="ProgrammingPuzzles";f""

Hai mẫu đơn giản phù hợp. (_)phù hợp với tất cả các mẫu. Bạn có thể cải thiện phiên bản không có khoảng trắng bằng một byte bằng cách xác định mẫu thứ hai là f" "=/ f""=, nhưng điều này đưa ra cảnh báo "Kết hợp mẫu là dự phòng".

Giải pháp thay thế có cùng số byte:

last$"Code\32Golf":["Programming Puzzles"|" ">""]
last$"Code\32Golf":["ProgrammingPuzzles"|"">""]

Ồ , 33 32 byte

Sử dụng mã hóa CP437.

▀Bn¬i≈╣Ü╝Rb╡°╧S½uÇ▀
▀4>~H├MS░l╬δ

Hãy thử trực tuyến! hoặc thử mà không có khoảng trắng

Giải trình

Với khoảng trắng:

▀Bn¬i≈╣Ü╝Rb╡°╧S½uÇ▀    Main wire

▀Bn¬i≈╣Ü╝Rb╡°╧S½uÇ▀    Push "Programming Puzzles" (compressed string)
                       Implicitly output the top stack element


▀4>~H├MS░l╬δ           Helper wire (never called)

Không có khoảng trắng:

▀Bn¬i≈╣Ü╝Rb╡°╧S½uÇ▀▀4>~H├MS░l╬δ    Main wire

▀Bn¬i≈╣Ü╝Rb╡°╧S½uÇ▀                Push "Programming Puzzles" (compressed string)
                   ▀4>~H├MS░l╬δ    Push "Code Golf" (compressed string)
                                   Implicitly output top stack element

Japt , 29 byte

Với không gian:

`Co¸{S}Golf`r `PžgŸmÚÁ Puzz¤s

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

Không có không gian:

`Co¸{S}Golf`r`PžgŸmÚÁPuzz¤s

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

Điều này lợi dụng thực tế là trong Japt, một không gian đóng một cuộc gọi phương thức. Với khoảng trắng, mã này tương đương với mã JavaScript này:

("Code"+(S)+"Golf").r(),"Programming Puzzles"

Điều này được đánh giá là JavaScript và kết quả được gửi đến STDOUT. Vì biểu thức cuối cùng là"Programming Puzzles" , chuỗi đó được in.

Không có khoảng trắng, mã gần tương đương với:

("Code"+(S)+"Golf").r("ProgrammingPuzzles")

(Nếu bây giờ bạn chưa tìm ra nó, thì Sbiến là một khoảng trắng.) .r()Phương thức trên một chuỗi, nếu được cung cấp một đối số, sẽ xóa tất cả các phiên bản của đối số đó khỏi chuỗi. Vì "Code Golf"không chứa "ProgrammingPuzzles", nó trả về "Code Golf"không thay đổi, sau đó được gửi đến STDOUT.

Brachylog , 44 byte

" "Ṣ∧"Programming Puzzles"w|"Code"wṢw"Golf"w

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

Giải trình

" "Ṣ                                           If " " = Ṣ (which is itself " ")
    ∧"Programming Puzzles"w                    Write "Programming Puzzles"
                           |                   Else
                            "Code"w            Write "Code"
                                   Ṣw          Write " "
                                     "Golf"w   Write "Golf"

Alice , 44 byte

/"floG!"t"edoC"#
 /"selzzuP gnimmargorP"d&o@

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

Không có khoảng trắng:

/"floG!"t"edoC"#/"selzzuPgnimmargorP"d&o@

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

Giải trình

Trong chương trình đầu tiên, hai gương /chuyển hướng con trỏ lệnh lên dòng thứ hai. "selzzuP gnimmargorP"đẩy các điểm mã cần thiết theo thứ tự hoàn nguyên, dđẩy độ sâu ngăn xếp và &oin nhiều byte. @chấm dứt chương trình.

Không có khoảng trắng, chương trình chỉ nằm trên một dòng. Trong trường hợp đó, con trỏ lệnh không thể di chuyển trong chế độ Thông thường, do đó, /hiệu quả trở thành không hoạt động (về mặt kỹ thuật, IP đơn giản không di chuyển trong một bước, cùng /được thực hiện lại và IP phản ánh trở lại chế độ Cardinal ). Vì vậy, nếu chúng ta bỏ những thứ đó khỏi chương trình, nó sẽ trông như thế này:

"floG!"t"edoC"#"selzzuPgnimmargorP"d&o@

Để bao gồm không gian trong Code Golf, chúng tôi sử dụng dấu chấm than thay thế và giảm nó với t. Sau khi chúng tôi có tất cả các điểm mã trên ngăn xếp, #bỏ qua lệnh tiếp theo, đó là toàn bộ chuỗi thứ hai. d&osau đó in lại ngăn xếp và @kết thúc chương trình.

PHP, 44 byte

điều hành ternary

<?=" "?"Programming Puzzles":"Code\x20Golf";

PHP, 51 byte

bình luận

<?=/** /"Code\x20Golf"/*/"Programming Puzzles"/**/;

PHP, 57 byte

chuyển mảng

<?=["Code\x20Golf","Programming Puzzles"][(ord("
")/10)];

Lisp chung (SBCL), 52 byte

(format`,t"~[Programming Puzzles~;Code~@TGolf~]"0 1)

Bản in Programming Puzzles

(format`,t"~[ProgrammingPuzzles~;Code~@TGolf~]"01)

Bản in Code Golf

Ung dung:

(format t "~[Programming Puzzles~;Code Golf~]" 0 1)

Giải thích:

Bí quyết cơ bản đến từ cách #'format hoạt động trong Common Lisp.

Trong CL, hầu hết các khoảng trắng có thể được bỏ qua miễn là không có sự mơ hồ về nơi mã thông báo bắt đầu hoặc kết thúc. Thủ thuật đầu tiên là phân tách các biểu tượng formatvà t. Tôi đã phải kết thúc rõ ràng formatbiểu tượng mà không thay đổi cách tgiải thích. May mắn thay, `trong CL kết thúc mã thông báo trước đó trước khi nó được xử lý và ,hủy bỏ hiệu ứng của` (` được sử dụng để thực hiện tạo khuôn mẫu, trong đó biểu thức tiếp theo sau nó được "trích dẫn", nhưng bất kỳ biểu thức con nào có tiền tố, đều được đánh giá và kết quả được bao gồm trong khuôn mẫu, vì vậy `, gần như không có).

Đối số thứ ba formatlà chuỗi mẫu.formattương tự như printf trong C, nhưng có các chỉ thị định dạng mạnh hơn nhiều và sử dụng ~ để chỉ ra chúng thay vì%. ~ [và ~] cho phép bạn chọn giữa nhiều tùy chọn để in, với ~; tách chúng ra Một đối số bổ sung được cung cấp cho định dạng - chỉ mục số mà bạn muốn in. Để đảm bảo rằng "" trong Code Golf tồn tại, tôi đã sử dụng chỉ thị lập bảng ~ T, được sử dụng để chèn khoảng trắng, thường để căn chỉnh văn bản vào các cột. ~ @ T là một biến thể chỉ chèn một số khoảng trắng nhất định, mặc định là 1.

Cuối cùng, có hai đối số định dạng- 0 và 1. Trước khi xóa khoảng trắng, 0 được sử dụng bởi ~ [~; ~] để chọn "Câu đố lập trình" và bỏ đối số định dạng bổ sung (1) không chắc chắn làm thế nào tiêu chuẩn bỏ các đối số định dạng bổ sung, nhưng điều này hoạt động trên Steel Bank Common Lisp). Sau khi khoảng trắng được xóa, chỉ có một đối số (01) chọn "Code Golf" thay thế.

Bình thường, 37 byte

?" ""Programming Puzzles""Code\40Golf

Hãy thử nó ở đây.

?"""ProgrammingPuzzles""Code\40Golf

Hãy thử nó ở đây.

C # 88 81 70 63 byte

Func<string>@a=()=>" "==""?"Code\x20Golf":"Programming Puzzles";

Với khoảng trắng bị tước:

Func<string>@a=()=>""==""?"Code\x20Golf":"ProgrammingPuzzles";

Cảm ơn BrianJ đã chỉ cho tôi cách không có khoảng trắng giữa kiểu trả về phương thức và tên phương thức, PeterTaylor để lưu 7 18 byte và Patrick Huizinga để lưu 7 byte.

Cùng một phương pháp như mọi người khác thực sự, kỹ thuật này có thể được coi là vô hiệu vì phương pháp này không xác định kiểu trả về cho phương pháp này, nhưng có có được khoảng trắng giữa các kiểu trả về và tên phương pháp.

Java 8, 74 50 48 byte

()=>" "==""?"Code\040Golf":"Programming Puzzles"

Japt , 32 byte

" "?`PžgŸmÚÁ Puzz¤s`:`Co¸{S}Golf

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

PowerShell , 56 byte

('Programming Puzzles',('Code'+[char]32+'Golf'))[!(' ')]

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

Khá cơ bản tôi sẽ nói, nhưng nó hoàn thành công việc

R, 50 byte

Tôi nghĩ rằng điều này giống như câu trả lời Javascript này và về cơ bản là cùng một ý tưởng với tất cả những người khác.

`if`(' '=='','Code\x20Golf','Programming Puzzles')

> <> , 42 byte

Với khoảng trắng

\"floG"48*"edoC"
/>o<"Programming Puzzles"

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

Không có khoảng trắng

\"floG"48*"edoC"/>o<"ProgrammingPuzzles"

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

đc , 50

[pq]sm[Programming Puzzles]dZ19=m[Code]n32P[Golf]p

Dùng thử trực tuyến .

[ ]định nghĩa một chuỗi - Zđo chiều dài của nó. Nếu độ dài là 19 thì nó chứa một khoảng trắng và macro được lưu trong thanh ghi m được gọi, nó sẽ in Programming Puzzlesvà thoát. Nếu không thì Code Golfđược in.

> <> , 47 45 byte

! v"floG!"1-"edoC"!
o<>"selzzuP gnimmargorP">

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

Cảm ơn ngẫu nhiên cho -2 (thông minh hai! giây để tôi chỉ có thể sử dụng một>o< .)

Mã này hét lên "Flog! Flog! Flog!" và bắt lại một con cá.

T-SQL, 96 82 81 67 byte

print+iif(len(' x')=2,'Programming Puzzles','Code'+char(32)+'Golf')

Dùng thử trực tuyến | Không có không gian

Phiên bản cũ (96 byte):

select(case'x'when(replace(' ',' ','x'))then'Programming Puzzles'else'Code'+nchar(32)+'Golf'end)

Perl 5 , 43 41 byte

say" "?"Programming Puzzles":Code.$".Golf

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

Sử dụng thực tế ' 'là đúng trong perl và ''là sai. Các $"biến được đặt vào một không gian theo mặc định.

Cảm ơn @NahuelFouilleul vì đã xóa hai byte.

GolfScript , 38 byte

" ""Programming Puzzles""Code\sGolf"if

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

Befunge , 76 byte

" "0`#v_"floG"84*"edoC",,,,,,,,,@
,,,,,@>"selzzuP gnimmargorP",,,,,,,,,,,,,,

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

Không phải là giải pháp nhỏ gọn nhất, nhưng sau đó viết lại mã Befunge mà không có khoảng trắng là khá khó khăn.

Lúc đầu, nó so sánh một ký tự khoảng trắng với 0. Nếu lớn hơn, nó sẽ đi đến hàng dưới cùng. Nếu không, đó là những gì xảy ra khi bạn thay thế không gian bằng không có gì, nó sẽ ở hàng đầu tiên.