เมื่อสร้าง Palindrome ตามความท้าทายนี้ให้ลดระดับความดัง

กรณีทดสอบ

abcdedcba -> abcde
johncenanecnhoj -> johncena
ppapapp -> ppap
codegolflogedoc -> codegolf

เช่นนี้เป็นเรื่องเกี่ยวกับ depalindromizing, รหัสของคุณไม่สามารถเป็นประโยค

โปรดจำไว้ว่านี่คือรหัสกอล์ฟดังนั้นโค้ดที่มีจำนวนไบต์น้อยที่สุดจะเป็นผู้ชนะ

Julia, 21 15 ไบต์

x->x[1:end/2+1]

ลองออนไลน์! (รหัสพิเศษสำหรับการพิมพ์ออก)

05AB1E , 3 ไบต์

2ä¬

ใช้การเข้ารหัสCP-1252 ลองออนไลน์!

Python 2, 23 ไบต์

ฉันไม่สามารถทดสอบบนโทรศัพท์ของฉันได้ แต่สิ่งนี้ควรใช้งานได้:

lambda s:s[:-~len(s)/2]

Fuzzy Octo Guacamole, 4 ไบต์

2.^/

ฉันใช้เวลาสักครู่เพื่อค้นหาภาษาที่ความท้าทายนี้สั้นและฉันก็รู้ว่าตัวเองโง่และภาษาของฉันก็ทำเช่นนั้น

05AB1E, 5 ไบต์

Dg;î£

ลองออนไลน์!

คำอธิบาย:

D      Duplicate
 g;î   Divide length by two and round up
    £  First b letters of a

Cheddar, 22 18 ไบต์

@.head($0.len/2+1)

ง่ายมากฉันไม่คิดว่าต้องการคำอธิบาย แต่ฉันจะเพิ่มถ้าต้องการ

ลองออนไลน์

Pyth - 4 ไบต์

hc2Q

Test Suite

JavaScript (ES6), 32 26 25 ไบต์

บันทึก 1 ไบต์ขอบคุณ Neil:

s=>s.slice(0,-s.length/2)

f=
  s=>s.slice(0,-s.length/2)
;
console.log(f('abcdedcba'))
console.log(f('johncenanecnhoj'))
console.log(f('ppapapp'))
console.log(f('codegolflogedoc'))

โซลูชันก่อนหน้า
26 ไบต์ด้วย Downgoat:

s=>s.slice(0,s.length/2+1)

32 ไบต์:

s=>s.slice(0,(l=s.length/2)+l%2)

WinDbg, 87 71 ไบต์

db$t0 L1;.for(r$t1=@$t0;@$p;r$t1=@$t1+1){db$t1 L1};da$t0 L(@$t1-@$t0)/2

-16 ไบต์โดยไม่ใส่ NULL แทนผ่านความยาวไป da

$t0การป้อนข้อมูลจะถูกส่งผ่านทางที่อยู่ในหลอกลงทะเบียน ตัวอย่างเช่น:

eza 2000000 "abcdedcba"       * Write string "abcdedcba" into memory at 0x02000000
r $t0 = 33554432              * Set $t0 = 0x02000000
* Edit: Something got messed up in my WinDB session, of course r $t0 = 2000000 should work
* not that crazy 33554432.

มันทำงานได้โดยแทนที่ด้านขวาของถ่านกลาง (หรือกลางขวาถ้าสตริงมีความยาวเท่ากัน) ด้วยค่า null แล้วพิมพ์สตริงจากที่อยู่หน่วยความจำเริ่มต้นเริ่มต้น

db $t0 L1;                                   * Set $p = memory-at($t0)
.for (r $t1 = @$t0; @$p; r $t1 = @$t1 + 1)   * Set $t1 = $t0 and increment until $p == 0
{
    db $t1 L1                                * Set $p = memory-at($t1)
};
da $t0 L(@$t1-@$t0)/2                        * Print half the string

เอาท์พุท:

