กำหนดสตริงของอักขระ ASCII ส่งออกอักขระที่อยู่ตรงกลาง หากไม่มีอักขระกลาง (เมื่อสตริงมีความยาวเท่ากัน) เอาท์พุทอักขระ ASCII ที่มีลำดับเป็นค่าเฉลี่ยที่ปูพื้นของอักขระกลางสองตัว หากสตริงว่างเปล่าสตริงว่างควรเป็นเอาต์พุต

กรณีทดสอบ:

12345 => 3

Hello => l

Hiya => q

(empty input) => (empty output)

โปรแกรมที่สั้นที่สุดในตัวละครชนะ (ไม่ใช่ไบต์)

ลีดเดอร์บอร์ด

สแต็คส่วนย่อยที่ด้านล่างของโพสต์นี้สร้างกระดานแต้มนำจากคำตอบ a) เป็นรายการคำตอบสั้นที่สุดต่อภาษาและ b) เป็นกระดานแต้มนำโดยรวม

เพื่อให้แน่ใจว่าคำตอบของคุณปรากฏขึ้นโปรดเริ่มคำตอบด้วยหัวข้อโดยใช้เทมเพลต Markdown ต่อไปนี้:

## Language Name, N characters 

ที่Nมีขนาดของส่งของคุณ หากคุณปรับปรุงคะแนนของคุณคุณสามารถเก็บคะแนนเก่าไว้ในพาดหัวโดยการตีพวกเขาผ่าน ตัวอย่างเช่น

## Ruby, <s>104</s> <s>101</s> 96 characters 

หากคุณต้องการรวมหลายตัวเลขไว้ในส่วนหัวของคุณ (เช่นเนื่องจากคะแนนของคุณคือผลรวมของสองไฟล์หรือคุณต้องการแสดงรายการการลงโทษการตั้งค่าสถานะของล่ามแยกต่างหาก) ตรวจสอบให้แน่ใจว่าคะแนนจริงเป็นตัวเลขสุดท้ายในส่วนหัว:

## Perl, 43 + 2 (-p flag) = 45 characters 

คุณสามารถทำให้ชื่อภาษาเป็นลิงค์ซึ่งจะปรากฏในตัวอย่างข้อมูล:

## [><>](http://esolangs.org/wiki/Fish), 121 characters 

<style>body { text-align: left !important} #answer-list { padding: 10px; width: 290px; float: left; } #language-list { padding: 10px; width: 290px; float: left; } table thead { font-weight: bold; } table td { padding: 5px; }</style><script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="language-list"> <h2>Shortest Solution by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr> </thead> <tbody id="languages"> </tbody> </table> </div> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr> </thead> <tbody id="answers"> </tbody> </table> </div> <table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr> </tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr> </tbody> </table><script>var QUESTION_ID = 64599; var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe"; var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk"; var OVERRIDE_USER = 47556; var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page; function answersUrl(index) { return "https://api.stackexchange.com/2.2/questions/" + QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER; } function commentUrl(index, answers) { return "https://api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER; } function getAnswers() { jQuery.ajax({ url: answersUrl(answer_page++), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { answers.push.apply(answers, data.items); answers_hash = []; answer_ids = []; data.items.forEach(function(a) { a.comments = []; var id = +a.share_link.match(/\d+/); answer_ids.push(id); answers_hash[id] = a; }); if (!data.has_more) more_answers = false; comment_page = 1; getComments(); } }); } function getComments() { jQuery.ajax({ url: commentUrl(comment_page++, answer_ids), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { data.items.forEach(function(c) { if (c.owner.user_id === OVERRIDE_USER) answers_hash[c.post_id].comments.push(c); }); if (data.has_more) getComments(); else if (more_answers) getAnswers(); else process(); } }); } getAnswers(); var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/; var OVERRIDE_REG = /^Override\s*header:\s*/i; function getAuthorName(a) { return a.owner.display_name; } function process() { var valid = []; answers.forEach(function(a) { var body = a.body; a.comments.forEach(function(c) { if(OVERRIDE_REG.test(c.body)) body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>'; }); var match = body.match(SCORE_REG); if (match) valid.push({ user: getAuthorName(a), size: +match[2], language: match[1], link: a.share_link, }); else console.log(body); }); valid.sort(function (a, b) { var aB = a.size, bB = b.size; return aB - bB }); var languages = {}; var place = 1; var lastSize = null; var lastPlace = 1; valid.forEach(function (a) { if (a.size != lastSize) lastPlace = place; lastSize = a.size; ++place; var answer = jQuery("#answer-template").html(); answer = answer.replace("{{PLACE}}", lastPlace + ".") .replace("{{NAME}}", a.user) .replace("{{LANGUAGE}}", a.language) .replace("{{SIZE}}", a.size) .replace("{{LINK}}", a.link); answer = jQuery(answer); jQuery("#answers").append(answer); var lang = a.language; lang = jQuery('<a>'+lang+'</a>').text(); languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang.toLowerCase(), user: a.user, size: a.size, link: a.link}; }); var langs = []; for (var lang in languages) if (languages.hasOwnProperty(lang)) langs.push(languages[lang]); langs.sort(function (a, b) { if (a.lang_raw > b.lang_raw) return 1; if (a.lang_raw < b.lang_raw) return -1; return 0; }); for (var i = 0; i < langs.length; ++i) { var language = jQuery("#language-template").html(); var lang = langs[i]; language = language.replace("{{LANGUAGE}}", lang.lang) .replace("{{NAME}}", lang.user) .replace("{{SIZE}}", lang.size) .replace("{{LINK}}", lang.link); language = jQuery(language); jQuery("#languages").append(language); } }</script>

