Вам дана строка. Выведите строку с одним пробелом на слова.

Вызов

На входе будет строка (не 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 символов

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

Образец прогона:

(Используя интерпретатор Фаубигуя из его Perl-ответа для Interpret /// (произносится как «косая черта») .)

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

Perl, 22

(20 байтов кода плюс 2 ключа командной строки)

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

Необходимо запустить с -npпереключателем, чтобы $_он автоматически заполнялся через стандартный ввод и выводился на стандартный вывод. Я собираюсь предположить, что это добавляет 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

Баш, 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(' ')]"'

Objective-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];
}

Баш, 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

Зш , 15 байт

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

Попробуйте онлайн!

Входная строка содержит встроенные кавычки. Удалить Qза 14 байтов если входная строка не содержит встроенных кавычек, как это делается в некоторых других ответах здесь.

Флаги раскрытия параметров: Qудаляют кавычки, а затем zразделяются на слова, как это делает оболочка. Слова затем неявно соединяются пробелами.

Рен , 56 байт

Подождите. Замена только один раз ? Теперь я должен использовать комбинацию split-join.

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(...)

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