Bạn được cung cấp một chuỗi. Xuất chuỗi với một khoảng trắng trên mỗi từ.

Thử thách

Đầu vào sẽ là một chuỗi (không nullhoặc trống), được bao quanh bằng dấu ngoặc kép ( ") được gửi quastdin . Loại bỏ không gian hàng đầu và dấu từ nó. Ngoài ra, nếu có nhiều hơn một khoảng trắng giữa hai từ (hoặc ký hiệu hoặc bất cứ thứ gì), hãy cắt nó thành một khoảng trắng. Xuất chuỗi sửa đổi với dấu ngoặc kép.

Quy tắc

• Chuỗi sẽ không dài hơn 100 ký tự và sẽ chỉ chứa các ký tự ASCII trong phạm vi (dấu cách) đến ~(dấu ngã) (mã ký tự 0x20 đến 0x7E, bao gồm) ngoại trừ ", chuỗi sẽ không chứa dấu ngoặc kép ( ") và các ký tự khác bên ngoài phạm vi quy định ở trên. Xem bảng ASCII để tham khảo.
• Bạn phải lấy đầu vào từ stdin(hoặc thay thế gần nhất).
• Đầu ra phải chứa dấu ngoặc kép ( ").
• Bạn có thể viết một chương trình đầy đủ hoặc một hàm lấy đầu vào (từ stdin) và xuất chuỗi cuối cùng

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

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

Chấm điểm

Đây là mã golf, vì vậy bài nộp ngắn nhất (tính bằng byte) sẽ thắng.

CJam, 7 byte

q~S%S*p

Giải thích mã

CJam đã dành tất cả các chữ in hoa dưới dạng các biến sẵn có. Vì vậy, Scó một giá trị của một không gian ở đây.

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.

Điều này cũng loại bỏ dấu vết và không gian hàng đầu

Dùng thử trực tuyến tại đây

/// : 18 ký tự

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

Chạy mẫu:

(Sử dụng trình thông dịch của faubiguy từ câu trả lời Perl của anh ấy cho Phiên dịch /// (phát âm là 'dấu gạch chéo') .)

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

Perl, 22

(20 byte mã, cộng với 2 công tắc dòng lệnh)

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

Cần phải được chạy với công -nptắc để $_tự động được điền thông qua stdin và được in ra thiết bị xuất chuẩn. Tôi sẽ giả sử điều này thêm 2 vào số byte.

Ruby, 31 29 25 23 byte

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

Giải thích mã:

• pchuỗi đầu ra trong dấu ngoặc kép thành STDOUT( Có nhiều hơn cho nó mặc dù ...)
• $*là một mảng của STDINđầu vào, $*[0]lấy cái đầu tiên
• strip loại bỏ không gian bắt đầu và kết thúc
• squeeze ' ' thay thế> 1 ký tự khoảng trắng bằng một khoảng trắng

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

Pyth, 17 15 11 10 byte

(cảm ơn Ypnypn và FryAmTheEggman )

pjd-cQdkNN

Có lẽ có thể được chơi golf nhiều hơn.

Nếu đầu ra có thể sử dụng 'thay vì "thì tôi chỉ cần 8 byte:

`jd-cQdk

Bash, 36 32 byte

Là một chức năng, một chương trình, hoặc chỉ trong một đường ống:

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

Giải trình

Đầu tiên xargsdải các dấu ngoặc kép.

Cái thứ hai xargscắt cạnh bên trái và thay thế nhiều khoảng trắng liền kề ở giữa chuỗi bằng một khoảng trắng bằng cách lấy từng "từ" và tách từng khoảng bằng một khoảng trắng.

Các xargs -i echo '"{}"'Trims phía bên phải và rewraps chuỗi kết quả trong dấu ngoặc kép.

Haskell, 31 25 byte

fmap(unwords.words)readLn

words chia chuỗi thành một danh sách các chuỗi có khoảng trắng dưới dạng dấu phân cách và unwords nối danh sách các chuỗi có một khoảng trống ở giữa. Các trích dẫn "được loại bỏ và đặt lại bởi các hàm của Haskell readvà show(ngầm thông qua các hàm REPL) trên các chuỗi.

Đầu ra của hàm tự dài hơn ba byte, tức là 28 byte:

print.unwords.words=<<readLn

Chỉnh sửa: @Mauris chỉ vào readLnhàm, đã lưu một số byte.

R, 45 byte

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

Các readline()chức năng đọc từ STDIN, tự động tước bất kỳ hàng đầu và dấu khoảng trắng. Không gian thừa giữa các từ được loại bỏ bằng cách sử dụnggsub() . Cuối cùng, dấu ngoặc kép được thêm vào và thêm vào và kết quả được in thành STDOUT.

Ví dụ:

> 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

Giảm 1 byte nhờ @ygramul.

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

Phiên bản gốc:

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

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

JavaScript (ES6), 49 52 58

Chỉnh sửa ngắn hơn 6 byte, nhờ @Optimizer

Chỉnh sửa 2 -3, nhờ @nderscore

Nhập / xuất thông qua cửa sổ bật lên. Sử dụng chuỗi mẫu để cắt 1 byte trong nối chuỗi.

Chạy đoạn trích để kiểm tra trong Firefox.

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

05AB1E , 9 byte

#õKðý'".ø

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

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

Toán học, 75 byte

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

KDB (Q), 28 byte

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

Giải trình

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

Kiểm tra

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

Java 8, 43 byte

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

Giải trình:

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

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)

Octave , 44 byte

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

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

Perl 5 , 17 byte

16 byte mã + 1 cho -p

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

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

Jq 1.5 , 42 byte

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

Chạy mẫu

$ 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

Dùng thử trực tuyến

Tcl , 69 byte

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

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

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

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

Japt -Q , 10 4 byte

¸f ¸

Thử nó

golfua, 42 byte

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

Thay thế khớp mẫu đơn giản: tìm bất kỳ dấu ngoặc kép ( \") nào được bao quanh bởi 0 hoặc nhiều khoảng trắng ( %s*) và trả về dấu ngoặc đơn, sau đó thay thế tất cả 1 hoặc nhiều khoảng trắng ( %s+) bằng một khoảng trắng .

Tương đương Lua sẽ là

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

Rắn hổ mang - 68

Là một chức năng ẩn danh:

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

Mục tiêu-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];}

Phiên bản không nén:

-(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 byte

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

Powershell, 40 byte

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

Khá thẳng về phía trước và không ấn tượng lắm.

Giải trình

Lấy tham số đầu vào thông qua biến args (tiền định sẵn), thay thế tất cả nhiều khoảng trắng bằng một, cắt khoảng trắng ở đầu và cuối bằng cách sử dụng phương thức trim () -, thêm dấu ngoặc kép. Powershell sẽ in các chuỗi lên bàn điều khiển như hành vi mặc định.

k4, 23 byte

" "/: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 byte

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

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

Chuỗi đầu vào chứa các trích dẫn nhúng. Tháo Qcho 14 byte nếu chuỗi đầu vào không chứa dấu ngoặc kép nhúng, như được thực hiện trong một số các câu trả lời khác ở đây.

Cờ mở rộng tham số: Qdequote, sau đó zchia thành các từ như shell. Các từ sau đó được ngầm định tham gia bởi không gian.

Wren , 56 byte

Chờ đợi. Việc thay thế chỉ làm một lần ? Bây giờ tôi phải sử dụng kết hợp chia nhỏ.

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

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

Giải trình

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 byte

' '%' '*

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

Giải trình

Logic khá đơn giản:

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

Python2, 28 byte

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

Giải trình

lambda s

Hàm ẩn danh dùng làm đầu vào s.

s.split()

Trả về một danh sách các từ (được phân tách bằng các chuỗi ký tự khoảng trắng tùy ý) của chuỗi s.

" ".join(...)

Tham gia liệt kê lại thành một chuỗi, với mỗi từ được phân tách bằng khoảng trắng ("").