Size bir dize verilir. Dizeyi sözcük başına bir boşluk bırakarak çıktı.

Meydan okuma

Giriş, üzerinden gönderilen nulltırnak işaretleri ( ") ile çevrili bir dize ( boş veya boş) olacaktır stdin. Öndeki ve arkadaki boşlukları kaldırın. Ayrıca, iki kelime (veya semboller veya herhangi bir şey) arasında birden fazla boşluk varsa, onu tek bir boşluğa kesin. Değiştirilen dizeyi tırnak işaretleri ile çıktılar.

kurallar

• Dize 100 karakterden uzun olmayacak ve yalnızca (boşluk) ila ~(yaklaşık işareti) (0x20 - 0x7E karakter kodları dahil) ASCII karakterlerini içerecektir ( "ör. Dize tırnak işaretleri ( ") ve yukarıda belirtilen aralık. Referans için ASCII tablosuna bakınız .
• Girdiyi stdin(veya en yakın alternatifi) almalısınız .
• Çıktı tırnak ( ") içermelidir .
• Tam bir program veya giriş (itibaren stdin) alan ve son dizeyi çıkaran bir işlev yazabilirsiniz

Test Durumları

"this  is  a    string   "         --> "this is a string"

"  blah blah    blah "             --> "blah blah blah"

"abcdefg"                          --> "abcdefg"

"           "                      --> ""

"12 34  ~5 6   (7, 8) - 9 -  "     --> "12 34 ~5 6 (7, 8) - 9 -" 

puanlama

Bu kod golf, yani en kısa gönderme (bayt cinsinden) kazanır.

CJam, 7 bayt

q~S%S*p

Kod Açıklaması

CJam tüm büyük harfleri dahili değişken olarak ayırmıştır. Yani Sburada bir boşluk bir değere sahiptir.

q~          e# Read the input (using q) and evaluate (~) to get the string
  S%        e# Split on running lengths (%) of space
    S*      e# Join (*) the splitted parts by single space
      p     e# Print the stringified form (p) of the string.

Bu, sondaki ve önde gelen alanları da kaldırır

Buradan çevrimiçi deneyin

/// : 18 karakter

/  / //" /"// "/"/

Örnek çalışma:

( Faubiguy'un yorumlayıcısını Interpret /// için Perl cevabından kullanma ('eğik çizgiler' olarak telaffuz edilir) .)

bash-4.3$ ( echo -n '/  / //" /"// "/"/'; echo '"   foo  *  bar   "'; ) | slashes.pl
"foo * bar"

Perl, 22

(20 bayt kod artı 2 komut satırı anahtarı)

s/ +/ /g;s/" | "/"/g

-npAnahtarla $_otomatik olarak doldurulması ve stdout'a basılması için anahtarla çalıştırılması gerekir . Bunun bayt sayısına 2 eklediğini varsayacağım.

Yakut, 31 29 25 23 Bayt

p$*[0].strip.squeeze' '

Kod Açıklaması:

• pçift ​​tırnak içinde dize çıktılar STDOUT( Ama daha fazlası var ...)
• $*bir dizi STDINgirdi, $*[0]ilki alır
• strip başlangıç ​​ve bitiş alanlarını kaldırır
• squeeze ' ' > 1 boşluk karakterini tek bir boşlukla değiştirir

Test Durumları:

Pyth, 17 15 11 10 bayt

( Ypnypn ve FryAmTheEggman sayesinde )

pjd-cQdkNN

Muhtemelen daha fazla golf olabilir.

Çıktı 'yerine kullanabilirsiniz , "o zaman ben sadece 8 bayt gerekir:

`jd-cQdk

Bash, 36 32 bayt

Bir işlev olarak, bir program olarak veya sadece bir boruda:

xargs|xargs|xargs -i echo '"{}"'

açıklama

Birincisi xargstırnak işaretlerini kaldırır.

İkincisi xargssol tarafı keser ve her "sözcüğü" alarak ve her birini bir boşlukla ayırarak dizenin ortasındaki birden çok bitişik boşluğu bir boşlukla değiştirir.

xargs -i echo '"{}"'Sağ tarafını keser ve çift tırnak sonuç dizesi REWRAPS.

Haskell, 31 25 bayt

fmap(unwords.words)readLn

wordsdizeyi sınırlayıcı olarak boşluklu bir dizeler listesine böler ve arada unwordstek bir boşluk bulunan dizeler listesine ekler. Tırnaklar ", dizelerdeki Haskell readve show(dolaylı olarak REPL aracılığıyla) işlevlerinden çıkarılır ve geri konur .

İşlevin kendisinin çıktısı üç bayt daha uzun, yani 28 bayt:

print.unwords.words=<<readLn

Edit: @Mauris readLnbazı baytlar kaydetti işlevi işaret etti .

R, 45 bayt

cat('"',gsub(" +"," ",readline()),'"',sep="")

readline()Fonksiyonu otomatik olarak ön ve arka boşluk sıyırma, STDIN'den okur. Kelimeler arasındaki fazla boşluk kullanılarak kaldırılır gsub(). Son olarak, çift tırnak işaretleri eklenir ve eklenir ve sonuç STDOUT'a yazdırılır.

Örnekler:

> cat('"',gsub(" +"," ",readline()),'"',sep="")
    This   is     a   string  
"This is a string"

> cat('"',gsub(" +"," ",readline()),'"',sep="")
12 34  ~5 6   (7, 8) - 9 -  
"12 34 ~5 6 (7, 8) - 9 -"

Python2, 37

@Ygramul sayesinde 1 bayt azalır.

print'"%s"'%' '.join(input().split())

Orijinal versiyon:

print'"'+' '.join(input().split())+'"'

Test senaryoları:

JavaScript (ES6), 49 52 58

Düzenleme 6, @Optimizer sayesinde daha kısa bayt

@Nderscore sayesinde 2 -3'ü düzenleyin

Açılır pencereden giriş / çıkış. Dize birleştirme işleminde 1 bayt kesmek için şablon dizesini kullanma.

Firefox'ta test etmek için snippet'i çalıştırın.

alert(`"${prompt().match(/[^ "]+/g).join(" ")}"`)

