Senin görevin tam dize çıktı bir program yazmaktır Programming Puzzles(izleyen satırsonu isteğe bağlı), ancak tüm boşluklar, sekmeler ve yeni satırlar çıkarıldığında çıktılar Code Golf(izleyen satırsonu isteğe bağlı).

Bayt sayınız, hala boşluk olan ilk programın sayımıdır.

notlar

• Kaldırma işleminin bir parçası olarak Code Golf ve içindeki boşluklar Programming Puzzleskaldırılacak, buna göre plan yapın.

• 0x09, 0x0A ve 0x20'nin sırasıyla sekme, yeni satır veya boşluk olmadığı kodlamalarda, bu karakterler silinir.

• Eğer kodunuz

  42  $@ rw$
  @42
  

  o zaman bu çıktı gerekir Programming Puzzles. Ayrıca, aynı dilde

  42$@rw$@42
  

  çıktı gerekir Code Golf.

Bu kod-golf , yani bayttaki en kısa kod kazanır! İyi şanslar!

Python 2,50 bayt

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

Çevrimiçi deneyin!

Tüm boşluklar kaldırılmış olarak:

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

Bunu çevrimiçi dene!

3 baytlık Stephen S ve 1 yıl boyunca Outgolfer Erik'e teşekkürler.

Python 2 , 48 47 bayt

^{-1 Bayt Erik sayesinde}

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

Çevrimiçi deneyin!

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

Çevrimiçi deneyin!

05AB1E , 15 bayt

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

Çevrimiçi deneyin!

açıklama

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

C, 64 62 53 52 bayt

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

Çevrimiçi Deneyin!

C dizelerinin boş bir karakterle bitmesi gerçeğini kullanır

CJam , 38 bayt

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

Çevrimiçi deneyin! veya boşluk kaldırılmış olarak

açıklama

" "                    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.

Boşlukların programda olup olmadığı, ilk dizginin truthy veya falsy olup olmadığını belirler.

Jöle , 18 bayt

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

Çevrimiçi deneyin!

açıklama

Programda yazıldığı gibi, ilk satır hiç çalışmayan bir yardımcı fonksiyondur. İkinci satır (programın sonuncusu) ana programdır ve dizenin sıkıştırılmış gösterimidir "Programming Puzzles"(daha sonra dolaylı olarak basılır).

Newline'ı kaldırırsanız, her şey büyük bir program haline gelir. “½ċṭ6Ỵ»dize sıkıştırılmış gösterimidir "Code Golf". ḷdeğerlendirir, fakat sağ argümanını göz ardı eder, eskisi gibi aynı değeri bırakır; işlevleri yan etkileri için değerlendirmek için kullanılabilir (şimdiye kadar yaptığım bir şey), ancak burada olduğu gibi, kodu etkin bir şekilde yorumlamak için de kullanılabilir.

İlginçtir ki, buradaki gerçek mantık 05AB1E girişinden daha kısadır, fakat bir bütün olarak kod daha uzun çıkmaktadır, çünkü string kompresör bu özel dizgelerin sıkıştırılmasında daha az iyidir.

Jöle , 17 bayt

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

Çevrimiçi deneyin!

Nasıl çalışır

Diğer Jelly yanıtında olduğu gibi, Ñ1ɦ+£)Gve ½ċṭ6Ỵdizeleri kodlamak Bulmacalar Programlama ve Kod Golf . “bir dize değişmezini başlatır ve dize biçimini diğeriyle ayırır, aynı zamanda »değişmez türünü (sözlük tabanlı sıkıştırma) seçer,

["Programming Puzzles", "Code Golf"]

Ṃdaha sonra minimum miktarda Code Golf kazanır .

Bununla birlikte ½ċṭ6ve arasına boşluk ekleyerek Ỵ, tamamen farklı bir ikinci dize elde ediyoruz ve değişmez

["Programming Puzzles", "caird coinheringaahing"]

Yana Caird coinheringaahing daha sözlük sırasında büyüktür Bulmacalar Programlama , Ṃyerine ilk dizeyi seçer.

Javascript, 46 43 42 Bayt

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

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

Wolfram dili, 62 bayt

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

İçindeki alan [[0 1]]örtük çarpmadır, yani bu eşdeğerdir [[0]]. Boşluk olmadan 01, sadece 1. Bu ifadenin 0 ve 1'inci bölümleri istediğimiz dizelerdir.

