Napisz program, który pobiera 2 ciągi jako dane wejściowe i zwraca najdłuższy wspólny przedrostek. To jest golf golfowy , więc wygrywa odpowiedź z najmniejszą ilością bajtów.

Test Case 1:

"global" , "glossary"
"glo"


Test Case 2:

"department" , "depart"
"depart"

Test Case 3:

"glove", "dove"
""

Python 3, 54 bajty

Dzięki Python za posiadanie wbudowanej funkcji do tego zadania! :RE

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

Pobiera dane wejściowe jako dwa słowa oddzielone spacją, np glossary global.

Haskell, 29 bajtów

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

Stosowanie:

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

Rekurencyjnie definiuje funkcję binarną %poprzez dopasowanie wzorca. Na dwóch ciągach znaków o równych pierwszych literach bierze te pierwsze litery i przygotowuje je do funkcji reszty ciągów. Na czymkolwiek innym daje pusty ciąg.

Pyth, 8 7 bajtów

e@F._MQ

Dzięki @isaacg za 1 bajt off

Pobiera dane wejściowe cytowane i przecinki, jak "abc", "acc". To kończy się na błędzie (ale pozostawia standardowe wyjście puste), gdy wynikiem jest pusty ciąg. Jeśli jest to niedopuszczalne, dodaj 2 bajty dla#e@F._MQq

Pakiet testowy

Wyjaśnienie

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

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

Odczytuje dwa ciągi z stdin, drukuje znak w bieżącej pozycji z jednego z ciągów, podczas gdy znak w bieżącej pozycji jest równy znakowi w tej samej pozycji w drugim ciągu.

Dzięki Zereges za oszczędność jednego bajtu.

Haskell, 38 bajtów

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

Przykład użycia: ( ((map fst.fst.span(uncurry(==))).).zip ) "global" "glossary"-> "glo".

Spakuj oba ciągi wejściowe na listę par znaków. Zrób z niego dwie listy: pierwszą ze wszystkimi parami od początku, o ile oba znaki są równe, drugą ze wszystkimi pozostałymi. Upuść drugą listę i wyodrębnij wszystkie znaki z pierwszej listy.

CJam, 12 11 9 bajtów

l_q.-{}#<

Odczytuje ciągi znaków na dwóch oddzielnych liniach z zakończeniem linii w stylu uniksowym, tj <string>\n<string>\n.

Dzięki @ MartinBüttner za -1 bajt i @ jimmy23013 za -2 bajty!

Wypróbuj online w interpretatorze CJam .

Jak to działa

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←↑⍵}

Jest to funkcja, która pobiera tablicę dwóch ciągów znaków i zwraca prefiks:

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

AppleScript, 215 bajtów

I tak bardzo się starałem ...; (

ustaw x na (wyświetl okno dialogowe „domyślna odpowiedź” ”)
ustaw tekst na „wyświetl okno dialogowe” „domyślna odpowiedź” „) wrócił
ustaw n na 1
ustaw o na „”
powtórz, gdy element x n = element a n
ustaw o na pozycję o & x n
ustaw n na n + 1
koniec
o

Chciałem zobaczyć, jak dobrze AppleScript może to zrobić, a człowiek nie jest zbudowany do porównywania ciągów.

rs , 14 bajtów

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

Prezentacje na żywo i przypadki testowe.

To jest całkiem proste. Po prostu pasuje do ... najdłuższego wspólnego przedrostka i usuwa resztę ciągu. Jeśli nie ma najdłuższego wspólnego przedrostka, po prostu wszystko usuwa.

sed, 18

Miałem na myśli coś znacznie dłuższego i bardziej skomplikowanego, więc podziękowania za ten pomysł należą się do @ kirbyfan64sos .

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

Obejmuje +1 za -ropcję sed.

CJam, 12 8 26

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

Wypróbuj online.

(Mam pomysł na użycie. = Zamiast .- po spojrzeniu na odpowiedź Dennisa.)

Z wszystkimi przypadkami na krawędzi, dla początkującego CJama, takiego jak ja, trudno było mówić krótko. Mam nadzieję, że to działa przynajmniej we wszystkich przypadkach.

C #, 201 147 bajtów

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

Wiem, że to nie jest zbyt konkurencyjne. Chciałem tylko zobaczyć, jak to będzie wyglądać.

EDYCJA: Dzięki Ash Burlakzenko, Berend i Dennis_E

Common Lisp, 39

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

Pobiera dwa argumenty łańcuchowe, określa indeks i tam, gdzie się różnią, i zwraca podłańcuch od 0 do i .

Perl 5, 20 19 18 bajtów

19 bajtów plus 1 dla -Eflagi zamiast -e:

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

To są kopiowane bezwstydnie z cyfrowego Trauma „s sed odpowiedź . Zakłada się, że dane wejściowe to kilka słów bez spacji (lub przed pierwszym) i jedna spacja między nimi.

Aktualizacja:

ThisSuitIsBlackNot Sugeruje użycie -pew następujący sposób, aby zapisać bajt (dzięki!):

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

A następnie Luk Storms zasugerował użycie -nEnastępującego sposobu, aby zapisać kolejny bajt (dzięki!):

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

(Liczę -Ejako jeden bajt zamiast standardowego -e, ale -nlub -pjako dwa. Mam wrażenie, że tutaj jest SPO).

Python 3, 72

31 bajtów zaoszczędzonych dzięki FryAmTheEggman. 8 zapisanych dzięki DSM.

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

