задача

Ваша задача - создать строку, содержащую средние символы строки. Первый символ результата будет средним символом первого символа (который является первым символом) и вторым символом среднего двух первых символов и так далее.

Что такое средний характер?

Строки - это массивы байтов. Средний символ строки можно найти, рассчитав среднее значение ASCII символов в строке и приняв соответствующий символ ASCII.

Например, строка "Hello!"может быть записана как последовательность байтов 72 101 108 108 111 33. Среднее значение ascii равно 533/6 = 88.833 ... и когда оно округляется до ближайшего целого числа, мы получаем 89, что является кодом ascii для заглавной буквы Y.

правила

• Вы можете предположить, что ввод содержит только печатные символы ASCII
• Входные данные могут быть прочитаны из стандартного ввода или как аргументы командной строки или как аргументы функции
• Выход должен быть стандартным. Если ваша программа является функцией, вы также можете вернуть строку, которую вы иначе напечатаете.
• Это должна быть целая программа или функция, а не фрагмент
• Применяются стандартные лазейки
• Целые числа округляются по функции floor(x+0.5)или аналогичной функции.

Как мне победить?

Это код-гольф , поэтому самый короткий ответ (в байтах) за выигрыш.

Примеры

• Hello! → HW^adY
• test → tmop
• 42 → 43
• StackExchange → Sdccd_ccccddd

Brainfuck 106 байт

,[>,<.[->+<]>>++<[>[->+>+<<]>[-<<-[>]>>>[<[>>>-<<<[-]]>>]<<]>>>+<<[-<<+>>]<<<]>[-]>>>>[-<<<<<+>>>>>]<<<<<]

Это мое первое участие в код-гольфе, пожалуйста, будьте осторожны! Это работает, но brainfuck не может обрабатывать числа с плавающей точкой (не то, что я знаю), поэтому округленное значение всегда является нижним (может исправить мой алгоритм позже).

Кроме того, алгоритм усредняет значения 2 на 2, что означает, что он может быть неточным в некоторых местах. И мне нужно исправить ошибку, которая печатает число в конце вывода тоже.

Pyth, 16 байт

smCs+.5csaYCdlYz

Довольно просто. Используется s+.5вместо округления, потому что по какой-то причине round(0.5, 0)0 в Python.

Q, 15 12 байт

12 байтов как выражение

"c"$avgs"i"$

q)"c"$avgs"i"$"Hello!"
"HW^adY"
q)"c"$avgs"i"$"test"
"tmop"
q)"c"$avgs"i"$"42"
"43"
q)"c"$avgs"i"$"StackExchange"
"Sdccd_ccccddd"

или 15 байт как функция

{"c"$avgs"i"$x}

q){"c"$avgs"i"$x} "Hello!"
"HW^adY"
q){"c"$avgs"i"$x} "test"
"tmop"
q){"c"$avgs"i"$x} "42"
"43"
q){"c"$avgs"i"$x} "StackExchange"
"Sdccd_ccccddd"

использует в своих интересах