Şüpheli geçerliliği olan başka bir çözüm (44 bayt, 2 Kelly Lowder tarafından kaydedilmiştir):

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

\.20Bir Mathematica ortamına yazılan derhal zaman bir boşluk ile değiştirilir, bu nedenle diğer alanlarda birlikte kaldırılır alırsa açık değil alır ...

Excel - 56 Bayt

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

Diğer cevapların çoğuna çok benzer ... burada süslü bir şey yok.

Haskell, 48 bayt

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

İlgili fdizgeyi döndüren işlevi tanımlar .

Başvuru için eski sürüm:

Haskell, 49/47 bayt

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

boşluk kaldırılmış olarak

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

İki basit kalıp eşleşir. (_)tüm kalıplarla eşleşir. İkinci deseni f" "=/ olarak tanımlayarak boşluksuz sürümü bir bayt geliştirebilirsiniz f""=, ancak bu "Desen eşleşmesi gereksizdir" uyarısı verir.

Aynı bayt sayısına sahip alternatif çözüm:

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

Ohm , 33 32 bayt

CP437 kodlamasını kullanır.

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

Çevrimiçi deneyin! veya boşluk bırakmadan dene

açıklama

Boşluk ile:

▀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)

Boşluk olmadan:

▀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 bayt

Boşluk ile:

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

Çevrimiçi deneyin!

Boşluksuz:

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

Çevrimiçi deneyin!

Bu, Japt'da bir boşluğun bir yöntem çağrısını kapatması gerçeğinden faydalanır. Boşluklarla, kod bu JavaScript koduna kabaca eşittir:

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

Bu, JavaScript olarak değerlendirilir ve sonuç STDOUT'a gönderilir. Son ifade olduğundan "Programming Puzzles", bu dize yazdırılır.

Boşluksuz, kod aşağıdakine eşdeğerdir:

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

(Şimdiye dek çözemediyseniz, Sdeğişken tek bir boşluktur.) .r()Bir dize üzerindeki yöntem, eğer bir argüman verildiyse o argümanın tüm örneklerini dizeden kaldırır. Yana "Code Golf"içermez "ProgrammingPuzzles", döndürür "Code Golf"sonra STDOUT gönderildiği değişmeden.

Brachylog , 44 bayt

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

Çevrimiçi deneyin!

açıklama

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

Alice , 44 bayt

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

Çevrimiçi deneyin!

Boşluk olmadan:

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

Çevrimiçi deneyin!

açıklama

İlk programda, iki ayna /komut göstergesini ikinci satıra yönlendirir. "selzzuP gnimmargorP"Gerekli kod noktalarını ters sırada diter, yığın derinliğini iter ve &oo kadar bayt yazdırır. @programı sonlandırır.

Boşluk olmadan, programın tümü tek bir satırdadır. Bu durumda, komut göstericisi Sıralı modda hareket edemez, bu nedenle /etkin bir şekilde çalışmayan duruma gelir (teknik olarak IP yalnızca bir adım hareket etmez, aynı işlem /tekrar yürütülür ve IP, Kardinal moda geri döner) ). Yani, bunları programdan çıkarırsak, şöyle görünür:

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

Boşluk eklemek için Code Golf, bunun yerine bir ünlem işareti kullanıyoruz ve onu düşürüyoruz t. Yığındaki tüm kod noktalarını aldıktan sonra #, ikinci dizenin tamamı olan bir sonraki komutu atlar. d&osonra yığını tekrar yazdırır @ve programı sonlandırır.

PHP, 44 Bayt

üçlü operatör

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

PHP, 51 Bayt

yorum Yap

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

PHP, 57 Bayt

dizi anahtarı

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

Ortak Lisp (SBCL), 52 bayt

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

Baskılar Programming Puzzles

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

Baskılar Code Golf

Ungolfed:

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

Açıklama:

Püf noktası temel #'formatolarak Common Lisp'te nasıl çalıştığından geliyor .

