เขียนโปรแกรมที่รับ 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จะเข้าเป็นสองคำคั่นด้วยช่องว่างเช่น

Haskell, 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.-{}#<

<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 เป็นข้อความโต้ตอบตอบกลับ "" คำตอบเริ่มต้น "")
ตั้งค่าข้อความของ "a ตอบกลับ" แสดงคำตอบเริ่มต้น "")
ตั้งค่า n เป็น 1
ตั้ง o เป็น ""
ทำซ้ำในขณะที่รายการของ x = รายการของ n
ตั้งค่าเป็นรายการของ o & x n
ตั้งค่า n เป็น n + 1
ปลาย
โอ

ฉันต้องการดูว่า AppleScript สามารถดึงสิ่งนี้ออกมาได้ดีแค่ไหนและมนุษย์ก็ไม่ได้ถูกสร้างขึ้นเพื่อการเปรียบเทียบสตริง

อาร์เอส , 14 ไบต์

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

กรณีสาธิตและการทดสอบสด

มันค่อนข้างเรียบง่าย มันตรงกับ ... คำนำหน้าทั่วไปที่ยาวที่สุดและลบส่วนที่เหลือของสตริง หากไม่มีส่วนนำหน้าที่ยาวที่สุดมันก็จะล้างทุกอย่าง

sed, 18

ฉันมีบางสิ่งบางอย่างมากอีกต่อไปและซับซ้อนมากขึ้นในใจเพื่อให้เครดิตสำหรับความคิดนี้ไป @

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

รวม +1 สำหรับ-rตัวเลือกในการกด

CJam, 12 8 26

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

ลองออนไลน์

(มีแนวคิดที่จะใช้ = แทน. - หลังจากดูคำตอบของ Dennis)

กับทุกกรณีขอบมันกลายเป็นเรื่องยากสำหรับผู้เริ่มต้น 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);}}

ฉันรู้ว่ามันไม่ได้มีการแข่งขันที่รุนแรง ฉันแค่อยากจะดูว่ามันจะมีลักษณะอย่างไร

แก้ไข: ขอบคุณ Ash Burlakzenko, Berend และ Dennis_E

เสียงกระเพื่อมสามัญ 39

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

เวลาสองขัดแย้งสตริงกำหนดดัชนีฉันที่พวกเขาแตกต่างกันและผลตอบแทนย่อยจาก 0 ถึงฉัน

Perl 5, 20 19 18 ไบต์

19 ไบต์, บวก 1 สำหรับ-Eธงแทน-e:

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

นี้จะถูกคัดลอกลงคอจากดิจิตอลบาดเจ็บ 's คำตอบ sed จะถือว่าอินพุตเป็นคำสองสามคำโดยไม่มีช่องว่างในพวกเขา (หรือก่อนหน้าแรก) และมีช่องว่างระหว่างพวกเขา

ปรับปรุง:

ThisSuitIsBlackNot ไม่แนะนำให้ใช้-peดังต่อไปนี้เพื่อบันทึกไบต์ (ขอบคุณ!):

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

จากนั้นLuk Stormsแนะนำให้ใช้-nEดังต่อไปนี้เพื่อบันทึกไบต์อื่น (ขอบคุณ!):

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

(ฉันนับ-Eเป็นหนึ่งไบต์แทนมาตรฐาน-eแต่-nหรือ-pเท่ากับสองความประทับใจของฉันคือว่านั่นคือ SOP ที่นี่)

Python 3, 72

31 bytes saved thanks to FryAmTheEggman. 8 saved thanks to 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)]

A function that takes a list w of two words, and prints the common prefix before terminating with an error.

Python 3's print function lets you prints strings flush against each other with print(end=c) (thanks to Sp3000 for saving 3 bytes with this shorter syntax). This repeatedly take two letters from the words, and prints the first of the letters. The indexing c[c!=d] gives an out-of-bounds error where c!=d, terminating the execution when two unequal letters are encountered.

An explicit for loop is one char longer than the list comprehension:

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

Javascript ES6, 52 bytes

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

Usage:

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

Retina, 14 bytes

Uses the same idea as kirbyfan64sos. Unfortunately, despite Martin's claim that eventually Match mode will feature a way to print capturing groups, it hasn't been implemented yet. Otherwise, (.*).* \1 could be used along with 2 bytes or so for some not-yet-existing configuration string option.

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

Each line would go in its own file, with 1 byte added per additional file. Alternatively, run in a single file with the -s flag.

K, 24 bytes

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

Find the minimum of the length of each string. ((&/#:'x)). Trim each string to that length (#'x). Then compare, smear and sum the resulting sequence:

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

Finally, take that many characters from the first of the strings provided (#*x).

In action:

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

Powershell, 65 bytes

Compare the strings, shrinking the first until it either matches (print and exit) or the string is null and the loop terminates.

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

Julia, 62 bytes

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

Ungolfed:

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

Fixed an issue (at the hefty cost of 14 bytes) thanks to xnor!

C99, 73 bytes

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

Similar to this answer, but shorter and meets spec (takes input from stdin).

MATLAB, 50 40 bytes

Defines a function that accepts 2 strings as input, outputs to command window

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

This solution will work for any string, outputs

ans =

   Empty string: 1-by-0

if no match is given.

Can be golfed by using a script instead of a function (using local variables a, b) (-16 bytes).

so getting 34 Bytes

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

The function style (which seems to be the accepted style), yields

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

(Thanks @Stewie Griffin)

Perl 6, 28 bytes

I came up with two that take their values from STDIN which are based on the Perl 5 answer.

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

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

The first requires exactly one space between the inputs, while the other requires at least one whitespace character between the inputs.

That is quite a bit shorter than the first thing I tried which takes the values from the command line.

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

or even the lambda version of it:

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

Though this is much easier to adjust so that it accepts any number of input strings, at the cost of only one stroke.

{[~] 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 bytes

Japt is a shortened version of JavaScript. Interpreter

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

(The strings go into the Input box like so: "global" "glossary")

This code is exactly equivalent to the following JS:

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

I have not yet implemented anonymous functions, which is what the $...$ is for: anything between the dollar signs is left untouched in the switch to JS. After I add functions, this 21-byte code will suffice:

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

And after I implement a few more features, it will ideally be 18 bytes:

UmXY{AxX=VgY ?X:AP

Suggestions welcome!

So it turns out that this program is only 15 bytes in modern Japt:

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

Try it online!

MATL, 11 9 bytes

y!=XdYpf)

Try it online!

(-2 bytes thanks to 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))""))

Pretty straightforward. Unfortunately the spaces around the parameter destructuring are necessary (that's the [a & b] stuff). Not the shortest but I beat some other answers in languages that like to brag about their terseness so I'll post it.

Python 2, 50 bytes

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

Input

The input is taken as two strings:

"global", "glossary"

Output

The output is each character followed by a space; which, hopefully, isn't a problem. However, if it is, I'll edit my answer.

g l o 

TeaScript, 16 bytes 20

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

Takes each input separated by a space.

PHP, 52 bytes

Not spectacular but does the job:

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

Takes two command line arguments:

php prefix.php department depart