05AB1E , 9 bayt

#õKðý'".ø

Çevrimiçi deneyin!

#         | Split on spaces.
 õK       | Remove empty Strings.
   ðý     | Join with spaces.
     '".ø | Surround with quotes.

Mathematica, 75 bayt

a=" ";b=a...;Print[InputString[]~StringReplace~{b~~"\""~~b->"\"",a..->a}]

KDB (Q), 28 bayt

" "sv except[;enlist""]" "vs

açıklama

                       " "vs    / cut string by space
      except[;enlist""]         / clear empty strings
" "sv                           / join back with space

Ölçek

q)" "sv except[;enlist""]" "vs"12 34  ~5 6   (7, 8) - 9 -  "
"12 34 ~5 6 (7, 8) - 9 -"

Java 8, 43 bayt

s->'"'+s.replaceAll(" +|\""," ").trim()+'"'

Açıklama:

Burada deneyin.

s->                           // Method with String as parameter and return-type
  '"'                         //  Return a leading quote
  +s.replaceAll(" +           //  + Replace all occurrences of multiple spaces
                   |\"",      //     and all quotes
                        " ")  //    with a single space
    .trim()                   //  And remove all leading and trailing spaces
  +'"'                        //  And add the trailing quote
                              // End of method (implicit / single-line return statement)

Oktav , 44 bayt

@(x)[34 strjoin(regexp(x,'\S+','match')) 34]

Çevrimiçi deneyin!

Perl 5 , 17 bayt

16 bayt kod + 1 -p

