ฉันเจอคำถามนี้เกี่ยวกับ SOและคิดว่ามันจะเป็นการท้าทายกอล์ฟที่ดี ดังนั้นนี่คือ:

ท้าทาย:

เขียนโปรแกรมที่อ่านลำดับของสตริงอักขระหนึ่งรายการต่อบรรทัดและส่งรายการของตำแหน่งทั้งหมดที่แต่ละสตริงมีอักขระเหมือนกัน

อินพุตและเอาต์พุต:

อินพุตประกอบด้วยอักขระ ASCII ที่ไม่ใช่แบบ whitespace ที่พิมพ์ได้หนึ่งบรรทัดหรือมากกว่าแต่ละบรรทัดตามด้วยบรรทัดใหม่ คุณอาจสมมติว่าบรรทัดอินพุตทั้งหมดมีความยาวเท่ากัน การขึ้นบรรทัดใหม่นั้นไม่ถือเป็นส่วนหนึ่งของอินพุต (เช่นคุณไม่ควรส่งออกเป็นอักขระที่ตรงกัน)

ตัวอย่างการป้อนข้อมูล (ถูกขโมยลงคอจากคำถาม SO):

abcdefg
avcddeg
acbdeeg

หลังจากอ่านอินพุตแล้วโปรแกรมของคุณควรพิมพ์ตำแหน่งของแต่ละคอลัมน์ที่ตรงกันและอักขระที่อยู่ในนั้น (โปรแกรมของคุณอาจ แต่ไม่จำเป็นต้องหยุดอ่านอินพุตเพิ่มเติมหากสามารถกำหนดได้ตั้งแต่ต้นว่าไม่มีคอลัมน์ที่ตรงกัน) อนุญาตรูปแบบเอาต์พุตที่เหมาะสมใด ๆ โดยเฉพาะอย่างยิ่งคุณสามารถใช้การจัดทำดัชนีตาม 0 หรือ 1 สำหรับตำแหน่ง

ตัวอย่างเอาต์พุตสำหรับอินพุตด้านบน (โดยใช้การทำดัชนีแบบอิง 0):

0: a
3: d
6: g

เกณฑ์การให้คะแนน:

นี่คือรหัสกอล์ฟดังนั้นคำตอบที่สั้นที่สุดจึงชนะ ในกรณีที่มีการเสมอกันอาจจะได้รับรางวัล chars tie-breaker chars สำหรับคุณสมบัติเพิ่มเติม:

• −½ ตัวอักษรสำหรับการจัดการสายอินพุตที่มีความยาวไม่เท่ากันอย่างถูกต้อง (เอาต์พุตไม่ควรมีตำแหน่งที่ผ่านจุดสิ้นสุดของบรรทัดอินพุตที่สั้นที่สุด)
• −¼ ตัวอักษรสำหรับการจัดการอินพุตอย่างถูกต้องประกอบด้วยอักขระ Unicode เข้ารหัส UTF-8 ตามอำเภอใจ

สำหรับแรงบันดาลใจคุณอาจพบคำตอบที่ไม่ดีนักที่คำถาม SO (ดูด้านบน)

ชี้แจง:

• เพียงแค่เชื่อมตำแหน่งและตัวอักษรเข้าด้วยกันเช่นเดียวกับใน0a3d6gจะไม่นับเป็น "เอาท์พุทที่สมเหตุสมผล" คุณควรจัดให้มีตัวคั่นบางตัว (เช่นช่องว่าง) ระหว่างแต่ละองค์ประกอบของเอาต์พุตเพื่อให้สามารถแยกวิเคราะห์ได้อย่างชัดเจน

• อินพุตจะถูกจัดเตรียมไว้ในอินพุตสตรีมมาตรฐาน ( stdin) หรือใช้กลไกป้อนข้อความแบบใดก็ตามที่เป็นธรรมชาติที่สุดสำหรับภาษาที่คุณเลือก (ถ้าภาษาที่คุณเลือกไม่ได้มีกลไกธรรมชาติสำหรับการป้อนข้อมูลไฟล์ทำสิ่งที่ดูเหมือนว่าใกล้เคียงที่สุดในจิตวิญญาณ.)