CL'de, belirteçlerin nerede başladığı veya bittiği konusunda belirsizlik olmaması koşuluyla çoğu boşluk atlanabilir. İlk numara formatve tsembolleri ayırmaktı . formatNasıl tyorumlandığını değiştirmeden sembolü açıkça sonlandırmam gerekiyordu . Neyse ki, CL'de işlemden önce önceki tokeni sonlandırır ve ,`(` etkisini iptal eder, ardından bir sonraki ifadenin "kote" edildiği, ancak bir ön ek ile ifade edilen herhangi bir alt ifadenin ,değerlendirildiği ve şablonda yer alan sonuç, yani `neredeyse hiçbir işlem değil.

Üçüncü argüman formatşablon dizesidir. formatC'deki printf'e benzer, ancak çok daha güçlü biçimlendirme yönergelerine sahiptir ve% yerine bunları belirtmek için ~ kullanın. ~ [ve ~], yazdırma için çoklu seçenekler arasında seçim yapmanızı sağlar; onları ayırmak. Yazdırmak istediğiniz sayısal dizini biçimlendirmek için ek bir argüman sağlanmıştır. Code Golf'teki "" 'nin hayatta kalmasını sağlamak için, genellikle metni sütunlara hizalamak için boşluk eklemek için kullanılan tablolama direktifini ~ T kullandım. ~ @ T, yalnızca 1'e ayarlanan, belirli sayıda boşluk ekleyen bir varyasyondur.

Son olarak, 0 ve 1 formatlarında iki argüman vardır. Boşluk kaldırılmadan önce, 0 "[Programlama Bulmacaları" nı seçmek için ~ [~; ~] tarafından kullanılır ve ekstra format argümanı (1) bırakılır (Ben standart bırakma ekstra format argümanlarının ne kadar olduğundan emin değiller, ancak bu, Steel Bank Common Lisp'te çalışıyor. Boşluk kaldırıldıktan sonra, bunun yerine "Code Golf" u seçen yalnızca bir argüman (01) vardır.

Pyth, 37 bayt

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

Burada dene.

?"""ProgrammingPuzzles""Code\40Golf

Burada dene.

C # 88 81 70 63 bayt

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

Boşluk ile elimden:

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

Bir yöntem geri dönüş türü ile yöntem adı, 7 18 bayt tasarruf için PeterTaylor ve 7 bayt tasarruf için Patrick Huizinga arasında nasıl boşluk kalmayacağını gösterdiği için teşekkür ederim .

Aynı yöntem gerçekten herkes gibi, teknik olarak bu yöntem yöntem için bir dönüş türünü belirtmek olmadığından geçersiz kabul edilir, ama orada olabilir sahiptir dönüş tipi ve yöntem adı arasındaki boşluk olması.

Java 8, 74 50 48 bayt

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

Japt , 32 bayt

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

Çevrimiçi deneyin!

PowerShell , 56 bayt

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

Çevrimiçi deneyin!

Oldukça basit diyebilirim ama işi halleder

R, 50 bayt

Bence bu Javascript cevabı ile aynı, temelde diğerleri ile aynı fikir.

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

> <> , 42 bayt

Boşluk ile

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

Çevrimiçi deneyin!

Boşluk olmadan

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

Çevrimiçi deneyin!

dc , 50

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

Çevrimiçi deneyin .

[ ]Bir dize tanımlar - Zuzunluğunu ölçer. Uzunluk 19 ise, bir boşluk içerir ve m kayıt defterinde saklanan makro çağırılır, bu da yazdırır Programming Puzzlesve çıkar. Aksi takdirde Code Golfyazdırılır.

> <> , 47 45 bayt

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

Çevrimiçi deneyin!

-2 için randomra sayesinde (zeki iki !saniye, sadece bir tanesini kullanabilirim >o<.)

Kod "Flog! Flog! Flog!" Diye bağırıyor. ve bir balık andırıyor.

T-SQL, 96 82 81 67 bayt

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

Çevrimiçi deneyin | Boşluksuz

Eski versiyon (96 bayt):

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

Perl 5 , 43 41 bayt

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

Çevrimiçi deneyin!

' 'Perl'de doğru olan ve ''yanlış olan gerçeği kullanır . $"Değişken varsayılan olarak bir boşluk ayarlanır.

İki byte'ı kaldırmak için @NahuelFouilleul 'e teşekkürler.

GolfScript , 38 bayt

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

Çevrimiçi deneyin!

Befunge , 76 bayt

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

Çevrimiçi deneyin!

En kompakt çözüm değil, ancak daha sonra beyaz boşluk olmadan Befunge kodu tekrar yazmak oldukça zor.

En başında, boşluk karakterini 0 ile karşılaştırır. Eğer daha büyükse, en alt satırda olur. Değilse, boş olanı hiçbir şeyle değiştirdiğinizde olan şey, ilk satırda kalır.