Напишіть програму, яка приймає 2 рядки в якості введення та повертає найдовший загальний префікс. Це код-гольф , тому відповідь з найменшою кількістю байтів виграє.

Test Case 1:

"global" , "glossary"
"glo"


Test Case 2:

"department" , "depart"
"depart"

Test Case 3:

"glove", "dove"
""

Python 3, 54 байти

Дякую Python за вбудовану функцію для цього завдання! : D

import os;print(os.path.commonprefix(input().split()))

Вводиться як два слова, розділені пробілом, таким як glossary global.

Хаскелл, 29 байт

(c:x)%(d:y)|c==d=c:x%y;_%_=""

Використання:

>> "global"%"glossary"
"glo"

Рекурсивно визначає бінарну функцію %шляхом узгодження зразка. На двох рядках з рівними першими літерами бере цю першу літеру і додає її до функції решти рядків. Що-небудь ще, дає порожню рядок.

Pyth, 8 7 байт

e@F._MQ

Дякуємо @isaacg за 1 байт

Бере вхід з цитатами і комами, відокремленими "abc", "acc". Це виходить з помилки (але залишає stdout порожнім), коли результатом є порожній рядок. Якщо це неприпустимо, додайте 2 байти для#e@F._MQq

Тестовий сюїт

Пояснення

e@F._MQ        : implicit Q = eval(input)
   ._MQ        : Map the prefix operator onto both inputs
 @F            : Fold the setwise intersection operator over those lists
e              : Take the last such element, the prefixes are always made from shortest
               : to longest, so this always gives the longest matching prefix

C ++, 101 100 99 байт

#include<iostream>
int i;main(){std::string s,t;std::cin>>s>>t;for(;s[i]==t[i];std::cout<<s[i++]);}

Читає два рядки з stdin, друкує символ у поточному положенні з однієї з рядків, тоді як символ у поточному положенні дорівнює символу в тій же позиції в іншому рядку.

Завдяки Zereges зберегли один байт.

Haskell, 38 байт

((map fst.fst.span(uncurry(==))).).zip

Приклад використання: ( ((map fst.fst.span(uncurry(==))).).zip ) "global" "glossary"-> "glo".

Зафіксуйте обидва вхідні рядки до списку пар символів. Складіть із нього два списки: перший з усіма парами від початку, доки обидва символи рівні, другий з усіма залишками. Відкиньте другий список і вийміть усі символи з першого списку.

CJam, 12 11 9 байт

l_q.-{}#<

Це читає рядки з двох окремих рядків із закінченням рядка в стилі Unix, тобто <string>\n<string>\n.

Дякуємо @ MartinBüttner за -1 байт та @ jimmy23013 за -2 байт!

Спробуйте його в Інтернеті в інтерпретаторі CJam .

Як це працює

l_         e# Read a line (w/o trailing LF) from STDIN and push a copy.
  q        e# Read another line from STDIN (with trailing LF).
           e# The trailing linefeed makes sure that the lines are not equal.
   .-      e# Perform vectorized character subtraction. This yields 0 for equal
           e# characters, a non-zero value for two different characters, and the
           e# characters themselves (truthy) for the tail of the longer string.
     {}#   e# Find the index of the first truthy element.
        <  e# Keep that many characters from the first string.

APL, 13

{⊃↓K/⍨=⌿K←↑⍵}

Це функція, яка займає масив з двох рядків і повертає префікс:

      {⊃↓K/⍨=⌿K←↑⍵}'glossary' 'global'
glo
      {⊃↓K/⍨=⌿K←↑⍵}'department' 'depart'
depart

AppleScript, 215 байт