• อินพุตสิ้นสุดลงเมื่อไม่มีข้อมูลที่จะอ่านอีกต่อไป (เช่นเมื่อเงื่อนไขสิ้นสุดไฟล์เกิดขึ้น) หากคุณต้องการคุณอาจต้องการให้อินพุตถูกยกเลิกโดยบรรทัดว่าง (ซึ่งคุณไม่ควรนับรวมเป็นส่วนหนึ่งของอินพุต) ถ้าคุณทำเช่นนั้นโปรดพูดถึงมันในคำตอบของคุณเพื่อให้ผู้อื่นสามารถให้ข้อมูลที่ถูกต้องสำหรับการทดสอบ

• บรรทัดอินพุตทุกบรรทัดรวมถึงบรรทัดสุดท้ายจะลงท้ายด้วยอักขระบรรทัดใหม่ คำตอบของคุณต้องไม่รายงาน newline นี้เป็นคอลัมน์ที่ตรงกัน (ไม่เป็นไรถ้าโซลูชันของคุณสามารถจัดการอินพุตได้โดยที่บรรทัดสุดท้ายไม่ได้ขึ้นบรรทัดใหม่ แต่ไม่จำเป็น)

APL, 25 อักขระ

∩/{0=⍴⍵:⍬⋄(⊂⍵,⍨¨⍳⍴⍵),∇⍞}⍞

ฉันใช้ Dyalog APL (เวอร์ชั่น 13) เป็นล่ามของฉัน มันจัดการทั้งอินพุตของความยาวไม่เท่ากันและอักขระ Unicode (UTF-8)

ตัวอย่าง:

      ∩/{0=⍴⍵:⍬⋄(⊂⍵,⍨¨⍳⍴⍵),∇⍞}⍞
abcdefg
avcddeg
acbdeeg

  1 a  4 d  7 g  

      ∩/{0=⍴⍵:⍬⋄(⊂⍵,⍨¨⍳⍴⍵),∇⍞}⍞
test日本
blat日本国foo

  4 t  5 日  6 本 

คำอธิบายค่อนข้างจากขวาไปซ้าย:

• ก้อนหลักของคำตอบนี้คือฟังก์ชั่นโดยตรง (โดยทั่วไปฟังก์ชั่นที่ไม่ระบุชื่อ) ที่กำหนดไว้ในวงเล็บปีกกา ⍵การโต้แย้งสิทธิของถูกระบุโดย
  • 0=⍴⍵:⍬คือการแสดงออกครั้งแรกของเราและตรวจสอบว่าเราได้รับบรรทัดว่างเปล่า (เช่นเราเสร็จแล้ว) มันใช้ยาม (โครงสร้างที่คุ้นเคยกับโปรแกรมเมอร์ที่ใช้งานได้หลายคน) เพื่อดำเนินการแสดงออกทางด้านขวาของลำไส้ใหญ่ ในกรณีนี้ถ้า 0 เท่ากับรูปร่าง / ความยาว ( ⍴) ของการโต้แย้งที่ถูกต้องเราจะส่งกลับชุดที่ว่างเปล่า ( ⍬)
  • ⋄แยกนิพจน์ทั้งสองภายในฟังก์ชัน หากการแสดงออกก่อนหน้านี้ไม่ได้รับการประเมิน (และดังนั้นจึงไม่ได้กลับอะไร) เราย้ายไปที่การแสดงออกต่อไป
  • เราเรียกฟังก์ชันนี้ซ้ำโดยใช้ฟังก์ชั่นอ้างอิงตนเอง ( ∇) อาร์กิวเมนต์ของฟังก์ชันคือบรรทัดของอินพุตผู้ใช้ที่ไม่ได้รับการประเมินซึ่งกำหนดโดย quote-quad ( ⍞)
  • ⊂⍵,⍨¨⍳⍴⍵ สร้างคู่สำหรับอักขระแต่ละตัวในสตริงที่องค์ประกอบแรกของแต่ละคู่อยู่ในตำแหน่งในสตริงและองค์ประกอบที่สองคืออักขระ
  • ⍳⍴⍵ให้เวกเตอร์ตั้งแต่ 1 ถึง⍴⍵หรือความยาวของสตริงอินพุต
  • ⍵,⍨¨ใช้ฟังก์ชั่นการต่อข้อมูลคอมมิชชัน ( ,⍨) กับแต่ละ¨องค์ประกอบ( ) องค์ประกอบทางด้านซ้าย ( ⍵ในกรณีนี้อินพุตของผู้ใช้) และขวา การแปลงค่าฟังก์ชันการต่อข้อมูลทำให้อาร์กิวเมนต์ซ้ายและขวาถูกสลับ
  • ในที่สุดเราใส่ผลลัพธ์โดยใช้⊂เพื่อให้เราสามารถแยกความแตกต่างระหว่างบรรทัดของอินพุต
