Вам дається рядок. Виведіть рядок з одним пробілом на слова.

Виклик

Введенням буде рядок (не 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 зарезервував усі великі літери як вбудовані змінні. Тому 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 для інтерпретації /// (вимовляється "косої риски") .)

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

Перл, 22

(20 байт коду, плюс 2 комутатори командного рядка)

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

Потрібно запустити -npперемикач, щоб $_він автоматично заповнювався через stdin та друкувався у stdout. Я припускаю, що це додає 2 до кількості байтів.

Рубі, 31 29 25 23 байт

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.

Математика, 75 байт

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

КДБ (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 ¸

Спробуй це

гольфу, 42 байти

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

Проста заміна відповідності шаблону: знайдіть будь-які подвійні лапки ( \"), оточені 0 або більше пробілів ( %s*), і поверніть одну цитату, а потім замініть всі 1 або більше пробілів ( %s+) на один пробіл.

Еквівалент Луа був би

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(' ')]"'

Завдання-С 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];
}

Баш, 14 байт

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

Powershell, 40 байт

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

Досить прямо вперед і не дуже ефектно.

Пояснення

Візьміть вхідний параметр через (заздалегідь задану) змінну args, замініть всі декілька пробілів на один, обріжте провідні та кінцеві пробіли за допомогою методу 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 байт , якщо вхідний рядок не містить вкладені лапки, як це зроблено в деяких інших відповідей тут.

Параметри розширення параметрів: Qдекутувати, а потім розбивати 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()

Повертає список слів (які розділені довільними рядками пробілів символів) рядка s.

" ".join(...)

Список приєднується назад до рядка, кожне слово розділене пробілом ("").