Sử dụng ngôn ngữ bạn chọn, viết chức năng / tập lệnh / chương trình ngắn nhất bạn có thể sẽ xác định từ có số lượng chữ cái duy nhất cao nhất trong một văn bản.

• Các chữ cái duy nhất phải bao gồm bất kỳ ký tự riêng biệt nào sử dụng mã hóa UTF-8 .
  • Phiên bản chữ hoa và chữ thường của cùng một ký tự là khác nhau và khác biệt; 'a' != 'A'
• Các từ bị ràng buộc bởi bất kỳ ký tự khoảng trắng.
• 'Chữ cái' là bất kỳ ký hiệu nào có thể được biểu thị bằng một ký tự unicode duy nhất.
• Tài liệu văn bản phải được đọc bằng mã của bạn - không tải trước / mã hóa cứng văn bản được phép.
• Đầu ra phải là từ, theo sau là số lượng chữ cái duy nhất.
  • llanfairpwllgwyngyllgogerychwyrndrobwllllantysiliogogogoch - 18
  • Bất kỳ dấu phân cách / khoảng cách giữa hai giá trị là tùy thuộc vào bạn, miễn là có ít nhất một ký tự để phân tách chúng.
• Trong trường hợp có nhiều từ tồn tại với số đếm cao nhất, hãy in tất cả các từ cho số đó, với một dòng phân định mới.

  siêu tốc độ - 16
  pseudolamellibranchiate - 16

• Đây là mã golf, vì vậy mã ngắn nhất sẽ thắng.

Câu trả lời này trên English.SE đã truyền cảm hứng cho tôi để tạo ra thử thách này. Ví dụ này chỉ sử dụng một danh sách từ , nhưng bất kỳ văn bản nào cũng có thể được xử lý.

APL (56)

{⎕ML←3⋄⊃{⍵,⍴∪⍵}¨W[⍙]⍴⍨↑+/∆∘.=∆←∆[⍙←⍒∆←↑∘⍴∘∪¨W←⍵⊂⍨⍵≠' ']}

Đây là một hàm (câu hỏi cho phép được phép) lấy một chuỗi và trả về một ma trận các từ và độ dài duy nhất.

Sử dụng:

      {⎕ML←3⋄⊃{⍵,⍴∪⍵}¨W[⍙]⍴⍨↑+/∆∘.=∆←∆[⍙←⍒∆←↑∘⍴∘∪¨W←⍵⊂⍨⍵≠' ']}'The quick brown fox jumps over the lazy dog.'
quick 5
brown 5
jumps 5

Giải trình:

• ⎕ML←3: đặt mức di chuyển thành 3 (vì vậy đó ⊂là phân vùng thay vì kèm theo)
• W←⍵⊂⍨⍵≠' ': lưu trữ trong Wchuỗi đã cho, trong đó mỗi phân vùng bao gồm các ký tự không phải khoảng trắng.
• ⍙←⍒∆←↑∘⍴∘∪¨W: lấy số lượng ( ⍴) của ∪các phần tử duy nhất ( ) trong mỗi phần ( ¨) của Wvà lưu trữ chúng trong ∆, sau đó nhận thứ tự sắp xếp khi sắp xếp xuống trên này ( ⍒) và lưu trữ phần đó vào ⍙.
• ∆[⍙... ]: Sắp xếp ∆theo ⍙, vì vậy bây giờ chúng ta có độ dài duy nhất theo thứ tự.
• ∆∘.=∆←∆: lưu trữ các sắp xếp ∆trở lại ∆và xem các phần tử ∆bằng nhau.
• ↑+/: tính tổng các hàng (bây giờ chúng ta biết có bao nhiêu phần tử bằng với mỗi phần tử) và sau đó lấy mục đầu tiên (bây giờ chúng ta biết có bao nhiêu phần tử bằng với phần tử đầu tiên, tức là có bao nhiêu từ được gắn cho vị trí đầu tiên.)
• W[⍙]⍴⍨: sắp xếp Wtheo ⍙và lấy N đầu tiên, trong đó N là số chúng ta vừa tính.
• {⍵,⍴∪⍵}¨: cho mỗi từ này, hãy lấy chính từ đó và số lượng ký tự duy nhất trong từ
• ⊃: định dạng dưới dạng ma trận

Toán học 96 115