• ตอนแรกเราฟีดฟังก์ชั่นของเราด้วยการป้อนข้อมูลผู้ใช้ ( ⍞)
• ในที่สุดเราก็ลด ( /) เวกเตอร์ที่เป็นผลลัพธ์ของเวกเตอร์ของคู่โดยใช้ฟังก์ชันจุดตัด ( ∩) เพื่อให้ได้ผลลัพธ์ของคู่ที่พบในเวกเตอร์ย่อยทั้งหมด

Golfscript (28 ตัวอักษร)

n/zip:^,,{.^=.&.,1>{;;}*}%n*

มีปัญหาเกี่ยวกับชุดอักขระเมื่อทำการไพพ์ Unicode ผ่านดังนั้นจึงไม่มีโบนัสประจำไตรมาส

J, 57 51 44 40 ตัวอักษร

,.&.>y;y{{.z[y=.I.*/2=/\]z=.];._2]1!:1]3

ฉันไปถึงที่นั่นอย่างช้าๆ แต่แน่นอน ยังคงห่างไกลจากอุดมคติแม้ว่าฉันคิดว่า

ฉันรู้สึกว่าการใช้เบ็ดจะเป็นคำตอบ แต่น่าเสียดายที่ไม่ใช่ (44 ตัวอักษร):

,.&.>((];({{.)~)([:I.[:*/2=/\]))];._2]1!:1]3

ฉันอาจต้องใช้วิธีที่แตกต่างอย่างสิ้นเชิงเพื่อให้สั้นลง

Haskell, 64 ตัวอักษร

main=interact$show.foldl1(filter.flip elem).map(zip[0..]).lines

จับเส้นที่มีความยาวไม่เท่ากัน การสนับสนุน Unicode ขึ้นอยู่กับการตั้งค่าตำแหน่งที่ตั้งปัจจุบัน

ตัวอย่างผลลัพธ์:

[(0,'a'),(3,'d'),(6,'g')]

Python 2 คะแนน 81.5 ( 116 94 86 83 82 ไบต์ลบด้วยโบนัส)

import sys
i=0
for x in zip(*sys.stdin)[:-1]:
 i+=1
 if len(set(x))<2:print i,x[0]

(Bash) Shell Scripting, 105 ตัวอักษร

หากใครมีเคล็ดลับเพิ่มเติมสำหรับเรื่องนี้โปรดกรอกความคิดเห็นฟรี!

for((i=1;i<`tail -1 $1|wc -c`;i++))do
x="cut -c$i $1";y=`$x`;[ `$x|uniq|wc -l` = 1 ]&& echo $i ${y:3};done

ผลลัพธ์:

1 ก
4 วัน
7 กรัม

Perl, 87 ตัวอักษร (−½ โบนัสไทเบรก)

นี่เป็นเวอร์ชั่น golfed ของโซลูชันของฉันเองจากเธรด SO :

chomp($a=$b=<>);$a&=$_,$b|=$_ for<>;@$_=$$_=~/./sgfor a,b;$b[$i++]eq$_&&say"$i:$_"for@a