Pyth, 15 ไบต์

Cs.O@R/lz2_BCMz

สาธิต

เริ่มต้นด้วย "Hiya" เป็นอินพุต:

              z    "Hiya"                                      Input
            CM     [72, 105, 121, 97]                          Character values
          _B       [[72, 105, 121, 97], [97, 121, 105, 72]]    Pair with reversal
      /lz2         2                                           Halfway index
    @R             [121, 105]                                  That element in each
  .O               113.0                                       Average
 s                 113                                         Floor
C                  "q"                                         Cast to character
                   q                                           Print implicitly

โปรดทราบว่าสิ่งนี้ขัดข้องด้วยข้อผิดพลาดในอินพุตว่างและพิมพ์ไม่มีอะไรไปยัง STDOUT ซึ่งเป็นวิธีที่ถูกต้องในการส่งออกสตริงว่างเปล่าโดยค่าเริ่มต้นของรหัสกอล์ฟ

Brainf ***, 61 bytes

อักษรจีน 16 ตัว

สิ่งนี้ต้องการอินพุตอยู่ในช่วง ASCII 1-127 และสิ้นสุดด้วยค่า null มันจะลบคู่ของอักขระจากจุดเริ่มต้นและจุดสิ้นสุดของสตริงจนกว่าจะมีหนึ่งหรือสองตัวอักษรที่เหลืออยู่ หากมีสองมันจะรวมเข้าด้วยกันจากนั้นหารด้วย 2 ปัดเศษลง อักขระที่เหลือจะถูกพิมพ์

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

ลองใช้กับล่ามนี้

ผ่า:

,[>,]         Get the null terminated input
<<<           Move to the second last character
[             While there are at least 3 characters
  [<]>           Move to the first character
  [-]            Delete it
  >[>]<          Move to the last character
  [-]            Delete it
  <<<            Move the the third last character
]
>              Move to the second last character
[              If there are two characters remaining
  [->+<]         Add the two characters together
  >[-[-<+<]>>]   Divide the character by 2 rounding down
  <[>]<[>]<<     Move to before the character to exit the if loop
]
>.             Print the remaining character

* เนื่องจากแต่ละคำสั่งสามารถบีบอัดได้ถึง 3 บิตและเข้ารหัสใน UTF-32 โปรแกรมทั้งหมดสามารถแสดงผลทางเทคนิคด้วยอักขระ 6 ตัว

แก้ไข:และขอบคุณม.ค. Dvorakสำหรับการแนะนำให้ฉันไปจีนซึ่งบีบอัดนี้เป็น 16 ตัวอักษรที่ตราไว้กับเดนนิส คำตอบ CJam

蜐蕈帑聿纂胯箩悚衅鹊颂鹛拮拮氰人

CJam, 16 ไบต์

q:i_W%.+_,2/=2/c

ลองออนไลน์!

มันทำงานอย่างไร

q                e# Read all input.
 :i              e# Cast each character to integer.
   _W%           e# Push a reversed copy.
      .+         e# Perform vectorized addition.
        _,2/     e# Get the length, divided by 2.
            =    e# Select the corresponding sum.
             2/c e# Divide by 2 and cast to character.

TeaScript , 23 ไบต์ 25 30 31 33

²(x[t=xn/2]c+xv[t]c)/2)

ใช้แนวคิดของ @ isaacg ในการย้อนกลับสตริง

ลองออนไลน์

ทดสอบทุกกรณี

Ungolfed && คำอธิบาย

TeaScript ยังคงเป็น JavaScript ดังนั้นมันจึงทำหน้าที่เหมือน JavaScript ได้เช่นกัน