0:000> eza 2000000 "abcdeedcba"
0:000> r $t0 = 33554432
0:000> db$t0 L1;.for(r$t1=@$t0;@$p;r$t1=@$t1+1){db$t1 L1};da$t0 L(@$t1-@$t0)/2
02000000  61                                               a
02000000  61                                               a
02000001  62                                               b
02000002  63                                               c
02000003  64                                               d
02000004  65                                               e
02000005  65                                               e
02000006  64                                               d
02000007  63                                               c
02000008  62                                               b
02000009  61                                               a
0200000a  00                                               .
02000000  "abcde"

Haskell, 27 ไบต์

take=<<succ.(`div`2).length

รุ่นพอยต์ของ

\x->take(div(length x)2+1)x

ซึ่งก็คือ 27 ไบต์

MATL , 7 6 ไบต์

9LQ2/)

ลองออนไลน์!

คำอธิบาย

9L       % Push array [1, 1j]
  Q      % Add 1: transforms into [2, 1+1j]
   2/    % Divide by 2: transforms into [1, 0.5+0.5j]
     )   % Apply as index into implicit input. The array [1, 0.5+0.5j] used as an index
         % is interpreted as [1:0.5+end*0.5]

เยลลี่ 4 ไบต์

œs2Ḣ

ลองออนไลน์!

คำอธิบาย

œs2      Split input into 2 chunks of similar lengths. For odd-length input,
         the first chunk is the longest
   Ḣ     Keep the first chunk

V , 12 ไบต์

โซลูชันที่แตกต่างกันสองอย่างอย่างสมบูรณ์ทั้ง 12 ไบต์

ò"Bx$xh|ò"bP

ลองออนไลน์!

Ó./&ò
MjdGÍî

ลองออนไลน์!

Brachylogขนาด 4 ไบต์

@2tr

ลองออนไลน์!

คำอธิบาย

@2        Split in half
  t       Take the second half
   r      Reverse it

หากอินพุตมีความยาวคี่ครึ่งที่สองที่สร้างโดย@2คืออันที่ยาวที่สุดนั่นคืออันที่เราควรกลับมา (หลังจากกลับด้าน)

Dyalog APL ขนาด 9 ไบต์

⊢↑⍨2÷⍨1+≢

⊢ อาร์กิวเมนต์

↑⍨ ตัดทอนที่

2÷⍨ ครึ่งหนึ่งของ

1+ หนึ่งบวก

≢ ความยาว

ลองใช้ออนไลน์!

Perl, 15 ไบต์

รวมถึง +2 สำหรับ -lp

ให้สตริงที่ป้อนใน STDIN:

depal.pl <<< "HelleH"

depal.pl:

#!/usr/bin/perl -lp
s/../chop/reg

-lไม่จำเป็นจริงๆถ้าคุณป้อน palindrome โดยไม่ต้องขึ้นบรรทัดสุดท้าย แต่ผมรวมไว้เพื่อความเป็นธรรมกับการแก้ Perl อื่น ๆ ที่ใช้มัน

Java 7, 57 ไบต์

String c(String s){return s.substring(0,s.length()/2+1);}

TI-Basic, 14 ไบต์

ฟังก์ชั่นมาตรฐาน ส่งคืนสตริงจากดัชนี 1 ถึงดัชนี (length / 2 + 1/2)