І я так старався ...; (

встановити x на (відобразити діалогове вікно "" відповідь за замовчуванням "") повернено
встановіть (діалогове вікно відображення "" відповідь за замовчуванням "") повертається текст
встановити n до 1
встановити o на ""
повторіть при цьому пункт x n = a пункт n
встановіть o на пункт & n
встановити n до n + 1
кінець
о

Я хотів побачити, наскільки AppleScript може це зняти, і людина це не побудовано для порівняння рядків.

rs , 14 байт

(.*).* \1.*/\1

Демонстраційні демонстраційні та тестові приклади.

Це досить просто. Він просто відповідає ... найдовшому загальному префіксу і видаляє решту рядка. Якщо немає найдовшого загального приставки, він просто очищає все.

sed, 18

У мене було щось набагато довше і складніше на увазі, тому заслуга цієї ідеї належить @ kirbyfan64sos .

s/(.*).* \1.*/\1/

Включає +1 для -rопції для сід.

CJam, 12 8 26

r:AAr:B.=0#_W={;;ABe<}{<}?

Спробуйте в Інтернеті.

(Маю ідею використовувати. = Замість .- після перегляду відповіді Денніса.)

З урахуванням усіх кращих випадків, для початківців CJam, як я, стало важко, щоб він був коротким. Сподіваємось, це принаймні працює для всіх випадків.

C #, 201 147 байт

using System.Linq;class a{static void Main(string[]a){a[0].Take(a[1].Length).TakeWhile((t,i)=>a[1][i]==t).ToList().ForEach(System.Console.Write);}}

Я знаю, що це не дуже конкурентоспроможно. Я просто хотів подивитися, як це буде виглядати.

EDIT: Дякую Ешу Бурлаценко, Беренду та Dennis_E

Загальна Лісп, 39

(lambda(a b)(subseq a 0(mismatch a b)))

Бере два аргументи рядка, визначає індекс i там, де вони відрізняються, і повертає підрядку від 0 до i .

Perl 5, 20 19 18 байт

19 байт плюс 1 для -Eпрапора замість -e:

say<>=~/^(.*).* \1/

Це скопійовано безсоромно від Digital Trauma «s SED відповіді . Він передбачає, що введення - це пара слів без пробілів у них (або перед першим) та з одним пробілом між ними.

Оновлення:

ThisSuitIsBlackNot запропонував використовувати -peнаступне, щоб зберегти байт (спасибі!):

($_)=/^(.*).* \1/

І тоді Luk Storms запропонував використовувати -nEнаступне, щоб зберегти ще один байт (спасибі!):

say/^(.*).* \1/

(Я рахую -Eяк один байт замість стандартного -e, але -nабо -pяк два. Моє враження, що тут є SOP.)

Пітон 3, 72

31 байт збережено завдяки FryAmTheEggman. 8 збережених завдяки DSM.

r=''
for x,y in zip(input(),input()):
 if x==y:r+=x
 else:break
print(r)

Пітон 3, 47

def f(w):[print(end=c[c!=d])for c,d in zip(*w)]

Функція, яка приймає список wіз двох слів і друкує загальний префікс перед тим, як закінчитися помилкою.

printФункція Python 3 дозволяє друкувати рядки на одному рівні print(end=c)(завдяки Sp3000 за збереження 3-х байт із цим коротшим синтаксисом). Це кілька разів дістає дві літери від слів і друкує першу з літер. Індексація c[c!=d]дає помилку поза межами, де c!=d, припиняючи виконання, коли зустрічаються дві нерівні літери.

Явний цикл для циклу на один знак довший за розуміння списку:

def f(w):
 for c,d in zip(*w):print(end=c[c!=d])

Javascript ES6, 52 байти

f=(a,b)=>[...a].filter((e,i)=>e==b[i]?1:b='').join``

Використання:

>> f("global","glossary")
"glo"

Сітківка , 14 байт

Використовується та ж ідея, що і kirbyfan64sos . На жаль, незважаючи на твердження Мартіна, що зрештою у режимі Match буде представлений спосіб друку груп захоплення, він ще не був реалізований. В іншому випадку (.*).* \1можна використовувати разом з 2 байтами або близько того для деяких ще не існуючих параметрів рядка конфігурації.

(.*).* \1.*
$1

Кожен рядок матиме свій власний файл із додаванням 1 байта на додатковий файл. Крім того, запустіть в одному файлі -sпрапор.

К, 24 байти

{(+/&\=/(&/#:'x)#'x)#*x}

Знайдіть мінімум довжини кожного рядка. ( (&/#:'x)). Обріжте кожну рядок до цієї довжини ( #'x). Потім порівняйте, намажте і підсумовуйте отриману послідовність:

  =/("globaa";"glossa")
1 1 1 0 0 1
  &\=/("globaa";"glossa")
1 1 1 0 0 0
  +/&\=/("globaa";"glossa")
3

Нарешті, візьміть, що багато символів з першого з рядків надано ( #*x).

Дія:

 f: {(+/&\=/(&/#:'x)#'x)#*x};
 f'(("global";"glossary")
    ("department";"depart")
    ("glove";"dove")
    ("aaa";"aaaaa")
    ("identical";"identical")
    ("aca";"aba"))
("glo"
 "depart"
 ()
 "aaa"
 "identical"
 ,"a")

Powershell, 65 байт

Порівняйте рядки, скорочуючи першу, поки вона не збігається (друк та вихід) або рядок є нульовим, і цикл закінчується.

param($a,$b)while($a){if($b-like"$a*"){$a;exit}$a=$a-replace".$"}

Джулія, 62 байти

f(a,b)=(c="";for(i,j)=zip(a,b) i!=j?break:(c*=string(i))end;c)

Безголовки:

function f(a::AbstractString, b::AbstractString)
    # Initialize an output string
    c = ""

    # Iterate over the pairs of characters in a and b,
    # truncated to the shorter of the two lengths
    for (i, j) in zip(a, b)
        if i == j
            # If they match, append to the output string
            c *= string(i)
        else
            # Otherwise stop everything!
            break
        end
    end

    return c
end

Виправлена ​​проблема (за здоровенної вартості 14 байт) завдяки xnor!

C99, 73 байти

main(int c,char *a[]){for(char *x=a[1],*y=a[2];*x==*y++;putchar(*x++));}

Подібний до цієї відповіді , але коротший і відповідає специфікації (приймає дані зі stdin).

MATLAB, 50 40 байт

Визначає функцію, яка приймає 2 рядки як вхід, виводить у вікно команд

function t(a,b);a(1:find([diff(char(a,b)) 1],1)-1)

Це рішення буде працювати для будь-яких рядків, виходів

ans =

   Empty string: 1-by-0

якщо відповідність не вказана

Гольф можна використовувати, використовуючи сценарій замість функції (використовуючи локальні змінні a, b) (-16 байт).

тому отримуємо 34 байти

a(1:find([diff(char(a,b)) 1],1)-1)

Стиль функції (який, здається, прийнятий стиль), дає результат

@(a,b)a(1:find([diff(char(a,b)) 1],1)-1)

(Дякую @Stewie Griffin)

Перл 6 , 28 байт

Я придумав два, які беруть свої значення від STDIN, які базуються на відповіді Perl 5.

lines~~/(.*).*' '$0/;say ~$0

lines~~/:s(.*).* $0/;say ~$0

Перший вимагає рівно одного простору між входами, тоді як другий вимагає хоча б одного символу пробілу між входами.

Це зовсім трохи коротше, ніж я спробував перше, що взяв значення з командного рядка.

say [~] map ->($a,$b){$a eq$b&&$a||last},[Z] @*ARGS».comb # 58 bytes

або навіть лямбда-версія:

{[~] map ->($a,$b){$a eq$b&&$a||last},[Z] @_».comb} # 52 bytes

Хоча це набагато простіше налаштувати, щоб він приймав будь-яку кількість вхідних рядків, ціною лише одного обведення.

{[~] map ->@b {([eq] @b)&&@b[0]||last},[Z] @_».comb} # 53 bytes
#          ┗━┛ ┗━━━━━━━┛  ┗━━━┛

my &common-prefix = {[~] map ->@b {([eq] @b)&&@b[0]||last},[Z] @_».comb}

say common-prefix <department depart>; # "depart"
say common-prefix; # ""
say common-prefix <department depart depot deprecated dependant>; # "dep"

# This code does not work directly with a single argument, so you have
# to give it an itemized List or Array, containing a single element.

say common-prefix $('department',); # "department"

# another option would be to replace `@_` with `(@_,)`

Japt, 27 байт

Japt - скорочена версія Ja vaScri pt . Перекладач

Um$(X,Y)=>$A&&X==VgY ?X:A=P

(Рядки переходять у поле Введення так: "global" "glossary" :)

Цей код точно еквівалентний наступному JS:

A=10;(U,V)=>U.split``.map((X,Y)=>A&&X==V[Y]?X:A="").join``

Я ще не реалізував анонімні функції, для чого і $...$є: що-небудь між знаками долара не залишається недоторканим у переключенні на JS. Після додавання функцій цього 21-байтового коду буде достатньо:

UmXY{A&&X==VgY ?X:A=P

І після того, як я застосую ще кілька функцій, в ідеалі це буде 18 байт:

UmXY{AxX=VgY ?X:AP

Пропозиції Ласкаво просимо!

Ось і виходить, що ця програма становить лише 15 байт у сучасному Japt:

¡A©X¥VgY ?X:A=P

Спробуйте в Інтернеті!

MATL , 11 9 байт

y!=XdYpf)

Спробуйте в Інтернеті!

(-2 байти завдяки Джузеппе)

 y  % implicitly input the two strings, then duplicate the
    %  first one into the stack again
    %  stack: ['department' 'deported' 'department']
 !  % transpose the last string into a column vector
 =  % broadcast equality check - gives back a matrix comparing
    %  every letter in first input with the letters in the second
 Xd % diagonal of the matrix - comparison result of each letter with
    %  only corresponding letter in the other string
    %  stack: ['department' [1; 1; 1; 0; 1; 1; 0; 0;]]
 Yp % cumulative product (so only initial sequence of 1s remains
    %  1s, others become 0)
    %  stack: ['department' [1; 1; 1; 0; 0; 0; 0; 0;]]
 f  %  find the indices of the 1s
 )  % index at those elements so we get those letters out
    % (implicit) convert to string and display

Clojure / ClojureScript, 51

(defn f[[a & b][c & d]](if(= a c)(str a(f b d))""))

Досить прямо. На жаль, проміжки навколо деструктуризації параметрів необхідні (це і є [a & b]матеріал). Не найкоротший, але я перемагаю деякі інші відповіді мовами, які хочуть похвалитися своєю непрозорістю, тому я опублікую його.

Python 2, 50 байт

for a,b in zip(*input()):print(1/0if a!=b else a),

Вхідні дані

Вхід приймається у вигляді двох рядків:

"global", "glossary"

Вихідні дані

Вихід - кожен символ, після якого пробіл; що, сподіваємось, не є проблемою. Однак, якщо це так, я відредагую свою відповідь.

g l o 

TeaScript, 16 байт 20

xf»l¦y[i]?1:b=0)

Бере кожен вхід, розділений пробілом.

PHP, 52 байти

Не вражаюче, але робить роботу:

$a=$argv;while($a[1][$i]==$a[2][$i])echo$a[1][$i++];

Бере два аргументи командного рядка:

php prefix.php department depart