C((x[t=xn/2]c+xv[t]c)/2)

C((           // Char code to char
   x[t=xn/2]c // Floored center
   +          // Add to
   xv[t]c     // Ceil'd center
  ) / 2)      // Divide by 2

Matlab, 39 37 ไบต์

floor((end+[1,2])/2) ส่งกลับดัชนีกลางสองของสตริงถ้าความยาวเท่ากันและส่งกลับดัชนีกลางสองครั้งหากความยาวเป็นเลขคี่

meanเพียงแค่คืนค่าเฉลี่ยของค่าเหล่านั้นและcharทำการจัดระดับโดยอัตโนมัติ

@(s)char(mean(s(floor(end/2+[.5,1]))))

รหัสเครื่อง 8086 + DOS, 31 ไบต์

hexdump:

BA 1E 01 B4 0A CD 21 8B F2 46 8A 1C D0 EB 8A 50
01 72 06 74 08 02 10 D0 EA B4 02 CD 21 C3 FF

รหัสแหล่งประกอบ (สามารถประกอบกับ Tasm):

    .MODEL TINY

    .CODE
    org 100h

    MAIN PROC

    mov dx, offset buf
    mov ah, 10      ; DOS function "read string"
    int 21h

    mov si, dx
    inc si          ; si now points to the length of the string
    mov bl, [si]    ; 
    shr bl, 1       ; divide the length by 2
    mov dl, [si+bx+1] ; load the middle char
    jc calc_done    ; if length was odd - done
    jz output_done  ; if length was zero - exit
    add dl, [si+bx] ; add the other middle char
    shr dl, 1       ; divide by 2
calc_done:
    mov ah, 2       ; DOS function "output char"
    int 21h
output_done:
    ret

buf db 255          ; maximum bytes to input

    MAIN ENDP
    END MAIN

มีการใช้ FLAGS ที่ละเอียดอ่อนลงทะเบียนที่นี่ หลังจากเลื่อนความยาวของสตริงไปทางขวา 1 บิต (ซึ่งเทียบเท่ากับการหารด้วย 2) แฟล็กสองตัวจะเก็บข้อมูลเพิ่มเติม:

• ดำเนินการตั้งค่าสถานะ: ประกอบด้วยบิตที่ถูกเลื่อนออก ถ้าบิตเป็น 1 ความยาวก็แปลก
• การตั้งค่าสถานะเป็นศูนย์: แสดงว่าผลลัพธ์เป็นศูนย์หรือไม่ หากแฟล็ก carry เป็น 0 และแฟล็ก zero คือ 1 ความยาวเป็นศูนย์และไม่ควรพิมพ์อะไรเลย

โดยปกติควรตรวจสอบสถานะทันที แต่ที่นี่ฉันใช้ความจริงที่ว่าmovคำสั่งไม่เปลี่ยนสถานะ ดังนั้นพวกเขาสามารถตรวจสอบได้หลังจากโหลดถ่านกลาง

Python 3, 61 59 57 55 ไบต์

ฉันพยายามไม่เล่นกอล์ฟด้วยภาษาที่ฉันใช้ แต่มันก็ไม่ได้เลวร้ายอะไร

ขอบคุณ @xsot สำหรับ 2 ไบต์!

