Учитывая палиндром, сгенерированный в соответствии с этой задачей , депалиндромизируйте его.

Контрольные примеры

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

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

Помните, что это код-гольф , поэтому выигрывает код с наименьшим количеством байтов.

Юлия, 21 15 байт

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

Попробуйте онлайн! (дополнительный код для вывода на печать)

05AB1E , 3 байта

2ä¬

Использует кодировку CP-1252 . Попробуйте онлайн!

Python 2, 23 байта

Я не могу проверить на своем телефоне, но это должно работать:

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

Нечеткое окто гуакамоле, 4 байта

2.^/

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

05AB1E, 5 байтов

Dg;î£

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

Объяснение:

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

Чеддер, 22 18 байтов

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

Так просто, я не думаю, что нужно объяснение, но я добавлю его, если захочу.

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

Pyth - 4 байта

hc2Q

Тестовый пакет .

JavaScript (ES6), 32 26 25 байт

1 байт сохранен благодаря Нейлу:

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.

Он работает путем замены правого среднего символа (или правого среднего, если строка имеет четную длину) на ноль, а затем печатает строку с исходного начального адреса памяти.

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

Pointfree версия

\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Íî

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

Брахилог , 4 байта

@2tr

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

объяснение

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

Если вход имеет нечетную длину, вторая половина, генерируемая с @2помощью, является самой длинной, то есть той, которую мы должны вернуть (после ее изменения).

Дьялог АПЛ , 9 байт

⊢↑⍨2÷⍨1+≢

⊢ Аргумент

↑⍨ усеченный в

2÷⍨ половина от

1+ один плюс

≢ длина

Попробуй APL онлайн!

Perl, 15 байт

Включает +2 для -lp

Введите строку ввода в STDIN:

depal.pl <<< "HelleH"

depal.pl:

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

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

Java 7, 57 байт

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

TI-Basic, 14 байтов

Стандартная функция. Возвращает строку из индекса 1 в индекс (длина / 2 + 1/2).

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

Язык GameMaker, 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.

Провал, 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 байт

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

Ungolfed:

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

Спасибо @ardnew.

Befunge , 24 22 байта

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

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

Befunge не имеет типа строки или массива, поэтому все выполняется в стеке по одному символу за раз. Первый цикл (в верхней строке) подсчитывает количество прочитанных символов (при замене менее чем на 2 элемента в стеке получается начальный 0). Вторая (в средней строке) печатает символы, а обратный отсчет идет в два раза быстрее. В результате печатается только последняя половина ввода, но LIFO, поэтому он находится в правильном порядке.

Спасибо Брайану Градину за лучшую версию первого цикла.

Perl, 14 + 3 ( -lFфлаг) = 19 17 байт

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

Спасибо @simbabque.

Brainfuck, 20 байтов

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

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

Это экономит байт по сравнению с более простым подходом потребления входных данных перед началом основного цикла:

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

Pyth , 8 7 байтов

<zh/lz2

Сохранено 1 с помощью @Steven H

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

Теперь мне просто нужно разобраться, как работает 4-байтный ответ @Maltysen :-)

На самом деле , 5 байтов

l½KßH

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

-1 байт благодаря Шерлоку9

Объяснение:

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 байт заимствует идею из ответа Истерли Ирка (добавьте 1вместо .5)
2 байта благодаря @StewieGriffin (ненужные скобки)

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

Попробуйте это в Ideone .