Chỉnh sửa : mã bây giờ tìm thấy tất cả các từ của số lượng ký tự tối đa. Tôi từ chối coi dấu phẩy là ký tự từ.

f@t := With[{r = {#, Length@Union@Characters@#} & /@ 
StringSplit[t,RegularExpression@"\\W+"]},  Cases[r, {_, Max[r[[All, 2]]]}]]

Ví dụ

f@"It was the best of times,...of comparison only."

hoặc là

f@Import["t1.txt"]

{{"hoài nghi", 10}, {"so sánh nhất", 10}}

f@"Lorem ipsum... vitae augue."

hoặc là

f@Import["t2.txt"]

{"Tiền đình", 9}

Ví dụ dài hơn

f@Import["ShakespearesSonnets.txt"]
f@Import["OriginOfSpecies.txt"]
f@Import["DeclarationOfIndependence.txt"]
f@Import["DonQuixoteISpanish.txt"]
f@Import["AliceInWonderland.txt"]
f@Import["UNHumanRightsGerman.txt"]
f@Import["GenesisKJV.txt"]

Bất ngờ: Từ "độc nhất" trong Tuyên ngôn độc lập cũng là từ độc đáo nhất trong Alice in Wonderland !

{"tiên lượng", 11}
{"không thể phát hiện", 13}
{"không thoải mái", 12}
{"regocijadamente", 12}
{"không thoải mái", 12}
{"Verpflichtung", 13}
{" chôn cất ", 12}

Python 2 (110 (98 sử dụng nhập tệp))

import sys
f=lambda x:len(set(x))
a=sys.stdin.read().split()
c=max(map(f,a))
for i in a:
 if f(i)==c:print i,c

.

f=lambda x:len(set(x))
a=file('a').read().split()
c=max(map(f,a))
for i in a:
 if f(i)==c:print i,c

Những điều cần cải thiện: in ấn (33 ký tự)

Dấu câu được coi là chữ cái.

Đây là codegolf đầu tiên của tôi, tôi rất phấn khích :) Ngoài ra điều đó có nghĩa là nó có lẽ không tốt chút nào.

Groovy 127 117 112 105

Chỉnh sửa: Vì các hàm dường như được phép ở đây là một trong 105. Tôi cũng đã đổi tên các biến để tạo cột đầu tiên đọc ACDC, vì điều đó rất quan trọng trong bất kỳ loại mã nguồn nào:

A = {e = {it.to Set (). Size ()}
C = it.text.tokenize ()
D = e (C.max {e (nó)})
C.grep {e (nó) == D} .each {println "$ it $ D"}}

Bạn sẽ gọi nó như thế:

A (Tệp mới ("words.txt"))

Không có chức năng sử dụng đầu vào tiêu chuẩn trong 112 :

a = {it.toSet (). size ()}
b = System.in.getText (). tokenize ()
c = a (b.max {a (nó)})
b.grep {a (nó) == c} .each {println "$ it $ c"}

a = {it.toSet (). size ()}
b = System.in.getText (). tokenize (). sort {-a (nó)}
c = a (b [0])
b.grep {a (nó) == c} .each {println "$ it $ c"}

a = {it.toSet (). size ()}
System.in.getText (). Tokenize (). Sort ({- a (it)}). GroupBy {a (it)}. Take (1) .each {k, v-> v.each {println "$ nó $ k "}}

Đầu vào: Lorem Ipsum Văn bản từ primo

Tất cả các tập lệnh đầu ra:

consequat 9
ullamcorper 9
Vestibulum 9

Bất cứ ai cũng có một ý tưởng làm thế nào để làm cho họ hấp dẫn hơn?

Perl 78 byte

map{push$_[keys{map{$_,1}/./g}]||=[],$_}split for<>;print"$_ $#_
"for@{$_[-1]}

Giải thích hạn chế "Tài liệu văn bản phải được đọc bằng mã của bạn" để có nghĩa là các tùy chọn dòng lệnh đọc và phân tích đầu vào không được phép. Như với giải pháp PHP dưới đây, chỉ các ký tự 10 và 32 được coi là dấu phân cách từ. Đầu vào và đầu ra cũng được thực hiện theo cách tương tự.

PHP 128 byte

<?foreach(split(~߃õ,fread(STDIN,1e6))as$s){$w[count(count_chars($s,1))][]=$s;}krsort($w)?><?=join($f=~ß.key($w).~õ,pos($w)),$f;