s/ *("| ) */$1/g

Çevrimiçi deneyin!

Jq 1,5 , 42 bayt

split(" ")|map(select(length>0))|join(" ")

Örnek Çalışma

$ jq -M 'split(" ")|map(select(length>0))|join(" ")' < data
"this is a string"
"blah blah blah"
"abcdefg"
""
"12 34 ~5 6 (7, 8) - 9 -"

$ echo -n 'split(" ")|map(select(length>0))|join(" ")' | wc -c
  42

Çevrimiçi deneyin

Tcl , 69 bayt

puts [string map {{ "} \" {" } \"} [regsub -all \ + [gets stdin] \ ]]

Çevrimiçi deneyin!

puts \"[string trim [regsub -all \ + [string range [gets stdin] 1 end-1] \ ]]\"

Çevrimiçi deneyin!

Japt -Q , 10 4 bayt

¸f ¸

Dene

golfua, 42 bayt

L=I.r():g('%s*\"%s*','"'):g('%s+',' ')w(L)

Basit desen eşleştirme değiştirme: \"0 veya daha fazla boşlukla çevrilmiş herhangi bir çift tırnak işareti ( ) bulun ( %s*) ve tek alıntıyı döndürün, ardından 1 veya daha fazla boşluğu değiştirin (%s+ ) tek bir boşlukla değiştirin.

Lua eşdeğeri

Line = io.read()
NoSpaceQuotes = Line:gsub('%s*\"%s*', '"')
NoExtraSpaces = NoSpaceQuotes:gsub('%s+', ' ')
print(NoExtraSpaces)

Kobra - 68

Anonim bir işlev olarak:

do
    print'"[(for s in Console.readLine.split where''<s).join(' ')]"'

Hedef-C 215

-(NSString*)q:(NSString*)s{NSArray*a=[s componentsSeparatedByString:@" "];NSMutableString*m=[NSMutableString new];for(NSString*w in a){if(w.length){[m appendFormat:@"%@ ",w];}}return[m substringToIndex:m.length-1];}

Sıkıştırılmamış sürüm:

-(NSString*)q:(NSString*)s{
    NSArray *a=[s componentsSeparatedByString:@" "];
    NSMutableString *m=[NSMutableString new];
    for (NSString *w in a) {
        if (w.length) {
            [m appendFormat:@"%@ ",w];
        }
    }
    return[m substringToIndex:m.length-1];
}

Bash, 14 bayt

read f;echo $f       # assume f="this  is  a    string   "

Powershell, 40 bayt

"`"$(($args-Replace' +'," ").trim())`""

Oldukça düz ileri ve çok etkileyici değil.

açıklama

Girdi parametresini (önceden tanımlanmış) args değişkeni ile alın, tüm çoklu boşlukları bir ile değiştirin, ön ve arka boşlukları trim () - yöntemini kullanarak kesin, tırnak ekleyin. Powershell, dizeleri konsola varsayılan davranış olarak yazdırır.

k4, 23 bayt

" "/:x@&~~#:'x:" "\:0:0

                    0:0  / read from stdin
             x:" "\:     / split string on spaces and assign to x
        ~~#:'            / boolean true where string len>0, bool false otherwise
     x@&                 / x at indices where true
" "/:                    / join with spaces

Zsh , 15 bayt

<<<\"${(Qz)1}\"

Çevrimiçi deneyin!

Giriş dizesi katıştırılmış tırnak işaretleri içerir. Kaldır Qiçin 14 bayt burada diğer bazı yanıtlar yapıldığı gibi girdi dizesi, gömülü tırnak içermiyorsa.

Parametre genişletme bayrakları: Qayrıştırır, sonra zkabuk gibi kelimelere ayrılır. Kelimeler daha sonra örtük olarak boşluklarla birleştirilir.

Wren , 56 bayt

Bekle. Değiştirme yalnızca bir kez mi yapılır? Şimdi split-join kombinasyonunu kullanmalıyım.

Fn.new{|x|x.trim().split(" ").where{|i|i!=""}.join(" ")}

Çevrimiçi deneyin!

açıklama

Fn.new{|x|                                             } // New anonymous function with the operand x
          x.trim()                                       // Trim out whitespace from both sides of the string
                  .split(" ")                            // Split the string into space-separated chunks
                             .where{|i|i!=""}            // Keep all of those that aren't the null string (due to two consecutive spaces)
                                             .join(" ")  // Join the replaced list together

GolfScript , 8 bayt

' '%' '*

Çevrimiçi deneyin!

açıklama

Mantık oldukça basit:

' '%     # Split on spaces, remove empty results
    ' '* # Join on spaces

Python2, 28 Bayt

lambda s:" ".join(s.split())

açıklama

lambda s

Giriş s olarak anonim işlev.

s.split()

S dizesinin sözcüklerin (boşluk karakterlerinin gelişigüzel dizeleri ile ayrılmış) bir listesini döndürür.

" ".join(...)

Listeyi, her sözcük bir boşlukla ("") ayrılmış bir dizeye geri ekler.