ซึ่งแตกต่างจากรุ่น SO หนึ่งนี้ใช้ดัชนีที่ใช้ 1 สำหรับการส่งออก มันใช้คุณสมบัติ Perl 5.10 sayดังนั้นจำเป็นต้องเรียกใช้ด้วยperl -M5.010(หรือกับperl -E)

เช่นเดียวกับเวอร์ชั่น SO รหัสนี้จะจัดการกับบรรทัดที่มีความยาวผันแปรได้และจะจัดการกับอินพุต Unicode โดยพลการหากอินพุตและเอาต์พุตมาตรฐานอยู่ในโหมด UTF-8 อนิจจาโดยค่าเริ่มต้นพวกเขาจะไม่ยกเว้นว่ามีการระบุสวิตช์บรรทัดคำสั่งฟรี -CSดังนั้นจึงได้รับโบนัสถ่าน แต่ไม่ใช่โบนัส

แก้ไข: +1 char เพื่อแก้ไขข้อบกพร่อง: เพียงเพราะสตริงอินพุตไม่มีการป้อนบรรทัดไม่ได้หมายความว่าพวกเขาไม่สามารถลงเอยด้วย$a(เช่น"+" & "J" eq "\n")

T-SQL

SELECT N.number, letter = MIN(SUBSTRING(L.line, N.number, 1))
FROM Lines AS L
INNER JOIN master.dbo.spt_values AS N ON N.type = 'P'
WHERE N.number BETWEEN 1 AND (SELECT MAX(LEN(L2.line)) FROM Lines AS L2)
GROUP BY N.number
HAVING COUNT(DISTINCT SUBSTRING(L.line, N.number, 1)) = 1
ORDER BY N.number

Scala 115 107: (−¼ สำหรับการจัดการ UTF-8)

io.Source.stdin.getLines.map(_.zipWithIndex).toList.flatten.groupBy(_._2).map(_._2.toSet).filter(_.size==1)

ungolfed และSource.fromFile ("f")แทนที่จะstdinทดสอบได้ดีกว่า:

io.Source.fromFile ("f").
  getLines.map (_.zipWithIndex).
    toList.flatten.groupBy (_._2). 
      map (_._2.toSet).
        filter (_.size==1)

ผลลัพธ์:

List(Set((a,0)), Set((g,6)), Set((d,3)))

ขอขอบคุณที่แกเร็ ธ สำหรับการลดลงของขนาด 8 stdinสำหรับการใช้

VBA ( 307.25 284 - 0.75 โบนัส = 283.25)

ฉันรู้ว่าสิ่งนี้ได้รับรางวัลมาแล้ว แต่นี่คือภาพของฉัน (ไม่อ่านไฟล์เพียงแค่สตริง - ต้องมี io เพิ่ม) ฉันชอบที่ฉันต้องใช้l()ซ้ำ ฉันมักจะไม่จำเป็นต้องเขียนโปรแกรมซ้ำในชีวิตจริงของฉัน ฉันทำการทดสอบมากมาย แต่ฉันเชื่อว่าสิ่งนี้ครอบคลุมถึงการกำหนดแต้มโบนัส Unicode นอกจากนี้ยังถือว่าvbCrเป็นตัวยุติบรรทัด สิ่งนี้อาจไม่แปลเป็นระบบทั้งหมดเนื่องจากสิ่งนั้น

รหัส:

Function a(i)
b=Split(Left(i,Len(i)-1),vbCr):c=UBound(b):For q=1 To Len(b(c)):d=Mid(b(c),q,1):If l(b,c,q,d) Then a=a & q & ": " & d & vbCr:Next
End Function
Function l(m, n, o, p)
If n+1 Then l=IIf(o<=Len(m(n)),Mid(m(n),o,1)=p,0) And l(m,n-1,o,p) Else l=Mid(m(n+1),o,1)=p
End Function

ตัวอย่างอินพุต / เอาต์พุต:

Debug.Print a("abcdefghijklmnop" & vbCr & "abcdefg" & vbCr & "abcabcghijkl" & vbCr)

1: a
2: b
3: c
7: g

Q, 32

