คุณจะได้รับสตริง ส่งออกสตริงที่มีหนึ่งช่องว่างต่อคำ

ท้าทาย

การป้อนข้อมูลจะเป็นสตริง (ไม่ได้nullหรือเปล่า) ล้อมรอบด้วยคำพูด ( ") stdinส่งผ่านทาง ลบช่องว่างนำหน้าและต่อท้ายออกจากช่องว่างนั้น นอกจากนี้หากมีมากกว่าหนึ่งช่องว่างระหว่างคำสองคำ (หรือสัญลักษณ์หรืออะไรก็ตาม) ให้ตัดออกเป็นช่องว่าง เอาต์พุตสตริงที่แก้ไขด้วยเครื่องหมายคำพูด

กฎระเบียบ

• สตริงจะต้องไม่ยาวเกิน 100 ตัวอักษรและจะมีเฉพาะอักขระ ASCII ในช่วง(ช่องว่าง) ถึง~(ตัวหนอน) (รหัสตัวอักษร 0x20 ถึง 0x7E, รวม) ยกเว้น"กล่าวคือสตริงจะไม่มีคำพูด ( ") และตัวละครอื่น ๆ นอก ช่วงที่ระบุข้างต้น ดูตาราง ASCIIสำหรับการอ้างอิง
• คุณต้องรับข้อมูลจากstdin(หรือตัวเลือกอื่นที่ใกล้เคียงที่สุด)
• เอาต์พุตต้องมีเครื่องหมายคำพูด ( ")
• คุณสามารถเขียนโปรแกรมแบบเต็มหรือฟังก์ชั่นที่รับอินพุต (จากstdin) และส่งออกสตริงสุดท้าย

กรณีทดสอบ

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

เกณฑ์การให้คะแนน

นี่คือรหัสกอล์ฟดังนั้นการส่งที่สั้นที่สุด (เป็นไบต์) ชนะ

CJam, 7 ไบต์

q~S%S*p

รหัสคำอธิบาย

CJam ได้สงวนอักษรตัวใหญ่ทั้งหมดเป็นตัวแปร inbuilt ดังนั้นSมีค่าของพื้นที่ที่นี่

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.

สิ่งนี้จะลบช่องว่างต่อท้ายและส่วนนำเช่นกัน

ลองออนไลน์ได้ที่นี่

/// : 18 ตัวอักษร

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

วิ่งตัวอย่าง:

(การใช้ล่าม faubiguyจากคำตอบ Perlของเขาสำหรับการตีความ /// (ออกเสียง 'slashes') )

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

Perl, 22

(รหัส 20 ไบต์พร้อมสวิตช์บรรทัดคำสั่ง 2 ตัว)

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

ต้องรันด้วย-npสวิตช์เพื่อให้$_เต็มโดยอัตโนมัติผ่าน stdin และพิมพ์ไปยัง stdout ฉันจะสมมติว่านี่จะเพิ่ม 2 เข้ากับจำนวนไบต์

Ruby, 31 29 25 23 Bytes

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

คำอธิบายรหัส:

• pสตริงออกภายในเครื่องหมายคำพูดคู่ถึงSTDOUT( มีมากกว่านั้น ... )
• $*คืออาร์เรย์ของSTDINอินพุต$*[0]ใช้ค่าแรก
• strip เอาช่องว่างเริ่มต้นและสิ้นสุด
• squeeze ' ' แทนที่> 1 อักขระเว้นวรรคด้วยช่องว่างเดียว

กรณีทดสอบ:

Pyth, 17 15 11 10 ไบต์

(ขอบคุณYpnypnและFryAmTheEggman )

pjd-cQdkNN

อาจจะเล่นกอล์ฟมากกว่านี้

หากเอาต์พุตสามารถใช้'แทนได้"ฉันต้องใช้เพียง 8 ไบต์เท่านั้น:

`jd-cQdk

Bash, 36 32 ไบต์

ในฐานะที่เป็นฟังก์ชั่นโปรแกรมหรือเพียงแค่ในไพพ์:

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

คำอธิบาย

xargsแถบแรกจะใส่เครื่องหมายคำพูด

ที่สองxargsตัดแต่งด้านซ้ายและแทนที่ช่องว่างที่อยู่ติดกันหลายรายการในช่วงกลางของสตริงด้วยช่องว่างหนึ่งโดยใช้แต่ละ "คำว่า" และแยกแต่ละช่องด้วยช่องว่าง

xargs -i echo '"{}"'จดจ้องด้านขวาและ rewraps สตริงส่งผลให้ในราคาคู่

Haskell, 31 25 ไบต์

fmap(unwords.words)readLn

wordsแยกสตริงออกเป็นรายการของสตริงด้วยช่องว่างเป็นตัวคั่นและunwordsรวมรายการของสตริงด้วยช่องว่างเดียวระหว่าง เครื่องหมายคำพูด"ถูกถอดออกและนำกลับมาโดยฟังก์ชันของ Haskell readและshow(โดยนัยผ่าน REPL) บนสตริง

การส่งออกโดยฟังก์ชั่นนั้นมีความยาวสามไบต์เช่น 28 ไบต์:

print.unwords.words=<<readLn

แก้ไข: @Mauris ชี้ไปที่readLnฟังก์ชั่นซึ่งบันทึกบางไบต์

R, 45 ไบต์

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

readline()ฟังก์ชั่นอ่านจาก STDIN โดยอัตโนมัติลอกใด ๆ ช่องว่างชั้นนำและต่อท้าย gsub()พื้นที่ส่วนเกินระหว่างคำจะถูกลบออกโดยใช้ สุดท้ายอัญประกาศคู่จะถูกต่อเติมและต่อท้ายและผลลัพธ์จะถูกพิมพ์ไปยัง STDOUT

ตัวอย่าง:

> 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

ลดลง 1 ไบต์ด้วย @ygramul

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

รุ่นเดิม:

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

กรณีทดสอบ:

JavaScript (ES6), 49 52 58

แก้ไขสั้นลง 6 ไบต์ด้วย @Optimizer

แก้ไข 2 -3 ขอบคุณ @nderscore

อินพุต / เอาต์พุตผ่านป๊อปอัพ การใช้สตริงเท็มเพลตเพื่อตัด 1 ไบต์ในการต่อสตริง

เรียกใช้ตัวอย่างเพื่อทดสอบใน Firefox

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

05AB1E , 9 ไบต์

#õKðý'".ø

ลองออนไลน์!

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

Mathematica, 75 ไบต์

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

KDB (Q), 28 ไบต์

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

คำอธิบาย

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

ทดสอบ

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

Java 8, 43 ไบต์

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

คำอธิบาย:

ลองที่นี่

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)

อ็อกเทฟ 44 ไบต์

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

ลองออนไลน์!

Perl 5 , 17 ไบต์

รหัส 16 ไบต์ + 1 สำหรับ -p

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

ลองออนไลน์!

Jq 1.5 , 42 ไบต์

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

เรียกใช้ตัวอย่าง

$ 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

ลองออนไลน์

Tcl , 69 ไบต์

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

ลองออนไลน์!

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

ลองออนไลน์!

Japt -Q , 10 4 ไบต์

¸f ¸

ลองมัน

golfua ขนาด 42 ไบต์

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

การแทนที่การจับคู่รูปแบบง่าย ๆ : ค้นหาอัญประกาศคู่ใด ๆ ( \") ล้อมรอบด้วยช่องว่าง 0 หรือมากกว่า ( %s*) และส่งกลับเครื่องหมายคำพูดเดี่ยวจากนั้นแทนที่ช่องว่างทั้งหมด 1 ช่องขึ้นไป ( %s+) ด้วยช่องว่างเดียว

Lua จะเทียบเท่า

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

งูเห่า - 68

ในฐานะที่เป็นฟังก์ชั่นที่ไม่ระบุชื่อ:

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

วัตถุประสงค์ -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];}

เวอร์ชันที่ไม่บีบอัด:

-(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 ไบต์

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

Powershell ขนาด 40 ไบต์

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

ค่อนข้างตรงไปตรงมาและไม่น่าประทับใจมาก

คำอธิบาย

ใช้พารามิเตอร์อินพุตผ่าน (args-variable ที่กำหนดค่าไว้ล่วงหน้า) แทนที่ช่องว่างหลายช่องทั้งหมดด้วยช่องว่างช่องว่างนำหน้าและช่องว่างส่วนท้ายโดยใช้ trim () - เมธอดเพิ่มคำพูด Powershell จะพิมพ์สตริงไปยังคอนโซลเป็นพฤติกรรมเริ่มต้น

k4, 23 ไบต์

" "/: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 ไบต์

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

ลองออนไลน์!

สตริงอินพุตมีเครื่องหมายคำพูดฝังอยู่ ลบQสำหรับ14 ไบต์ถ้าสายเข้าไม่ได้มีคำพูดที่ฝังตัวเป็นจะทำในบางส่วนของคำตอบอื่น ๆ ที่นี่

การตั้งค่าสถานะการขยายพารามิเตอร์: Qdequotes แล้วzแยกออกเป็นคำตามที่เชลล์ทำ คำนั้นจะเข้าร่วมโดยปริยายโดยช่องว่าง

นกกระจิบ , 56 ไบต์

รอ. แทนที่เท่านั้นไม่ได้ครั้งเดียว ? ตอนนี้ฉันต้องใช้คำสั่งผสมแบบแยกส่วน

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

ลองออนไลน์!

คำอธิบาย

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 ไบต์

' '%' '*

ลองออนไลน์!

คำอธิบาย

ตรรกะค่อนข้างง่าย:

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

Python2, 28 ไบต์

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

คำอธิบาย

lambda s

ฟังก์ชั่นไม่ระบุชื่อซึ่งใช้เป็นอินพุต s

s.split()

ส่งคืนรายการคำ (ซึ่งถูกคั่นด้วยสตริงที่กำหนดเองของอักขระช่องว่าง) ของสตริง

" ".join(...)

เข้าร่วมรายการกลับเข้าไปในสตริงโดยแต่ละคำคั่นด้วยช่องว่าง ("")