1. «i» $ приведение для преобразования строки (списка символов) в список целых чисел
2. функция avgs, которая вычисляет скользящее среднее для списка в виде списка с плавающей точкой
3. преобразование "c" $ для преобразования списка с плавающей точкой в ​​список символов, которое автоматически округляет каждое число с плавающей точкой до ближайшего целого числа перед тем, как это сделать [т.е. ("c" $ 99.5) = ("c" $ 100) и ("c" "99,4 $) = (" C "99 $)]

CJam, 19 байтов

Uq{i+_U):Ud/moco}/;

Попробуйте онлайн в интерпретаторе CJam .

Perl: 31 30 символов

(29 символов кода + 1 символ командной строки.)

s!.!chr.5+($s+=ord$&)/++$c!ge

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

bash-4.3$ perl -pe 's!.!chr.5+($s+=ord$&)/++$c!ge' <<< 'StackExchange'
Sdccd_ccccddd

C # 189 135 134 106 байт

var x=s.Select((t,i)=>Math.Round(s.Select(a=>(int)a).Take(i+1).Average())).Aggregate("",(m,c)=>m+(char)c);

Можно увидеть здесь

Первый раз игрок в гольф

К, 36 байт

`0:_ci_.5+{(+/x)%#x}'.0+1_|(-1_)\_ic

Использование:

  `0:_ci_.5+{(+/x)%#x}'.0+1_|(-1_)\_ic"Hello!"
HW^adY
  `0:_ci_.5+{(+/x)%#x}'.0+1_|(-1_)\_ic"test"
tmop
  `0:_ci_.5+{(+/x)%#x}'.0+1_|(-1_)\_ic"42"
43
  `0:_ci_.5+{(+/x)%#x}'.0+1_|(-1_)\_ic"StackExchange"
Sdccd_ccccddd

_ci а также _ic преобразовать ASCII в символы и наоборот, соответственно. {(+/x)%#x}это классическая идиома для вычисления среднего. Довольно просто в целом.

Редактировать: о, неправильно прочитал спецификацию. `0: необходимо для вывода результата в стандартный вывод. Жду разъяснений по поводу ввода ре. Вопрос Денниса

Mathematica, 75 байт

FromCharacterCode@Floor[.5+Accumulate@#/Range@Length@#]&@ToCharacterCode@#&

Юлия, 85 81 байт

s->(i=[int(c)for c=s];print(join([char(iround(mean(i[1:j])))for j=1:length(i)])))

Это создает безымянную функцию, которая принимает строку и создает вектор ее кодовых точек ASCII. Средство берется для каждой последовательной группы, округляется до целых чисел, преобразуется в символы, объединяется в строку и печатается в STDOUT.

Руби, 46

s=0.0
$<.bytes{|b|s+=b;$><<'%c'%(0.5+s/$.+=1)}

ideone .

С извинениями перед w0lf мой ответ оказался настолько отличным, что казалось, что его стоит опубликовать.

$<.bytesперебирает каждый байт в stdin, поэтому мы печатаем скользящее среднее в каждом цикле. «% c» преобразует число с плавающей точкой в ​​символ, округляя и беря ASCII, поэтому все, что нам нужно сделать, это добавить 0,5, чтобы сделать его округленным правильно.$.это магическая переменная, которая начинается с нуля - она ​​должна хранить счетчик строк, но, поскольку здесь нам нужно количество байтов, мы просто увеличиваем его вручную.

Mathcad, 60 "байтов"

Mathcad - это математическое приложение, основанное на двухмерных рабочих листах, состоящих из «областей», каждая из которых может быть текстом, математическим выражением, программой, графиком или компонентом со скриптом.

Математическая или программная инструкция выбирается из панели инструментов палитры или вводится с помощью сочетания клавиш. В целях игры в гольф под операцией («байтом») понимается количество операций клавиатуры, необходимых для создания имени или выражения (например, чтобы установить для переменной a значение 3, мы бы написали a: = 3. Оператор определения : = это одно нажатие клавиши «:», а являются и 3 дает в общей сложности 3 «байт» программированию. для оператора требует ввода CTL-shft- # (или одним нажатием кнопки на панели инструментов программирования) , чтобы снова эквивалентно 1 байт

В Mathcad пользователь вводит команды языка программирования, используя сочетания клавиш (или выбирая их на панели инструментов программирования), а не записывая их в тексте. Например, при вводе ctl-] создается оператор цикла while, который имеет два «заполнителя» для ввода условия и одну строку тела соответственно. Тип = в конце выражения Mathcad заставляет Mathcad вычислить выражение.

(Количество байтов). Рассматривая его с точки зрения пользовательского ввода и приравнивая одну операцию ввода Mathcad (обычно клавиатура, щелчок мыши на панели инструментов, если нет ярлыка kbd) к символу и интерпретируя его как байт. csort = 5 байт, поскольку он набирается символ за символом, как и другие имена переменных / функций. Оператор for - это специальная конструкция, которая занимает 11 символов (включая 3 пустых "заполнителя" и 3 пробела), но вводится с помощью ctl-shft- #, следовательно, = 1 байт (аналогично токенам в некоторых языках). Ввод '(цитата) создает сбалансированные скобки (обычно), поэтому считается 1 байт. Индексирование v = 3 байта (тип v [k).

Python 3, 66 байт

Если я использую round()вместо int(.5+и т. Д., Он сохраняет один символ, но технически не соответствует задаче: Pythonround() раунды делятся пополам до ближайшего четного числа, а не вверх. Тем не менее, он работает правильно на всех входах образца.

Я также чувствую себя немного грязно из-за того, что не заканчиваю вывод новой строкой, но для этого не нужно ...

n=t=0
for c in input():n+=1;t+=ord(c);print(end=chr(int(.5+t/n)))

JavaScript (ES6), 75 байт

let f =
s=>s.replace(/./g,x=>String.fromCharCode((t+=x.charCodeAt())/++i+.5),i=t=0)

<input oninput="O.value=f(this.value)" value="Hello!"><br>
<input id=O value="HW^adY" disabled>

Я не могу поверить, что пока нет ответа JS с этой техникой ...

Python 2, 71

i=s=0
r=''
for c in input():s+=ord(c);i+=1.;r+=chr(int(s/i+.5))
print r

С каждым новым символом обновляется сумма символов sи количество символов iдля вычисления и добавления среднего символа.

Рубин 59 61

->w{s=c=0.0;w.chars.map{|l|s+=l.ord;(s/c+=1).round.chr}*''}

Тест: http://ideone.com/dT7orT

Ява, 100

Как и многие другие ответы здесь, я суммирую и усредняю ​​в цикле. Просто здесь, чтобы представлять Java :)

void f(char[]z){float s=0;for(int i=0;i<z.length;System.out.print((char)Math.round(s/++i)))s+=z[i];}

Мой оригинальный код 97, но он возвращает только измененный, char[]а не распечатывает его:

char[]g(char[]z){float s=0;for(int i=0;i<z.length;z[i]=(char)Math.round(s/++i))s+=z[i];return z;}

Теперь это просто достаточно долго для скроллинга появляться для меня, так вот версия с некоторыми разрывами строк, только потому , что:

void f(char[]z){
    float s=0;
    for(int i=0;
            i<z.length;
            System.out.print((char)Math.round(s/++i)))
        s+=z[i];
}

C 62 байта

c;t;main(n){for(;(c=getchar())>0;n++)putchar(((t+=c)+n/2)/n);}

(ссылка идеально)

Результаты немного отличаются от примеров OP, но только потому, что этот код округляет 0.5 вместо повышения. Уже нет!

R 135 127 байт

Это стало очень быстро, и я действительно ошибся с первого раза :) Нужно правильно прочитать вопросы.

cat(sapply(substring(a<-scan(,''),1,1:nchar(a)),function(x)rawToChar(as.raw(round(mean(as.integer(charToRaw(x)))+.5)))),sep='')

Тестовый забег

cat(sapply(substring(a<-scan(,''),1,1:nchar(a)),function(x)rawToChar(as.raw(round(mean(as.integer(charToRaw(x)))+.5)))),sep='')
1: Hello!
2: 
Read 1 item
HW^adY

Perl 5, 41 байт

say map{$s+=ord;chr($s/++$c+.5)}pop=~/./g

беги как

$ perl -E 'say map{$s+=ord;chr($s/++$c+.5)}pop=~/./g' StackExchange
Sdccd_ccccddd

TSQL, 118 байт

DECLARE @ varchar(400) = 'StackExchange'

SELECT
top(len(@))char(avg(ascii(stuff(@,1,number,''))+.5)over(order by number))FROM
master..spt_values
WHERE'P'=type

Возвращение символов по вертикали

S
d
c
c
d
_
c
c
c
c
d
d
d

> <> , 30 байт

i:0(?v
v &l~<
\+l2(?
\&,12,+o;

• Первая строка читает из stdin и помещает символы в стек
• Второй удалит EOL char, возьмет размер стека и поместит его в &регистр
• Третья строка добавит числа в стек, в то время как их два или более
• Четвертая строка разделит полученное число на значение регистра, затем прибавит 1/2, выведет значение в виде символа и остановится. Если перед отображением символа указано значение с плавающей запятой,> <> будет иметь значение, поэтому мы добавили 1/2

Вы можете попробовать его на онлайн-переводчике, но затем вам нужно будет использовать следующую версию, потому что онлайн-переводчик помещает поле кода в прямоугольник и применяется ?к пробелам.

i:0(?v
v &l~<
\+l2(   ?
\&,12,+o;

05AB1E , 15 байт [Не конкурирует?]

.pvyDSÇOsg/îç}J

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

Japt , 13 байт (не конкурирует)

£T±Xc)/°Y r d

Проверьте это онлайн!

Как это работает

£   T± Xc)/° Y r d
mXY{T+=Xc)/++Y r d}
                     // Implicit: U = input string, T = 0
mXY{              }  // Replace each char X and index Y in the string by this function:
    T+=Xc            //   Add X.charCodeAt() to T.
         )/++Y       //   Take T / (Y + 1).
               r d   //   Round, and convert to a character.
                     // Implicit: output result of last expression

Japt , 11 байт

c@V±X /°T r

Попытайся

PHP , 176 байт

<?=(implode('',array_reduce(str_split($argv[1]),function($c,$k){array_push($c[1],chr(floor(((ord($k)+$c[0])/(count($c[1])+1))+0.5)));return[ord($k)+$c[0],$c[1]];},[0,[]])[1]));

Пример:

>php cg.php Hello!
HW^adY
>php cg.php test  
tmop
>php cg.php 42
43

Самое большое решение на данный момент, но я думаю, что на основе php оно не может быть намного короче. 2 байта можно сохранить, удалив символы новой строки.

JavaScript ES7, 122 байта

s=>String.fromCharCode(...[for(i of s)i.charCodeAt()].map((l,i,a)=>Math.round(eval((t=a.slice(0,++i)).join`+`)/t.length)))

В основном все происходит в этом бите

eval((t=a.slice(0,++i)).join`+`)/t.length)

Остальное зацикливание / преобразование кодов символов

Разделить:

s=> 
 String.fromCharCode(...                        ) // Converts average character code array to string, ... allows it to take an array
   [for(i of s)i.charCodeAt()]                    // Converts string to char code array
   .map((l,i,a)=>                             )   // Loops through each character
     Math.round(                    /t.length)    // Rounds sum of previous char codes, divides by position + 1
       eval(                       )              // evals string of char codes seperated with +
            (                ).join`+`            // joins previous char codes with +
             t=a.slice(0,++i)                     // creates an array with all the char codes

Если функции не разрешены:

alert(String.fromCharCode(...[for(i of prompt())i.charCodeAt()].map((l,i,a)=>Math.round(eval((t=a.slice(0,++i)).join`+`)/t.length))))

_{133 байта}

Фрагмент ES5:

function _toConsumableArray(r){if(Array.isArray(r)){for(var e=0,t=Array(r.length);e<r.length;e++)t[e]=r[e];return t}return Array.from(r)}function _taggedTemplateLiteral(r,e){return Object.freeze(Object.defineProperties(r,{raw:{value:Object.freeze(e)}}))}var _templateObject=_taggedTemplateLiteral(["+"],["+"]),f,t=function t(s){return String.fromCharCode.apply(String,_toConsumableArray(function(){var r=[],e=!0,t=!1,a=void 0;try{for(var n,i=s[Symbol.iterator]();!(e=(n=i.next()).done);e=!0){var o=n.value;r.push(o.charCodeAt())}}catch(l){t=!0,a=l}finally{try{!e&&i["return"]&&i["return"]()}finally{if(t)throw a}}return r}().map(function(l,i,a){return Math.round(eval((f=a.slice(0,++i)).join(_templateObject))/f.length)})))};

// Demo
document.getElementById('go').onclick=function(){
  document.getElementById('output').innerHTML = t(document.getElementById('input').value)
};

<div style="padding-left:5px;padding-right:5px;"><h2 style="font-family:sans-serif">Average of Words Snippet</h2><div><div  style="background-color:#EFEFEF;border-radius:4px;padding:10px;"><input placeholder="Text here..." style="resize:none;border:1px solid #DDD;" id="input"><button id='go'>Run!</button></div><br><div style="background-color:#EFEFEF;border-radius:4px;padding:10px;"><span style="font-family:sans-serif;">Output:</span><br><pre id="output" style="background-color:#DEDEDE;padding:1em;border-radius:2px;overflow-x:auto;"></pre></div></div></div>

Python 2, 106 байт

Это не достаточно коротко. Поскольку это python, он слишком многословен, вы даже можете прочитать, что он делает, посмотрев код. Но это работает.

a=[.0]+[ord(i)for i in raw_input()]
print"".join([chr(int(.5+(sum(a[:i+1])/i)))for i in range(1,len(a))])

Матлаб, 43

Использование анонимной функции:

f=@(s)char(round(cumsum(+s)./(1:numel(s))))

Примеры:

>> f=@(s)char(round(cumsum(+s)./(1:numel(s))))
f = 
    @(s)char(round(cumsum(+s)./(1:numel(s))))

>> f('Hello!')
ans =
HW^adY

>> f('test')
ans =
tmop

>> f('42')
ans =
43

>> f('StackExchange')
ans =
Sdccd_ccccddd

JavaScript ES6, 111 байт

w=>w.replace(/./g,(_,i)=>String.fromCharCode([for(f of w.slice(0,++i))f.charCodeAt()].reduce((a,b)=>a+b)/i+.5))

Это очень долго, отчасти благодаря JavaScript String.fromCharCodeи charCodeAtфункциям JavaScript . Фрагмент стека содержит некомментированный, прокомментированный, тестируемый код.

f=function(w){
  return w.replace(/./g,function(e,i){
    return String.fromCharCode(w.slice(0,++i).split('').map(function(f){
      return f.charCodeAt()
    }).reduce(function(a,b){
      // Adds all numbers in the array
      return a+b
      // String.fromCharCode automatically floors numbers, so we add .5 to round up
    })/i+.5)
  })
}

run=function(){document.getElementById('output').innerHTML=f(document.getElementById('input').value)};document.getElementById('run').onclick=run;run()

<input type="text" id="input" value="Hello!" /><button id="run">Run</button><br />
<pre id="output"></pre>

Фактор, 80 байтов

[ cum-sum [ dup zero? 1 0 ? + / ] map-index [ .5 + floor >fixnum ] map >string ]