Mengingat palindrom dihasilkan sesuai dengan tantangan ini , depalindromize itu.

Uji kasus

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

Karena ini tentang depalindromizing, kode Anda tidak dapat berupa palindrom .

Ingat, ini adalah kode-golf , jadi kode dengan byte paling sedikit menang.

Julia, 21 15 byte

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

Cobalah online! (kode tambahan untuk mencetak hasil)

05AB1E , 3 byte

2ä¬

Menggunakan pengkodean CP-1252 . Cobalah online!

Python 2, 23 byte

Saya tidak dapat menguji pada ponsel saya, tetapi ini harus bekerja:

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

Fuzzy Octo Guacamole, 4 byte

2.^/

Saya menghabiskan waktu mencari bahasa yang tantangannya singkat, dan menyadari bahwa saya bodoh dan bahasa saya sendiri yang melakukannya.

05AB1E, 5 byte

Dg;î£

Cobalah online!

Penjelasan:

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

Cheddar, 22 18 byte

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

Sederhananya saya pikir tidak perlu penjelasan tapi saya akan menambahkannya jika mau.

Cobalah online

Pyth - 4 byte

hc2Q

Test Suite .

JavaScript (ES6), 32 26 25 byte

1 byte disimpan berkat 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'))

Solusi sebelumnya
26 byte berkat Downgoat:

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

32 byte:

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

WinDbg, 87 71 byte

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

-16 byte dengan tidak memasukkan NULL, sebagai ganti panjangnya da

Input diteruskan melalui alamat di psuedo-register $t0. Sebagai contoh:

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.

Ia bekerja dengan mengganti hak tengah char (atau kanan tengah jika string memiliki panjang genap) dengan nol dan kemudian mencetak string dari alamat memori awal yang asli.

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

Keluaran:

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 byte

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

Versi pointfree dari

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

yang juga 27 byte.

MATL , 7 6 byte

9LQ2/)

Cobalah online!

Penjelasan

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]

Jelly , 4 byte

œs2Ḣ

Cobalah online!

Penjelasan

œ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 byte

Dua solusi yang sama sekali berbeda, keduanya 12 byte.

ò"Bx$xh|ò"bP

Cobalah online!

Ó./&ò
MjdGÍî

Cobalah online!

Brachylog , 4 byte

@2tr

Cobalah online!

Penjelasan

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

Jika input memiliki panjang ganjil, babak kedua yang dihasilkan oleh @2adalah yang paling panjang, yang harus kita kembalikan (setelah membalikkannya).

Dyalog APL , 9 byte

⊢↑⍨2÷⍨1+≢

⊢ argumen

↑⍨ terpotong di

2÷⍨ setengah dari

1+ satu ditambah

≢ panjangnya

TryAPL online!

Perl, 15 byte

Termasuk +2 untuk -lp

Berikan string input pada STDIN:

depal.pl <<< "HelleH"

depal.pl:

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

Ini -ltidak benar-benar diperlukan jika Anda memasukkan palindrome tanpa baris baru, tetapi saya memasukkannya agar adil dengan solusi perl lainnya yang menggunakannya.

Java 7, 57 byte

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

TI-Basic, 14 byte

Fungsi standar. Mengembalikan string dari indeks 1 ke indeks (panjang / 2 + 1/2).

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

Bahasa GameMaker, 59 byte

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

PHP, 40 byte

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

strlen($a)/2di-cast ke int, dengan input selalu memiliki panjang ganjil, +1cukup untuk dibulatkan.

42 byte untuk panjang apa pun:

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

untuk panjang tidak diketahui, (1+strlen)/2mendapat dilemparkan ke int, pembulatan ke atas strlen/2.

Dip, 8 byte

H{C'0ÏEI

Penjelasan:

           # 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

Ini mungkin bisa lebih ditingkatkan.

Perl, 23 + 2 ( -plbendera) = 28 25 byte

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

Tidak Disatukan:

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

Terima kasih kepada @ardnew.

Befunge , 24 22 byte

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

Cobalah online!

Befunge tidak memiliki tipe string atau array sehingga semuanya dilakukan pada stack satu karakter sekaligus. Loop pertama (pada baris atas) menghitung jumlah karakter yang dibaca (bertukar dengan kurang dari 2 elemen dalam tumpukan menghasilkan awal 0). Yang kedua (di garis tengah) mencetak karakter sambil menghitung mundur dua kali lebih cepat. Akibatnya hanya setengah dari input yang dicetak, tetapi LIFO jadi dalam urutan yang benar.

Terima kasih kepada Brian Gradin untuk versi yang lebih baik dari loop pertama.

Perl, 14 + 3 ( -lFbendera) = 19 17 byte

Untuk 5.20.0+:

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

Untuk 5.10.0+ (19 byte):

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

Tidak Disatukan:

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

Terima kasih kepada @simbabque.

Brainfuck, 20 byte

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

Cobalah online.

Ini menghemat satu byte dari pendekatan yang lebih mudah dalam mengonsumsi input sebelum memulai loop utama:

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

Pyth , 8 7 byte

<zh/lz2

Disimpan 1 dengan berkat @Steven H

Bukan jawaban Pyth terpendek (setengah) tapi saya berusaha untuk mempelajari bahasa dan ini adalah posting pertama saya menggunakannya. Diposting sebanyak-banyaknya untuk komentar dan umpan balik seperti apa pun. Ini juga program Pyth pertama yang benar-benar harus saya kerjakan :)

Sekarang saya hanya perlu mencari tahu bagaimana jawaban 4 byte dari @Maltysen bekerja :-)

Sebenarnya , 5 byte

l½KßH

Cobalah online!

-1 byte terima kasih kepada Sherlock9

Penjelasan:

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

C, 31 30 byte

Menyimpan 1 byte berkat Cyoce.

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

Pemakaian:

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

Python 2, 23 byte

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

MATLAB / Oktaf, 20 19 18 16 byte

1 byte off meminjam ide dari jawaban Easterly Irk (tambahkan 1bukannya .5)
2 byte off berkat @StewieGriffin (tanda kurung yang tidak perlu)

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

Cobalah di Ideone .