lambda x:chr((ord(x[len(x)//2])+ord(x[~len(x)//2]))//2)

โปรแกรมเต็มรูปแบบคือ 59 ไบต์:

x=input()
l=len(x)//2
print(chr((ord(x[l])+ord(x[~l]))//2))

ลองมันนี่

Prolog, 111 ไบต์

รหัส

p(X):-atom_codes(X,L),length(L,N),I is N//2,J is(N-1)//2,nth0(I,L,A),nth0(J,L,B),Q is(A+B)//2,writef('%n',[Q]).

อธิบาย

p(X):-atom_codes(X,L),       % Convert to list of charcodes
      length(L,N),           % Get length of list
      I is N//2,             % Get mid index of list
      J is(N-1)//2,          % Get 2nd mid index of list if even length
      nth0(I,L,A),           % Get element at mid index
      nth0(J,L,B),           % Get element at 2nd mid index
      Q is(A+B)//2,          % Get average of elements at mid indices
      writef('%n',[Q]).      % Print as character

ตัวอย่าง

>p('Hello').
l

>p('Hiya').
q

R , 73 ไบต์

function(x,y=utf8ToInt(x),n=sum(1|y))if(n)intToUtf8(mean(y[n/2+c(1,.5)]))

ลองออนไลน์!

ขอบคุณ @ngm มากสำหรับการคิดไอเดียแบบเรียกซ้ำ - อนุญาตให้เล่นกอล์ฟขนาด 20 ไบต์

โซลูชันเก่า:

R , 101 95 ไบต์

"!"=function(x,n=sum(1|x))"if"(n<3,mean(x),!x[-c(1,n)])
try(intToUtf8(!utf8ToInt(scan(,""))),T)

ลองออนไลน์!

โซลูชันแบบเรียกซ้ำ แก้ไขปัญหาเดียวที่ราคา 2 ไบต์:

• เพิ่มtry(expr, silent = TRUE)เพื่อจัดการกรณีและปัญหาที่อินพุตว่างอย่างเหมาะสม

ขอบคุณ Giusppe สำหรับ 4 ไบต์!

Husk , 11 ไบต์

c½S¤+öc→←½↔

ลองออนไลน์!

คำอธิบาย

Combinators แสนอร่อยและอร่อยตลอดทาง öคือ "เขียนฟังก์ชันทั้งสี่นี้" ¤คือ "ใช้อาร์กิวเมนต์แรกกับผลลัพธ์ของการใช้อาร์กิวเมนต์ที่สองกับสองอาร์กิวเมนต์เพิ่มเติมแยกกัน" Sคือ "ใช้ฟังก์ชันนี้ (ซึ่งควรใช้สองอาร์กิวเมนต์) กับSอาร์กิวเมนต์ที่สามของผลลัพธ์ ของการใช้Sอาร์กิวเมนต์ที่สองกับข้อสาม ". ดังนั้น,

   Function       Type                Semantics
     öc→←½        [TChar]->TInt       ASCII code of middle (floored) char in string
   ¤+öc→←½        [TC]->[TC]->TI      Sum of ASCII codes of middle of two strings
  S¤+öc→←½↔       [TC]->TI            Sum of ASCII codes of the middle of a string and its reverse
c½S¤+öc→←½↔       [TC]->TC            ASCII character represented by half the above, QEF

แก้ไขเพื่อเพิ่ม: การพูดอย่างเคร่งครัดสิ่งนี้ล้มเหลวเล็กน้อยเพื่อให้สอดคล้องกับข้อมูลจำเพาะปัญหาซึ่งร้องขอสตริงในกรณีของอินพุตว่างและอักขระในกรณีอื่น

เนื่องจากการพิมพ์ที่เข้มงวดของ Husk ทำให้ไม่สามารถกำหนดฟังก์ชั่น / โปรแกรมที่สามารถส่งคืนทั้งสองประเภทได้ ฉันเลือกที่จะส่งคืนอักขระเดี่ยวในทุกกรณีและสำหรับ Husk ตัวเลือกที่เหมาะสมที่สุดสำหรับอักขระเดียวเพื่อแสดงสตริงว่างเปล่านั้นเป็น'(space)'เพราะนั่นคือค่า "เริ่มต้น" (และในความเป็นจริงนั่นคือสาเหตุที่โปรแกรมนี้ส่งคืนค่าเริ่มต้น มูลค่าจะใช้เมื่อใช้รายการสุดท้าย ( →) ของรายการที่ว่างเปล่า)

ฉันสามารถเลือกที่จะส่งคืนสตริงที่มีค่าศูนย์หรืออักขระหนึ่งตัวได้อย่างสมเหตุสมผลซึ่งอาจล้มลงสเปคในทิศทางอื่น แต่ฉันไม่ได้เพราะมันเพิ่มสี่ไบต์: Ṡ&ö;c½S¤+öc→←½↔ด้วยการ;แปลงอักขระเป็นสตริงหนึ่งอักขระอีกตัวöเพื่อเขียนความจำเป็นอย่างชัดเจนและ a Ṡ&ถึงทางลัดในกรณีของการป้อนข้อมูลที่ผิดพลาด

C ++ 14, 56 ไบต์

[](auto s){int l=s.size();return(s[(l-1)/2]+s[l/2])/2;};

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

Ungolfed ด้วยการใช้งาน

#include <string>
int main()
{
    auto lmbd = [](auto str)
    {
        int len = str.size();
        return (str[(len - 1) / 2] + str[len / 2]) / 2;
    };

    std::cout << (char) lmbd("Hiya"s) << std::endl; // outputs q
}

JavaScript (ES6), 83 ไบต์89 91

บันทึก 2 ไบต์ต้องขอบคุณ @ CᴏɴᴏʀO'Bʀɪᴇɴ

บันทึกแล้ว 6 ไบต์ด้วย @ETHproductions

s=>String.fromCharCode((s[~~(t=s.length/2-.5)][q='charCodeAt']()+s[0|t+.9][q]())/2)

JavaScript ไม่ดีเกินไปสำหรับรหัส char สตริงนี้

O , 44 34 ไบต์

^{ข้ามออก 44 ยังคงเป็นปกติ 44 :(}

ise.eJ;2/m[(\($L;dJ{#\#+2/c}L;?o];

จำนวนไบต์ที่สูญเปล่า:

• ตรวจสอบความยาวของอินพุตว่าเป็นเลขคู่หรือคี่
• รับตัวอักษรกลาง

Minkolang 0.13 , 23 20 ไบต์

$oI2$%d$z,-Xz3&+2:O.

ลองที่นี่

คำอธิบาย

$o        Read in the whole stack as characters
I2$%      Push I,2, then pop them and push I//2,I%2
d$z       Duplicate top of stack (I%2) and store in register (z)
,-X       <not> the top of stack, subtract, and dump that many off the top of stack
z3&       Retrieve value from register and jump 3 spaces if this is not zero
   +2:    Add and then divide by 2
O.        Output as character and stop.

Japtap , 40 29 23 21 20 ไบต์

บันทึกแล้ว 4 ไบต์ขอบคุณ @ ןnɟuɐɯɹɐןoɯ

ตอนนี้มีเพียงครึ่งหนึ่งของความยาวดั้งเดิม! ฉันรักรหัสกอล์ฟ :-D

UcV=K*Ul)+Uw cV)/2 d

ทำงานอย่างถูกต้องกับสตริงว่าง ลองออนไลน์!

มันทำงานอย่างไร

          // Implicit: U = input string, K = 0.5
Uc        // Take the char-code at position
 V=K*Ul   //  V = 0.5 * length of U
+         //  (auto-floored), plus
Uw cV     //  the char-code at position V (auto-floored) in the reversed string,
/2 d      //  divide by 2, and turn back into a character (auto-floored).
          // Implicit: output last expression

อย่างที่คุณเห็นมันใช้พื้นรถยนต์จำนวนมาก (ขอบคุณจาวาสคริปต์!) ยินดีต้อนรับข้อเสนอแนะ!

ไปที่166 156 153 ไบต์

Go อาจไม่ใช่ภาษาที่ดีที่สุดสำหรับการเล่นกอล์ฟ ... แต่ฉันรักมันมากและฉันกำลังเรียนรู้อยู่ที่นั่น

การใช้งานนี้ยอมรับ\nอินพุตว่างเปล่า ( ) และอาจแตกด้วยอินพุตที่ไม่ใช่ส่วนขยาย ASCII / ASCII อย่างไรก็ตาม OP ไม่ได้ระบุการเข้ารหัสอินพุต / เอาต์พุตดังนั้น ASCII จึงสนับสนุนทั้งหมดอย่างชัดเจน

แก้ไข : จะเปิดออกif/ else เป็นswitchที่สั้นกว่า ตอนนี้ฉันรู้แล้วฉันคิดว่า

แข็งแรงเล่นกอล์ฟ:

package main;import ."fmt";func main(){a:="";_,_=Scanln(&a);if b:=len(a);b>0{x:=b/2;if b%2==0{Printf("%c",(a[x]+a[x+1])/2)}else{Println(string(a[x]))}}}

Ungolfed:

package main # everything in go is a package.

import . "fmt" # the dot allows for absolute package method references 
# (think "from string import *" in python)

func main() {
    a := ""
    _, _ = Scanln(&a) # a pointer to a
    if b := len(a); b > 0 { # if statements allow local assignment statements
        x := b / 2
        if b%2 == 0 { # modulo 2 is the easiest way to test evenness
#in which case, average the charcodes and print the result
            Printf("%c", (a[x]+a[x+1])/2)
        } else {
# else just find the middle character (no rounding needed; integer division in Go always results in an integer)
            Println(string(a[x]))
        }
    }
}

𝔼𝕊𝕄𝕚𝕟, 23 ตัวอักษร

a=ïꝈ/2,ϚĎ((ïüa+ᴙïüa)/2)

Try it here (Firefox only).

ขอบคุณ @ETHProductions สำหรับแนวคิดนี้!

C #, 77 ไบต์

s=>{int n=s.Length;return n<1?' ':(char)(n%2>0?s[n/2]:(s[n/2-1]+s[n/2])/2);};

มันจะไม่ส่งคืนสตริงและคุณจะได้รับอักขระเว้นวรรคหากสตริงอินพุตว่างเปล่าเพราะฟังก์ชันจะต้องส่งคืนค่าเสมอ จำเป็นต้องมีไบต์เพิ่มอีก 2 ไบต์เพื่อส่งคืนสตริง

โปรแกรมเต็มรูปแบบพร้อมกรณีทดสอบ:

using System;

namespace FindTheCenter
{
    class Program
    {
        static void Main(string[] args)
        {
            Func<string,char>f= s=>{int n=s.Length;return n<1?' ':(char)(n%2>0?s[n/2]:(s[n/2-1]+s[n/2])/2);};   //77 bytes
            Console.WriteLine(f(""));
            Console.WriteLine(f("Hello"));
            Console.WriteLine(f("Hiya"));
        }
    }
}

อีกทางหนึ่งคือโปรแกรมเต็มรูปแบบที่อ่านอินพุตของผู้ใช้และพิมพ์จุดกึ่งกลางของสตริงที่ป้อน:

C #, 144 ไบต์

using C=System.Console;class P{static void Main(){var s=C.ReadLine();int n=s.Length;C.Write(n<1?' ':(char)(n%2>0?s[n/2]:(s[n/2-1]+s[n/2])/2));}}

อีกครั้งมันใช้เคล็ดลับเดียวกันกับการพิมพ์อักขระเว้นวรรคซึ่งผู้ใช้จะไม่สังเกตเห็นและไม่ใช่สตริงว่างมิฉะนั้นโซลูชันจะยาวกว่า 2 ไบต์

เป็นกลุ่ม, 38 24 23 การกดแป้น

เพราะเป็นกลุ่มที่มีการสร้างขึ้นในฟังก์ชั่นเพื่อหาสิ่งที่กลางสายแต่ไม่กลาง ถ่านเราแยกตัวละครทุกตัวในบรรทัดที่แยกต่างหากครั้งแรกที่ใช้substituteค้นหาสายกลางแล้วทุกอย่างลบหลังและก่อนที่มันจะ

:s/\./\0\r/g<cr>ddMjdGkdgg

หากคุณต้องการเรียกใช้สิ่งนี้โปรดระวัง.vimrcไฟล์ที่อาจเปลี่ยนพฤติกรรมของ.(magic regex) และg(gdefault) โปรดทราบว่าจริง ๆ แล้วมันช่วยฉัน 3 การกดแป้นบนเครื่องของฉัน :)

คำตอบก่อนหน้า

:exe 'norm '.(virtcol('$')/2).'|d^ld$'

รับบัฟเฟอร์หนึ่งบรรทัดเป็นอินพุตอัพเดตบัฟเฟอร์ปัจจุบันด้วยอักขระกลาง ฉันคิดว่าคงจะมีทางลัดสำหรับเรื่องนี้ในกลุ่ม!

หมายเหตุ: วิธีแก้ปัญหาที่สั้นกว่าอาจก่อให้เกิดการวนซ้ำไม่สิ้นสุด ... หากใครบางคนมีความคิด: qq^x$x@qq@qp(12 การกดแป้นพิมพ์) - มันทำงานได้<c-c>หลังจากครั้งสุดท้าย@q...

Mathematica, 118 99 ตัวอักษร

Floor
If[#=="","",FromCharacterCode[%@Mean@#[[Ceiling[l=Length@#/2];;%[l+1]]]&@ToCharacterCode@#]]&

การจัดการโค้ดอักขระ Mma มีราคาแพง ...

VBA, 130 ไบต์

Function a(q)
h=Len(q):a=Mid(q,(h)/2,2)
If h Mod 2=0 Then:a=Chr((Asc(Left(a,1))+Asc(Right(a,1)))\2):Else:a=Right(a,1)
End Function

ค้นหาตัวละครกลาง 2
ถ้าจำนวนตัวละครเป็นจำนวนคี่จะได้รับ Right of the Middle 2 ซึ่งจะเป็นค่ากลางที่แท้จริงเมื่อเราปัดเศษ
หากไม่รวมasc()ค่าASCII ของ 2 อักขระหารด้วย 2 และส่งคืนอักขระ ASCII chr()ตามค่านั้น

ฉันคิดว่าฉันสามารถตีหนึ่งออกไป asc()สาย แต่ไม่สามารถทำให้สั้นลงได้

K, 40 ไบต์

{(*|r;`c$_(+/r:2#l_x)%2)@l=_l:-1+(#x)%2}

> <>, 24 + 3 (สำหรับ -s) = 27 ไบต์

l1+l4(*9$.~{~
;
o;
+2,o;

โซลูชันเก่า (ไม่ทำงานสำหรับอินพุตที่ว่าง):

l3(?v~{~
?vo;>l2=
;>+2,o

ทั้งสองใช้เวลาป้อนข้อมูลใน stack -sผ่าน ทั้งสองมี 24 ไบต์

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

pb , 83 ไบต์

^<b[1]>>>w[B!0]{<w[B!0]{t[B]<b[T]>>}<b[0]<b[0]<[X]>>}w[B=0]{<}t[B]<[X]t[B+T]vb[T/2]

ในขณะที่มีอย่างน้อย 3 ตัวอักษรในสายป้อนข้อมูลแรกและสุดท้ายจะถูกลบออก สิ่งนี้จะทิ้งไว้ 1 ตัวอักษร (ควรพิมพ์ไม่แปร) หรือ 2 (ควรเป็นค่าเฉลี่ยและพิมพ์) เพื่อจัดการสิ่งนี้อักขระตัวแรกและตัวสุดท้ายของสตริงจะถูกรวมเข้าด้วยกันและหารด้วยสอง ถ้ามีตัวละครเพียงตัว(a+a)/2==aเดียว ถ้ามีสองตัว(a+b)/2คือตัวละครที่ต้องพิมพ์ pb "การยืม" การประเมินผลการแสดงออกของงูหลาม (def expression(e): return eval(e, globals()) ) เพื่อที่จะปูพื้นโดยอัตโนมัติ

การจัดการอินพุตว่างฉันมีค่า 5 ไบต์ โดยเฉพาะ<b[1]>ในบรรทัดแรก ก่อนหน้านี้เมื่อฉันพูดว่า "สตริง" นั่นเป็นคำโกหกทั้งหมด pb ไม่มีสตริง แต่ก็มีตัวละครที่ใกล้เคียงกัน การค้นหา "อักขระตัวสุดท้ายของสตริง" หมายถึงการเลื่อนแปรงไปทางซ้ายจนกว่าจะถึงอักขระ เมื่อไม่มีการป้อนข้อมูลลูป "ในขณะที่มีอย่างน้อย 3 ตัวอักษร" จะถูกข้ามทั้งหมดและจะเริ่มค้นหาอักขระตัวสุดท้าย หากปราศจากสิ่ง<b[1]>นั้นมันจะดูตลอดไป รหัสนั้นทำให้ตัวละครที่มีค่า 1 ที่ (-1, -1) โดยเฉพาะที่จะพบเมื่อการป้อนข้อมูลว่างเปล่า หลังจากค้นหา "อักขระตัวสุดท้าย" ของสตริงแปรงจะถือว่าตัวแรกอยู่ที่ (0, -1) และไปที่นั่นโดยตรงการค้นหาค่า 0 (1+0)/2คือ 0 ใน pb

แต่โมโนเรลนั่นยังพิมพ์อยู่! สเปคความท้าทายพูดว่า(empty input) => (empty output)! การพิมพ์เป็นการโกงอักขระที่ไม่มีค่าหรือไม่? นอกจากนี้ยังไม่เกี่ยวข้อง แต่คุณฉลาดและหล่อ

ขอบคุณผู้ถามคำถามสมมุติ ก่อนหน้านี้เมื่อฉันพูดว่า "พิมพ์" นั่นเป็นคำโกหกทั้งหมด ใน pb คุณไม่ได้พิมพ์ค่าจริง ๆ เพียงแค่วางลงบนผืนผ้าใบ แทนที่จะเป็น "วิธีการส่งออก" มันแม่นยำกว่าที่จะจินตนาการผืนผ้าใบในฐานะอาร์เรย์ 2 มิติขนาดใหญ่ที่ไม่มีที่สิ้นสุด มันช่วยให้ดัชนีลบทั้งสองมิติและการเขียนโปรแกรมจำนวนมากใน pb นั้นเกี่ยวกับการทำให้แน่ใจว่าแปรงไปถึงตำแหน่งบนผืนผ้าใบที่คุณต้องการ เมื่อโปรแกรมดำเนินการเสร็จสิ้นสิ่งใดก็ตามบนผืนผ้าใบที่ไม่มีพิกัด X และ Y ที่ไม่เป็นลบจะถูกพิมพ์ไปยังตำแหน่งที่เหมาะสมบนคอนโซล เมื่อโปรแกรมเริ่มต้นผืนผ้าใบทั้งหมดจะถูกเติมด้วยค่า 0 เพื่อที่จะได้ไม่ต้องพิมพ์จำนวนบรรทัดที่ไม่มีที่สิ้นสุด แต่ละบรรทัดของเอาต์พุตจะพิมพ์เฉพาะอักขระที่ไม่ใช่ศูนย์สุดท้ายเท่านั้นและจะพิมพ์เฉพาะบรรทัดสุดท้ายเท่านั้นที่มีอักขระที่ไม่ใช่ศูนย์ ดังนั้นการใส่0 ที่ (0, 0) ยังคงเป็นเอาต์พุตว่าง

Ungolfed:

^<b[1]>                # Prevent an infinite loop on empty input

>>w[B!0]{              # While there are at least 3 chars of input:

    <w[B!0]{              # Starting at the second character:
            t[B]<b[T]>>         # Copy all characters one position to the left
                                # (Effectively erasing the first character)
    }

    <b[0]<b[0]            # Delete both copies of the last character

    <[X]>>                # Get in place to restart loop
}

w[B=0]{<}                 # Go to last character of remaining string
t[B]<[X]t[B+T]            # Find it plus the first character
vb[T/2]                   # Divide by 2 and print

อย่างจริงจัง , 22 20 ไบต์

,O3 >WXXaXa3 >WXkæ≈c

ขอบคุณ @Mego ที่เก่งภาษาของคุณ

ลองออนไลน์หรืออะไรก็ได้

CoffeeScript, 104 103 ไบต์

f=(x)->((y=x.length)%2&&x[y//2]||y&&String.fromCharCode (x[y/=2][z='charCodeAt']()+x[y-1][z] 0)//2)||''

Ruby, 43 42 41 ไบต์

->a{s=a.size;puts s<1?'':s%2<1??q:a[s/2]}

42 ไบต์

->a{s=a.size;puts s==0?'':s%2<1??q:a[s/2]}

43 ไบต์

->a{s=a.size;puts s==0?'':s%2<1?'q':a[s/2]}

การใช้งาน:

->a{s=a.size;puts s<1?'':s%2<1??q:a[s/2]}['12345']
=> 3

Java 7, 152 ไบต์

String c(String s){char[]a=s.toCharArray();int l=a.length,x,y;return l<2?s:""+(l%2>0?a[l/2]:(char)((x=a[l/2])>(y=a[(l/2)-1])?y+((x-y)/2):x+((y-x)/2)));}

กรณีที่ไม่ได้รับการทดสอบ &:

ลองที่นี่

class M{
  static String c(String s){
    char[] a = s.toCharArray();
    int l = a.length,
            x,
            y;
    return l < 2
            ? s
            : "" + (l%2 > 0
                     ? a[l/2]
                     : (char)((x = a[l/2]) > (y = a[(l/2)-1])
                                ? y + ((x-y)/2)
                                : x + ((y-x)/2)));
  }

  public static void main(String[] a){
    System.out.println(c("12345"));
    System.out.println(c("Hello"));
    System.out.println(c("Hiya"));
    System.out.println(c(""));
    System.out.println(c("x")); // Additional test case that will fail on some other answers
  }
}

เอาท์พุท:

3
l
q
(empty output)
x

PHP, 147 93 ไบต์

เครดิตและขอขอบคุณเป็นพิเศษกับJörgHülsermannสำหรับการเล่นกอล์ฟคำตอบของฉัน 54 ไบต์!

<?=($l=strlen($s=$argv[1]))%2?$s[($l-1)/2]:chr(floor((ord($s‌​[$l/2])+ord($s[$l/2-‌​1]))/2));

รุ่นก่อนหน้า:

$s=$argv[1];$l=strlen($s);echo($l%2!=0?substr($s,$n=($l-1)/2,-$n):chr(floor(abs((ord($x=substr($s,$l/2-1,1))-ord(substr($s,$l/2,1)))/2))+ord($x)));

รหัสการทดสอบ:

$argv[1] = 'Hiya';
$s=$argv[1];
$l=strlen($s);
echo($l%2!=0?substr($s,$n=($l-1)/2,-$n):chr(floor(abs((ord($x=substr($s,$l/2-1,1))-ord(substr($s,$l/2,1)))/2))+ord($x))); 

ทดสอบออนไลน์

ฉันมีความรู้สึกว่าสิ่งนี้สามารถปรับปรุงได้ แต่เวลาไม่เพียงพอสำหรับมัน ...

Excel, 122 79 ไบต์

ที่จริง @Sophia Lechner คำตอบทันที:

=IFERROR(CHAR(CODE(MID(A8,LEN(A8)/2+.5,1))/2+CODE(MID(A8,LEN(A8)/2+1,1))/2),"")

-5 ไบต์จากโซลูชันเริ่มต้นด้วย @Taylor Scott

=IFERROR(IF(ISODD(LEN(A1)),MID(A1,LEN(A1)/2+1,1),CHAR((CODE(MID(A1,LEN(A1)/2,1))+CODE(MID(A1,LEN(A1)/2+1,1)))/2)),"")

ต้องการ 12 ไบต์สำหรับสตริงที่ว่างเปล่า