Biorąc pod uwagę palindrom wygenerowany zgodnie z tym wyzwaniem , depalindromize go.

Przypadki testowe

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

Ponieważ chodzi o depalindromizację, twój kod nie może być palindromem .

Pamiętaj, to jest kodowanie w golfa , więc wygrywa kod z najmniejszą liczbą bajtów.

Julia, 21 15 bajtów

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

Wypróbuj online! (dodatkowy kod służy do wydruku)

05AB1E , 3 bajty

2ä¬

Wykorzystuje kodowanie CP-1252 . Wypróbuj online!

Python 2, 23 bajty

Nie mogę przeprowadzić testu na telefonie, ale powinno to działać:

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

Rozmyte Octo Guacamole, 4 bajty

2.^/

Spędziłem trochę czasu, szukając języka, w którym to wyzwanie jest krótkie, i zdałem sobie sprawę, że jestem głupi, a mój własny język to zrobił.

05AB1E, 5 bajtów

Dg;î£

Wypróbuj online!

Wyjaśnienie:

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

Cheddar, 22 18 bajtów

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

Tak proste, że nie potrzebuję wyjaśnień, ale dodam jedno, jeśli chcesz.

Wypróbuj online

Pyth - 4 bajty

hc2Q

Pakiet testowy .

JavaScript (ES6), 32 26 25 bajtów

1 bajt zapisany dzięki Neilowi:

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'))

Poprzednie rozwiązania
26 bajtów dzięki Downgoat:

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

32 bajty:

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

WinDbg, 87 71 bajtów

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

-16 bajtów, nie wstawiając NULL, zamiast tego przekazując długość do da

Dane wejściowe są przekazywane przez adres w rejestrze psuedo $t0. Na przykład:

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.

Działa poprzez zamianę prawej środkowego znaku (lub prawej-środkowej, jeśli ciąg ma równą długość) na null, a następnie drukuje ciąg z oryginalnego początkowego adresu pamięci.

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

Wynik:

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 bajtów

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

Wersja Pointfree

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

który również ma 27 bajtów.

MATL , 7 6 bajtów

9LQ2/)

Wypróbuj online!

Wyjaśnienie

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]

Galaretka , 4 bajty

œs2Ḣ

Wypróbuj online!

Wyjaśnienie

œ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 bajtów

Dwa zupełnie różne rozwiązania, oba 12 bajtów.

ò"Bx$xh|ò"bP

Wypróbuj online!

Ó./&ò
MjdGÍî

Wypróbuj online!

Brachylog , 4 bajty

@2tr

Wypróbuj online!

Wyjaśnienie

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

Jeśli dane wejściowe mają nieparzystą długość, druga połowa generowana przez @2jest tą najdłuższą, czyli tą, którą powinniśmy zwrócić (po odwróceniu).

Dyalog APL , 9 bajtów

⊢↑⍨2÷⍨1+≢

⊢ argument

↑⍨ obcięty o

2÷⍨ połowa

1+ jeden plus

≢ długość

Wypróbuj APL online!

Perl, 15 bajtów

Obejmuje +2 za -lp

Podaj ciąg wejściowy na STDIN:

depal.pl <<< "HelleH"

depal.pl:

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

Nie -ljest tak naprawdę potrzebne, jeśli wprowadzisz palindrom bez końcowej nowej linii, ale uwzględniłem go, aby był sprawiedliwy wobec innych rozwiązań perla, które go używają.

Java 7, 57 bajtów

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

TI-Basic, 14 bajtów

Standardowa funkcja. Zwraca ciąg z indeksu 1 do indeksu (długość / 2 + 1/2).

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

GameMaker Language, 59 bajtów

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

PHP, 40 bajtów

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

strlen($a)/2zostaje rzutowane na int, przy czym dane wejściowe zawsze mają nieparzystą długość, +1wystarczy zaokrąglić w górę.

42 bajty dla dowolnej długości:

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

dla nieznanej długości (1+strlen)/2zostaje rzutowany na int, zaokrąglając w górę strlen/2.

Zanurz, 8 bajtów

H{C'0ÏEI

Wyjaśnienie:

           # 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

Prawdopodobnie można to znacznie poprawić.

Perl, 23 + 2 ( -plflaga) = 28 25 bajtów

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

Nie golfowany:

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

Dzięki za @ardnew.

Befunge , 24 22 bajtów

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

Wypróbuj online!

Befunge nie ma ciągów ani tablic, więc wszystko odbywa się na stosie po jednym znaku na raz. Pierwsza pętla (w górnym wierszu) liczy liczbę odczytanych znaków (zamiana z mniej niż 2 elementami w stosie daje początkowe 0). Drugi (w środkowej linii) drukuje znaki, odliczając dwa razy szybciej. W rezultacie drukowana jest tylko ostatnia połowa danych wejściowych, ale LIFO jest w prawidłowej kolejności.

Podziękowania dla Briana Gradina za lepszą wersję pierwszej pętli.

Perl, 14 + 3 ( -lFflaga) = 19 17 bajtów

W wersji 5.20.0+:

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

Dla wersji 5.10.0+ (19 bajtów):

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

Nie golfowany:

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

Dzięki za @simbabque.

Brainfuck, 20 bajtów

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

Wypróbuj online.

To oszczędza bajt dzięki prostszemu podejściu do pobierania danych wejściowych przed uruchomieniem głównej pętli:

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

Pyth , 8 7 bajtów

<zh/lz2

Zapisano 1 dzięki dzięki @Steven H.

Nie jest to najkrótsza odpowiedź Pytha (o połowę), ale staram się nauczyć języka i to mój pierwszy post, w którym go używam. Wysłano tyle samo komentarzy i opinii jak cokolwiek innego. To także pierwszy program w Pyth'u, który faktycznie mam pracować :)

Teraz muszę tylko dowiedzieć się, jak działa 4-bajtowa odpowiedź @Maltysen :-)

Właściwie 5 bajtów

l½KßH

Wypróbuj online!

-1 bajt dzięki Sherlock9

Wyjaśnienie:

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

C, 31 30 bajtów

Oszczędność 1 bajtu dzięki Cyoce.

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

Stosowanie:

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

Python 2, 23 bajty

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

MATLAB / Octave, 20 19 18 16 bajtów

1 bajt poza pożyczaniem pomysłu z odpowiedzi Easterly Irk (dodaj 1zamiast .5)
2 bajty dzięki @StewieGriffin (niepotrzebne nawiasy)

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

Wypróbuj w Ideone .