{a!((*:)x)a:(&)1=(#:')(?:')(+)x}

การใช้

q){a!((*:)x)a:(&)1=(#:')(?:')(+)x}[("abcdefg";"avcddeg";"acbdeeg")]
0| a
3| d
6| g

K, 22

วิธีการแก้ปัญหาข้างต้นสามารถลดลงได้ถึง 22 โดยเขียนเป็น K อย่างสมบูรณ์แทนที่จะส่งผ่านฟังก์ชั่น K ไปยังล่าม Q ทำให้ลดจำนวนวงเล็บที่ต้องการ

{a!@[*x]a:&1=#:'?:'+x}

PHP, 123 127 :(

ฉันไม่พอใจกับมัน (มีข้อผูกพันที่จะต้องมีการปรับปรุงให้ดีขึ้น) แต่นี่จะไป:

<?$a=$b=trim(fgets(STDIN));while($l=fgets(STDIN)){$a&=$l;$b|=$l;}$n=-1;while(@$a[++$n]){echo$a[$n]!=$b[$n]?'':"$n:{$a[$n]}\n";}

พิสูจน์การทำงาน

หากใคร ๆ สามารถนึกถึงวิธีการเริ่มต้นที่ฉลาดกว่าได้ $ a และ $ b โปรดแจ้งให้เราทราบ แต่เดิมฉันมี$a=$b=$n=''และ $ b ในที่สุดก็ถูกต้อง แต่[empty] & [anything] == [empty]ดังนั้น $ a ไม่เคยมีเนื้อหา

แก้ไข: ต้องแก้ไขการจัดการบรรทัดใหม่ (+6) แต่วางแท็กปิด (-2)

JavaScript (125 134 140 )

for(i=s=[];I=s[++i]=prompt(o='');S=I);for(c=-1;w=r=++c<S.length;o+=r?c+':'+C+'\n':'')for(C=S[c];w<i;)r&=s[w++][c]==C;alert(o)

การสาธิต: http://jsfiddle.net/Fv7kY/4/

แก้ไข 1 : จัดเรียงลูปใหม่เพื่อหลีกเลี่ยงการจัดฟัน เริ่มต้นกับฉันที่จะรวมกับ[] sย้ายส่วนwเพิ่มไปยังนิพจน์

แก้ไข 2 : ชุดไปสู่การจับกุมป้อนสุดท้ายคำพูดและการบันทึกการใช้S=I s[1]นวดและr=1 ++c<S.lengthชุดC=s[c]ในวงภายในและเปรียบเทียบกับCแทนคำพูดก่อนหน้านี้และต่อไปในการแสดงออกสั้นลงเหลือเพียงs[w][c]==s[w++][c] s[w++][c]==Cบันทึกทั้งหมด 9 ตัวอักษร นอกจากนี้ยังกำหนดw=r=...เพราะเมื่อมันเป็นความจริงw=1ซึ่งเป็นสิ่งที่เราต้องเริ่มต้นwด้วย

ทับทิม (71)

a,*s=*$<.lines
(a.size-1).times{|i|s.all?{|t|t[i]==a[i]}&&p([i,a[i]])}

เอาท์พุท:

[0, "a"]
[3, "d"]
[6, "g"]

เสียงกระเพื่อมสามัญ, 183 165 ตัวอักษร

(let((l(loop for m =(read-line)until(equal m "")collect m)))(loop for c across(car l)for i from 0 if(null(remove c(mapcar(lambda(y)(char y i))l)))collect(list i c)))

รูปแบบที่อ่านได้:

(let ((l (loop for m = (read-line) until (equal m "") collect m)))
  (loop for c across (car l)
        for i from 0 
        if (null (remove c 
                         (mapcar (lambda(y) (char y i))l)))
        collect(list i c)))

ป้อนสิ่งนี้โดยตรงใน REPL และป้อนบรรทัดยกเลิกด้วยบรรทัดว่าง

C, 126 ตัวอักษร

char a[999],b[999];main(i){for(gets(a);gets(b);)for(i=0;b[i];++i)a[i]^b[i]?a[i]=0:0;
while(i--)a[i]&&printf("%d:%c\n",i,a[i]);}

ฉันกำลังจ้องมองที่นี่ แต่ฉันไม่สามารถทำให้เล็กลงได้ อาจจำเป็นต้องใช้วิธีการใหม่

(ไม่มีคะแนนโบนัสมันจัดการสายที่มีขนาดต่างกันก็ต่อเมื่อบรรทัดแรกเป็นเส้นที่สั้นกว่า)

C # กับ. NET 4 (280)

using c=System.Console;class P{static void Main(){char[]a=c.ReadLine().ToCharArray();int r,i,l=a.Length;m:i=0;n:r=c.Read();if(r>0&&r!=10&&r!=13){if((int)a[i]!=r)a[i]='\0';i++;goto n;}for(;i>0&&i<l;)a[i++]='\0';if(r>0)goto m;for(i=0;i<l;i++)if(a[i]!='\0')c.WriteLine(i+":"+a[i]);}}

• 1 บรรทัด 280 อักขระ
• รวมถึงการใช้คำสั่งที่จำเป็นทั้งหมดและวิธีการหลัก
• โปรแกรมไม่จำเป็นต้องมีบรรทัดว่างเปล่าในตอนท้าย แต่จะยอมรับได้
• บรรทัดว่างจะถูกละเว้น
• จัดการสตริงอินพุตของความยาวใด ๆ
• สำรองเอาท์พุทจนกว่าจะสิ้นสุด (ในขณะที่คำตอบเดิมให้เอาท์พุทที่เพิ่มขึ้น)

เวอร์ชันที่อ่านได้

    char[]a=c.ReadLine().ToCharArray();
    int r,i,l=a.Length;
    m:
    i=0;
    n:
    r=c.Read();
    if(r>0&&r!=10&&r!=13){
        if((int)a[i]!=r)
            a[i]='\0';
        i++;
        goto n;
    }
    for(;i>0&&i<l;)
        a[i++]='\0';
    if(r>0)
        goto m;
    for(i=0;i<l;i++)
        if(a[i]!='\0')
            c.WriteLine(i+":"+a[i]);

คำตอบเดิม

ใช้ c = System.Console; class P {โมฆะหลักคงที่ () {ถ่าน [] a; var b = c.ReadLine (); a = b.ToCharArray (); ในขณะที่ (b! = "") {สำหรับ (int i = 0; ฉัน

• 1 บรรทัด
• 207 ตัวอักษร
• รวมถึงการใช้คำสั่งที่จำเป็นทั้งหมดและวิธีการหลัก
• โปรแกรมสิ้นสุดลงเมื่อป้อนบรรทัดว่าง
• ห้ามจัดการกับสตริงอินพุตที่สั้นกว่าสตริงแรก

    static void Readable()
    {
        char[]a;
        string b=System.Console.ReadLine();
        a=b.ToCharArray();
        while(b.Length>0)
        {
            for (int i = 0; i < a.Length; i++)
            {
                if (a[i] != b[i])
                {
                    a[i] = '\0';
                }
                else
                {
                    System.Console.WriteLine(i+": "+a[i]);
                }
            }
            b=System.Console.ReadLine();
        }
    }

หลาม 122 ตัวอักษร :

print("\n".join([str(i)+':'+str(x[0]) for i,x in enumerate(zip(*[tuple(x) for x in input().split()])) if len(set(x))<2]))

ทับทิม (242)

s = %w{ abcdefg avcddeg acbdeeg aejdjeggd }
cols = []
s.sort{ |a, b| b.size <=> a.size }[0].size.times do |i|
  uneq=true
  l = s[0][i]
  s.each { |w| uneq = false if l != w[i] }
  cols << [l, i] if uneq
end
cols.each { |c| puts c.join('|') }

ค#

List<string> strings = new List<string> { "abcdefg", "avcddeg", "acbdeeg", "aejdjeggd" };
var transposes = from index in Enumerable.Range(0, strings.First().Length)
                 select new string((from s in strings select s[index]).ToArray());
int i = 0;
foreach(string transpose in transposes)
{
   if (transpose.Distinct().Count() == 1)
     Console.WriteLine("{0}: {1}", i , transpose[0]);
   i++;
}