Các ký tự duy nhất được coi là dấu phân cách từ là characer 10 và ký tự 32. Phần còn lại, bao gồm cả dấu chấm câu, được coi là một phần của từ.

Điều này có chứa một vài ký tự nhị phân, giúp lưu các dấu ngoặc kép, nhưng kết quả là cần phải được lưu với mã hóa ANSI để hoạt động đúng. Ngoài ra, phiên bản này có thể được sử dụng, nặng hơn 3 byte:

<?foreach(split(' |
',fread(STDIN,1e6))as$s){$w[count(count_chars($s,1))][]=$s;}krsort($w)?><?=join($f=' '.key($w).'
',pos($w)),$f;

Mẫu I / O:

đầu vào 1:

It was the best of times, it was the worst of times, it was the age of wisdom,
it was the age of foolishness, it was the epoch of belief, it was the epoch of
incredulity, it was the season of Light, it was the season of Darkness, it was
the spring of hope, it was the winter of despair, we had everything before us,
we had nothing before us, we were all going direct to Heaven, we were all going
direct the other way - in short, the period was so far like the present period,
that some of its noisiest authorities insisted on its being received, for good
or for evil, in the superlative degree of comparison only.

đầu ra 1:

$ php most-unique.php < input1.dat
incredulity, 11

đầu vào 2:

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec mollis, nisl sit
amet consequat fringilla, justo risus iaculis justo, vel ullamcorper dui tellus
ut enim. Suspendisse lectus risus, molestie sed volutpat nec, eleifend vitae
ligula. Nulla porttitor elit vel augue pretium cursus. Donec in turpis lectus.
Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia
Curae; Quisque a lorem eu turpis viverra sodales. Pellentesque justo arcu,
venenatis nec hendrerit a, molestie vitae augue.

đầu ra 2:

$ php most-unique.php < input2.dat
consequat 9
ullamcorper 9
Vestibulum 9

GoRuby 2.0.0 - 66 ký tự

Các giải pháp dưới đây không thực sự tìm thấy tất cả các trận đấu mà chỉ có một. Đây là phiên bản cuối cùng của tôi:

a=$<.r.sp.m{|x|[x,x.ch.u.sz]};a.m{|x|s x*' - 'if x.l==a.m_(&:l).l}

Ví dụ:

Lorem ipsum dolor ngồi amet, consitetur adipiscing elit. Donec mollis, nisl ngồi amet resultat fringilla, justo risus iaculis justo, vel ullamcorper dui Tellus ut enim. Suspendisse speechus risus, molestie sed volutpat nec, eleifend vitae ligula. Nulla porttitor elit vel augue cursus. Donec trong giảng đường turpis. Vestibulum ante ipsum primis trong faucibus orci luctus et ultrices posuere cubilia Curae; Quisque a lorem eu turpis viverra sodales. Pellentesque justo arcu, venenatis nec hendrerit a, molestie vitae augue.

sản xuất:

$ ruby golf.rb < input.txt
consequat - 9
ullamcorper - 9
Vestibulum - 9

s$<.sp.m{|x|[x.ch.u.sz,x]}.mx

Mong đợi đầu vào từ stdin. Các định dạng đầu ra là một chút khác nhau, mặc dù. Ví dụ:

$ ruby golf.rb < british.1
14
manoeuvrability

GoRuby 2.0.0 - 42 40 ký tự

s$<.r.sp.m{|x|[x.ch.u.sz,x]}.mx.rv*' - '

mong đợi đầu vào từ stdin

Ruby 1.9.3 - 69 65 ký tự

puts$<.read.split.map{|x|[x.chars.uniq.size,x]}.max.reverse*' - '

mong đợi đầu vào từ stdin (giống như trên, nhưng không có chữ viết tắt GoRuby)

Javascript 163 155 152 162 byte

Đây là khoảng ngắn như tôi có thể nhận được nó:

prompt(x=[]).split(/\s/).forEach(function(a){b={};c=0;a.split('').forEach(function(d){b[d]?1:b[d]=++c});x[c]?x[c].push(a):x[c]=[a]});alert((l=x.length-1)+':'+x[l])
prompt(x=[]).split(/\b/).map(function(a){b={};c=0;a.split('').map(function(d){b[d]?1:b[d]=++c});x[c]?x[c].push(a):x[c]=[a]});alert((l=x.length-1)+':'+x[l])
prompt(x=[]).split(/\s/).map(function(a){b=[c=0];a.split('').map(function(d){b[d]?1:b[d]=++c});x[c]=(x[c]||[]).concat(a)});alert((l=x.length-1)+':'+x[l])

prompt(x=[]).split(/\s/).map(function(a){b=[c=0];a.split('').map(function(d){b[d]?1:b[d]=++c});x[c]=(x[c]||[]).concat(a)});alert((l=x.length-1)+':'+x[l].join('\n'))

Trong phiên bản này /\s/phân tách các từ dựa trên khoảng trắng, vì vậy nó bao gồm dấu câu, dấu phẩy, dấu chấm, v.v. như một phần của từ. Điều này dễ dàng thay đổi /\b/để không bao gồm chúng.

Tôi sẽ xem những gì tôi có thể làm với các vòng lặp thay vì forEaches một chút.

Tôi / O:

Đó là thời kỳ tốt nhất, đó là thời kỳ tồi tệ nhất, đó là thời đại của trí tuệ, đó là thời đại của sự dại dột, đó là thời đại của niềm tin, đó là thời đại của sự hoài nghi, đó là mùa của ánh sáng, nó là mùa của bóng tối, đó là mùa xuân của hy vọng, đó là mùa đông của sự tuyệt vọng, chúng ta có tất cả mọi thứ trước chúng ta, chúng ta không có gì trước chúng ta, tất cả chúng ta đều đi thẳng lên thiên đường, tất cả chúng ta đều đi theo con đường khác - trong Nói ngắn gọn, thời kỳ này giống như thời kỳ hiện tại, một số nhà chức trách ồn ào nhất quyết đòi được nhận, dù tốt hay xấu, chỉ ở mức độ so sánh nhất.

11:incredulity,

Lorem ipsum dolor ngồi amet, consitetur adipiscing elit. Donec mollis, nisl ngồi amet resultat fringilla, justo risus iaculis justo, vel ullamcorper dui Tellus ut enim. Suspendisse speechus risus, molestie sed volutpat nec, eleifend vitae ligula. Nulla porttitor elit vel augue cursus. Donec trong giảng đường turpis. Vestibulum ante ipsum primis trong faucibus orci luctus et ultrices posuere cubilia Curae; Quisque a lorem eu turpis viverra sodales. Pellentesque justo arcu, venenatis nec hendrerit a, molestie vitae augue.

9:consequat
ullamcorper
Vestibulum

Một chút mệt mỏi, có lẽ. Nhưng tôi cảm thấy yên bình. Thành công của bạn trong vòng sáng nay, ở một mức độ nhỏ, thành công của tôi. Tương lai của bạn được đảm bảo. Bạn sẽ sống, an toàn và an toàn, Wilbur. Không có gì có thể làm hại bạn bây giờ. Những ngày mùa thu sẽ rút ngắn và trở lạnh. Những chiếc lá sẽ rung rinh khỏi cây và rơi xuống. Giáng sinh sẽ đến, và tuyết rơi của mùa đông. Bạn sẽ sống để tận hưởng vẻ đẹp của thế giới băng giá, vì ý bạn là rất nhiều với Zuckerman và anh ấy sẽ không làm hại bạn mãi mãi. Mùa đông sẽ qua, ngày sẽ kéo dài, băng sẽ tan trong ao đồng cỏ. Chim sẻ hót sẽ trở lại và hót, những chú ếch sẽ thức dậy, gió ấm sẽ lại thổi. Tất cả những điểm tham quan và âm thanh và mùi vị này sẽ là của bạn để thưởng thức, Wilbur, thế giới đáng yêu này, những ngày quý giá này

10:Wilbur—this

Gần như tất cả trẻ em ngày nay thật kinh khủng. Điều tồi tệ nhất là các phương tiện của các tổ chức như các điệp viên, họ đã bị biến thành một cách man rợ một cách có hệ thống, và điều này tạo ra trong họ không có xu hướng chống lại kỷ luật của Đảng. Trái lại, họ ngưỡng mộ Đảng và mọi thứ liên quan đến nó ... Tất cả sự hung dữ của họ đã bị đẩy ra ngoài, chống lại kẻ thù của Nhà nước, chống lại người nước ngoài, kẻ phản bội, kẻ phá hoại, tội phạm tư tưởng. Việc những người trên ba mươi tuổi sợ hãi chính con mình là điều gần như bình thường.

15:thought-criminals.

Scala 129 ký tự:

def f{
val l=readLine.split(" ").map(s=>(s,s.distinct.length)).sortBy(_._2)
println(l.filter(x=>x._2==l.last._2).mkString)}

R - 106 ký tự
Là một hàm có văn bản đầu vào là tham số:

f=function(t){
s=strsplit
a=sapply
t=s(t," ")[[1]]
w=a(a(s(t,""),unique),length)
n=(w==max(w))
cbind(t[n],w[n])
}

Và một vài ví dụ:

f("It was the best of times, it was the worst of times, it was the age of wisdom, it was the age of foolishness, it was the epoch of belief, it was the epoch of incredulity, it was the season of Light, it was the season of Darkness, it was the spring of hope, it was the winter of despair, we had everything before us, we had nothing before us, we were all going direct to Heaven, we were all going direct the other way - in short, the period was so far like the present period, that some of its noisiest authorities insisted on its being received, for good or for evil, in the superlative degree of comparison only.")
     [,1]           [,2]
[1,] "incredulity," "11"

f("Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec mollis, nisl sit amet consequat fringilla, justo risus iaculis justo, vel ullamcorper dui tellus ut enim. Suspendisse lectus risus, molestie sed volutpat nec, eleifend vitae ligula. Nulla porttitor elit vel augue pretium cursus. Donec in turpis lectus. Vestibulum ante ipsum primis in faucibus orci luctus et ultrices posuere cubilia Curae; Quisque a lorem eu turpis viverra sodales. Pellentesque justo arcu, venenatis nec hendrerit a, molestie vitae augue.")
     [,1]          [,2]
[1,] "consequat"   "9" 
[2,] "ullamcorper" "9" 
[3,] "Vestibulum"  "9"

Hoặc R - 100 ký tự
Là một hàm có đường dẫn đến tệp văn bản dưới dạng tham số:

f=function(t){
t=scan(t,"")
a=sapply
w=a(a(strsplit(t,""),unique),length)
n=(w==max(w))
cbind(t[n],w[n])
}

Sử dụng:

f("t1.txt")
Read 120 items
     [,1]           [,2]
[1,] "incredulity," "11"

Con trăn 176 168

w = "".join((open('c')).readlines()).replace("\n", " ").split(" ")
l = sorted(zip([len(set(w[i])) for i in range(len(w))],w,))
print([x for x in l if l[-1][0] == x[0]])

Python3 119

Đọc từ một tập tin được gọi là a.

r={w:len(set(w))for w in open("a").read().split()};print("\n".join(str((k,v))for k,v in r.items()if v==max(r.values())))

Đã thử nghiệm với các văn bản đầu vào từ @primo:

Input 1:
    ('incredulity,', 11)

Input 2:
    ('Vestibulum', 9)
    ('consequat', 9)
    ('ullamcorper', 9)

VBScript - 430 / VBA - 420

VBScript:

Function r(t)
d="Scripting.Dictionary"
Set w=CreateObject(d)
c=1
Do Until c>Len(t)
p=InStr(c,t," ")
i=InStr(c,t,vbCr)
If p<i Then s=i Else s=p
If s=0 Then s=Len(t)+1
f=Mid(t,c,s-c)  
If Not w.Exists(f) Then 
Set x=CreateObject(d)
For l=1 To Len(f)
n=Mid(f,l,1)
If Not x.Exists(n) Then x.Add n,n
Next
w.Add f,f
y=x.Count
If m=y Then z=f &vbCr &z
If m<y Then m=y:z=f
End If
c=s+1
Loop
r=z &" " &m
End Function

VBA:

Function r(t)
d="Scripting.Dictionary"
Set w=CreateObject(d)
c=1
Do Until c>Len(t)
p=InStr(c,t," ")
i=InStr(c,t,vbCr)
s=IIf(p<i,i,p)
If s=0 Then s=Len(t)+1
f=Mid(t,c,s-c)  
If Not w.Exists(f) Then 
Set x=CreateObject(d)
For l=1 To Len(f)
n=Mid(f,l,1)
If Not x.Exists(n) Then x.Add n,n
Next
w.Add f,f
y=x.Count
If m=y Then z=f &vbCr &z
If m<y Then m=y:z=f
End If
c=s+1
Loop
r=z &" " &m
End Function