sub(Ans,1,.5+.5length(Ans

GameMaker Language, 59 ไบต์

a=argument0 return string_copy(a,1,ceil(string_length(a)/2)

PHP, 40 ไบต์

<?=substr($a=$argv[1],0,1+strlen($a)/2);

strlen($a)/2ได้รับการส่งข้อมูลไปยัง int กับข้อมูลมักจะมีความยาวแปลก+1พอเพียงที่จะปัดเศษขึ้น

42 ไบต์สำหรับความยาว:

<?=substr($a=$argv[1],0,(1+strlen($a))/2);

สำหรับความยาวไม่รู้จัก(1+strlen)/2ได้รับการโยนไป int strlen/2ปัดเศษขึ้น

Dip, 8 ไบต์

H{C'0ÏEI

คำอธิบาย:

           # Implicit input
 H         # Push length of input
  {        # Add 1
   C       # Divide by 2
    '      # Convert to int
     0Ï    # Get string back
       E   # Push prefixes of string
        I  # Push prefixes[a]
           # Implicit print

นี่อาจปรับปรุงได้มาก

Perl, 23 + 2 ( -plตั้งค่าสถานะ) = 28 25 bytes

perl -ple '$_=substr$_,0,1+y///c/2'

Ungolfed:

while (<>) {             # -p flag
    chomp($_)            # -l flag
    $_ = substr($_, 0, 1 + length($_) / 2);
    print($_, "\n")      # -pl flag
}

Thanx ถึง @ardnew

Befunge , 24 22 ไบต์

~:0`!#v_\1+
0:-2,\_@#`

ลองออนไลน์!

Befunge ไม่มีสตริงหรือประเภทอาเรย์ดังนั้นทุกอย่างจะถูกทำบนสแต็กทีละตัวอักษร ลูปแรก (บนบรรทัดบนสุด) นับจำนวนอักขระที่อ่าน (การสลับที่มีอิลิเมนต์น้อยกว่า 2 องค์ประกอบในสแต็กจะสร้าง 0 เริ่มต้น) ที่สอง (บนเส้นกลาง) พิมพ์อักขระขณะที่นับถอยหลังสองครั้งเร็ว ดังนั้นจะพิมพ์เฉพาะครึ่งสุดท้ายของอินพุต แต่ LIFO จึงอยู่ในลำดับที่ถูกต้อง

ขอบคุณBrian Gradinสำหรับวงวนแรกที่ดีกว่า

Perl, 14 + 3 ( -lFตั้งค่าสถานะ) = 19 17 bytes

สำหรับ 5.20.0+:

perl -lF -E 'say@F[0..@F/2]'

สำหรับ 5.10.0+ (19 ไบต์):

perl -nlaF -E 'say@F[0..@F/2]'

Ungolfed:

while (<>) {             # -n flag (implicitly sets by -F in 5.20.0+)
    chomp($_)            # -l flag
    @F = split('', $_);  # -aF flag (implicitly sets by -F in 5.20.0+)
    say(@F[0 .. (scalar(@F) / 2)]);
}

Thanx ถึง @simbabque

Brainfuck, 20 ไบต์

,
[
  [>,]
  <[<]
  >.,>[>]
  <<
]

ลองออนไลน์

วิธีนี้จะช่วยประหยัดไบต์ในการเข้าถึงอินพุตที่ตรงไปตรงมามากขึ้นก่อนที่จะเริ่มวนรอบหลัก:

,[>,]
<
[
  [<]
  >.,>[>]
  <,<
]

Pyth , 8 7 ไบต์

<zh/lz2

บันทึก 1 ด้วยขอบคุณ @Steven H

ไม่ใช่คำตอบ Pyth ที่สั้นที่สุด (ครึ่งหนึ่ง) แต่ฉันพยายามที่จะเรียนรู้ภาษาและนี่เป็นโพสต์แรกที่ฉันใช้ โพสต์มากสำหรับความคิดเห็นและข้อเสนอแนะเป็นอะไร นอกจากนี้ยังเป็นโปรแกรม Pyth แรกที่ฉันต้องทำงานจริง ๆ :)

ตอนนี้ฉันแค่ต้องคิดออกว่าคำตอบ 4 ไบต์จาก @Maltysen ทำงานอย่างไร :-)

ที่จริงแล้ว 5 ไบต์

l½KßH

ลองออนไลน์!

-1 ไบต์ขอบคุณ Sherlock9

คำอธิบาย:

l½K@H
l½K    ceil(len(input)/2)
   ßH  first (len(input)//2 + 1) characters of input

C, 31 30 ไบต์

บันทึก 1 ไบต์ขอบคุณ Cyoce

f(char*c){c[-~strlen(c)/2]=0;}

การใช้งาน:

main(){
 char a[]="hellolleh";
 f(a);
 printf("%s\n",a);
}

Python 2, 23 ไบต์

lambda x:x[:len(x)/2+1]

MATLAB / Octave, 20 19 18 16 ไบต์

1 ไบต์จากการยืมความคิดจากคำตอบของ Easterly Irk (เพิ่ม1แทน.5)
2 ไบต์ขอบคุณด้วย @StewieGriffin (วงเล็บที่ไม่จำเป็น)

@(x)x(1:end/2+1)

ลองมันที่ Ideone