Python 3, 47

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

Funkcja, która pobiera listę wdwóch słów i drukuje wspólny przedrostek przed zakończeniem z błędem.

printFunkcja Pythona 3 umożliwia drukowanie napisów równo z sobą print(end=c)(dzięki Sp3000 za zapisanie 3 bajtów przy tej krótszej składni). Powoduje to wielokrotne pobranie dwóch liter ze słów i wypisanie pierwszej z nich. Indeksowanie c[c!=d]powoduje błąd c!=dprzekroczenia granicy, który kończy działanie, gdy napotkane zostaną dwie nierówne litery.

Pętla jawna dla for jest o jeden znak dłuższa niż dla zrozumienia listy:

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

JavaScript ES6, 52 bajty

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

Stosowanie:

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

Siatkówka , 14 bajtów

Używa tego samego pomysłu, co kirbyfan64sos . Niestety, pomimo twierdzenia Martina, że ​​ostatecznie tryb dopasowania będzie zawierał sposób drukowania grup przechwytywania, nie został jeszcze wdrożony. W przeciwnym razie (.*).* \1może być używany wraz z około 2 bajtami dla niektórych nieistniejących jeszcze opcji łańcucha konfiguracji.

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

Każda linia przejdzie do własnego pliku, z dodanym 1 bajtem na dodatkowy plik. Alternatywnie uruchom w jednym pliku z -sflagą.

K, 24 bajty

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

Znajdź minimalną długość każdego łańcucha. ( (&/#:'x)). Przytnij każdy ciąg do tej długości ( #'x). Następnie porównaj, posmaruj i zsumuj wynikową sekwencję:

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

Na koniec weź tyle znaków z pierwszego z dostarczonych ciągów ( #*x).

W akcji:

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

PowerShell, 65 bajtów

Porównaj ciągi, zmniejszając pierwsze, dopóki nie będzie pasowało (drukuj i wyjdź) lub łańcuch nie ma wartości zerowej, a pętla się kończy.

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

Julia, 62 bajty

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

Nie golfowany:

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

Naprawiono problem (kosztem 14 bajtów) dzięki xnor!

C99, 73 bajty

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

Podobne do tej odpowiedzi , ale krótsze i zgodne ze specyfikacją (pobiera dane wejściowe ze standardowego wejścia).

MATLAB, 50 40 bajtów

Definiuje funkcję, która przyjmuje 2 łańcuchy jako dane wejściowe, dane wyjściowe do okna poleceń

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

To rozwiązanie będzie działać dla dowolnego ciągu wyjściowego

ans =

   Empty string: 1-by-0

jeśli nie podano dopasowania.

Można grać w golfa za pomocą skryptu zamiast funkcji (używając lokalnych zmiennych a, b) (-16 bajtów).

więc otrzymujemy 34 bajty

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

Styl funkcji (który wydaje się być stylem przyjętym) daje wynik

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

(Dzięki @Stewie Griffin)

Perl 6 , 28 bajtów

Wymyśliłem dwa, które pobierają swoje wartości ze STDIN, które są oparte na odpowiedzi Perla 5.

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

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

Pierwszy wymaga dokładnie jednej spacji między wejściami, podczas gdy drugi wymaga co najmniej jednej spacji między wejściami.

To jest nieco krótsze niż pierwsza rzecz, której spróbowałem, która pobiera wartości z wiersza poleceń.

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

lub nawet jego wersja lambda:

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

Chociaż jest to o wiele łatwiejsze do dostosowania, tak że akceptuje dowolną liczbę ciągów wejściowych, kosztem tylko jednego pociągnięcia.

{[~] 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 bajtów

Japt to skrócona wersja Ja vaScri pt . Interpretator

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

(Struny przejść do pola wprowadzania tak: "global" "glossary")

Ten kod jest dokładnie równoważny z następującym JS:

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

Nie wdrożyłem jeszcze anonimowych funkcji, po co to $...$jest: wszystko między znakami dolara pozostaje nietknięte w przejściu na JS. Po dodaniu funkcji wystarczy ten 21-bajtowy kod:

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

A po wdrożeniu kilku dodatkowych funkcji idealnie będzie to 18 bajtów:

UmXY{AxX=VgY ?X:AP

Sugestie mile widziane!

Okazuje się, że ten program ma tylko 15 bajtów we współczesnym Japt:

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

Wypróbuj online!

MATL , 11 9 bajtów

y!=XdYpf)

Wypróbuj online!

(-2 bajty dzięki Giuseppe)

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

Całkiem proste. Niestety odstępy wokół destrukcji parametrów są konieczne (takie są [a & b]rzeczy). Nie najkrótszy, ale pobiłem kilka innych odpowiedzi w językach, które lubią chwalić się ich zwięzłością, więc opublikuję to.

Python 2, 50 bajtów

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

Wkład

Dane wejściowe są traktowane jako dwa ciągi:

"global", "glossary"

Wydajność

Wynikiem jest każdy znak, po którym następuje spacja; co, mam nadzieję, nie stanowi problemu. Jeśli tak, to zmienię swoją odpowiedź.

g l o 

TeaScript, 16 bajtów 20

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

Każde wejście jest oddzielone spacją.

PHP, 52 bajty

Nie spektakularny, ale spełnia swoją rolę:

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

Bierze dwa argumenty wiersza poleceń:

php prefix.php department depart