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

สิ่งนี้เกิดขึ้นกับฉันในขณะที่กำลังทดลองกับ Groovyซึ่งเป็นวิธีแก้ปัญหาที่แท้จริงของฉัน

def temp = things.collect({"\'${it}\'"})
switch (things.size()) {
    case 1:
        result = temp[0]
        break
    case 2:
        result = temp.join(" and ")
        break
    default:
        result = temp.take(temp.size()-1).join(", ") + ", and " + temp[-1]
        break
}

นั่นคือการ['1']ควรผลผลิต'1', ['1','2']ควรผลผลิต'1 and 2'[ดูสิ่งที่ฉันได้มี?] และควรผลผลิต['1','2','3']'1, 2, and 3'

ฉันมีคำตอบที่ดีสำหรับ Groovy แต่ฉันต้องการดูว่าภาษาอื่นสามารถทำอะไรได้บ้าง

อะไรคือแนวทางที่กะทัดรัดในภาษาต่าง ๆ ที่ใช้ประโยชน์จากคุณลักษณะและสำนวนของภาษาเหล่านั้น

CSS, 132 116 115 ไบต์

a:not(:last-child):nth-child(n+2):after,a:nth-last-child(n+3):after{content:","}a+:last-child:before{content:"and "

<p>
  <a>one</a>
</p>
<p>
  <a>one</a>
  <a>two</a>
</p>
<p>
  <a>one</a>
  <a>two</a>
  <a>three</a>
</p>
<p>
  <a>one</a>
  <a>two</a>
  <a>three</a>
  <a>four</a>
</p>

a:not(:last-child):nth-child(n+2):after,a:nth-last-child(n+3):after{content:","}a+:last-child:before{content:"and "

CSS ไม่เห็นบ่อยเกินไปใน code golf เพราะมันสามารถจัดรูปแบบข้อความเท่านั้น แต่ใช้งานได้กับความท้าทายนี้และฉันคิดว่ามันสนุกที่จะทำ ดูการทำงานโดยใช้ข้อมูลโค้ดด้านบน (คลิก "แสดงข้อมูลโค้ด")

รายการควรอยู่ในไฟล์ HTML ที่เชื่อมโยงกับแต่ละองค์ประกอบที่ล้อมรอบด้วย<a>แท็กและคั่นด้วยตัวแบ่งบรรทัด รายการควรเป็นองค์ประกอบเดียวในองค์ประกอบหลักของพวกเขาเช่น

<a>one</a>
<a>two</a>
<a>three</a>

คำอธิบาย

a:not(:last-child):nth-child(n+2)::after,
a:nth-last-child(n+3)::after {
    content: ",";
}

a + :last-child::before {
    content: "and ";
}

ลองพิจารณารุ่นที่ไม่ดีกว่าด้านบน หากคุณไม่คุ้นเคยกับวิธีการทำงานของ CSS ทุกอย่างที่อยู่นอกวงเล็บปีกกาคือตัวเลือกที่กำหนดชุดองค์ประกอบ HTML ที่มีการประกาศภายในวงเล็บปีกกา แต่ละคู่เลือกประกาศจะเรียกว่าเป็นกฎ (มันซับซ้อนกว่านั้น แต่พอเพียงสำหรับคำอธิบายนี้) ก่อนที่จะใช้สไตล์ใด ๆ รายการจะปรากฏโดยคั่นด้วยช่องว่างเท่านั้น

เราต้องการเพิ่มเครื่องหมายจุลภาคหลังทุกคำยกเว้นที่ผ่านมายกเว้นสำหรับรายการที่มีสองคำซึ่งไม่ได้รับเครื่องหมายจุลภาค ตัวเลือกแรกa:not(:last-child):nth-child(n+2):afterเลือกองค์ประกอบทั้งหมดยกเว้นตัวแรกและตัวสุดท้าย :nth-child(n+2)เป็นวิธีที่สั้นกว่าในการพูด:not(:first-child)และใช้งานได้โดยการเลือกองค์ประกอบที่ดัชนี (เริ่มต้นที่ 1) มากกว่าหรือเท่ากับ 2 (ใช่มันยังทำให้ฉันสับสนเล็กน้อยเอกสาร MDNอาจช่วยได้)

ตอนนี้เราแค่ต้องเลือกองค์ประกอบแรกเพื่อรับเครื่องหมายจุลภาคถ้ามีองค์ประกอบสามอย่างหรือมากกว่านั้น a:nth-last-child(n+3):afterทำงานเหมือน:nth-childแต่นับจากด้านหลังดังนั้นจึงเลือกองค์ประกอบทั้งหมดยกเว้นสองรายการสุดท้าย เครื่องหมายจุลภาคใช้การรวมกันของสองชุดและเราใช้:after องค์ประกอบหลอกเพื่อเพิ่มcontentทันทีหลังจากแต่ละองค์ประกอบที่เลือก

กฎข้อที่สองง่ายกว่า เราจำเป็นต้องเพิ่ม "และ" ก่อนองค์ประกอบสุดท้ายในรายการยกเว้นว่าจะเป็นองค์ประกอบเดียว กล่าวอีกนัยหนึ่งเราต้องเลือกองค์ประกอบสุดท้ายที่นำหน้าด้วยองค์ประกอบอื่น +เป็นตัวเลือกพี่น้องที่อยู่ติดกันใน CSS

Haskell: 81, 77 74 ตัวอักษร

f[x]=x
f[x,y]=x++" and "++y
f[x,y,z]=x++", "++f[y++",",z]
f(x:y)=x++", "++f y

คุณสมบัติ Haskell: การจับคู่รูปแบบ

Ruby, 47 ไบต์

q=" and ";p$*[2]?(a=$*.pop;$**", "+?,+q+a):$**q

คำอธิบาย

• อินพุตเป็นอาร์กิวเมนต์บรรทัดคำสั่ง ( $*)
• เมื่อ$*มีองค์ประกอบที่สาม ( $*[2]ไม่กลับไม่มี) ใช้องค์ประกอบทั้งหมดลบหนึ่งที่ผ่านมาและเปิดให้เป็นที่คั่นด้วยจุลภาค String Array#*ใช้ ในที่สุดเพิ่มเครื่องหมายจุลภาคพิเศษสตริง" and "และอาร์กิวเมนต์บรรทัดคำสั่งสุดท้าย
• เมื่อ$*ไม่มีอิลิเมนต์ที่สามจะมีการกำหนดอาร์กิวเมนต์สองหนึ่งหรือหนึ่งรายการ ข้อโต้แย้งสามารถเข้าร่วมกับสตริงได้อย่างปลอดภัย" and "และให้ผลลัพธ์ที่ถูกต้อง

Python 2 (61)

s=input()
d=s.pop()
print", ".join(s)+", and "[8-7*len(s):]+d

เคล็ดลับหลักคือการตัดส่วนของผู้เข้าร่วมสุดท้าย", and "สำหรับองค์ประกอบหนึ่งและสอง สำหรับหนึ่งทั้งหมดมันถูกตัดออกและสองเครื่องหมายจุลภาคจะถูกลบออก ทำได้โดยการแบ่งส่วนออก[8-7*len(s):](สังเกตว่าsสั้นกว่าหนึ่งpop)

น่าเสียดายที่dไม่สามารถถูกแทนที่ด้วยการแสดงออกของมันหรือสิ่งที่popจะเกิดขึ้นสายเกินไป

CSS, 62 ตัวอักษร 112 ตัวอักษร

แรงบันดาลใจจากรายการอื่น ๆ แม้สั้น โปรดทราบว่ามันต้องการให้องค์ประกอบ A ไม่ได้ถูกคั่นด้วยช่องว่างสีขาว:

a+a:before{content:", "}a+a:last-child:before{content:", and "

http://jsfiddle.net/olvlvl/1Ls79ocb/

แก้ไขสำหรับ "หนึ่งและสอง" ตามที่เดนนิสชี้:

a+a:before{content:", "}a+a:last-child:before{content:", and "}a:first-child+a:last-child:before{content:" and "

http://jsfiddle.net/olvlvl/1Ls79ocb/3/

Perl (v 5.10+) - 37 35 34 28

@F>2&&s/ /, /g;s/.* \K/and /

ที่จะทำงานกับกับรายชื่อพื้นที่ที่จัดมาให้แยกออกจากกันได้ที่perl -apeSTDIN

เอาต์พุตสำหรับอินพุตต่างๆ:

$ perl -ape '@F>2&&s/ /, /g;s/.* \K/and /'
oxford
oxford
oxford cambridge
oxford and cambridge
oxford cambridge comma
oxford, cambridge, and comma
oxford cambridge comma space
oxford, cambridge, comma, and space

Javascript (63)

l=a.length;l>2&&(a[l-1]='and '+a[l-1]);a.join(l>2?', ':' and ')

กรณี:

• a = [1] => 1
• a = [1, 2] => 1 and 2
• a = [1, 2, 3] => 1, 2, and 3

Caveat: สิ่งนี้จะแก้ไของค์ประกอบสุดท้ายในอาร์เรย์ที่มีความยาว> 2

GNU sed - 69 chars รวม 1 สำหรับ-rflag

s/ /, /g
s/( [^ ]+)( [^ ]+)$/\1 and\2/
s/^([^,]+),([^,]+)$/\1 and\2/

รับรายการที่คั่นด้วยช่องว่าง (เป็นสำนวนที่ค่อนข้างสมเหตุสมผลสำหรับเชลล์สคริปต์)

ตัวอย่าง

$ sed -r -f oxfordcomma.sed <<< "1"
1
$ sed -r -f oxfordcomma.sed <<< "1 2"
1 and 2
$ sed -r -f oxfordcomma.sed <<< "1 2 3"
1, 2, and 3
$

Python 2 - 71, 70 68

s=input()
l=len(s)-1
print', '.join(s[:l])+', and '[l<2:]*(l>0)+s[l]

นับจำนวนตัวอักษรรวมทั้งสองและinputprint

Ruby, 57 ไบต์

f=->l{s=l*', ';s.sub(/,(?!.*,)/,(l.size<3?'':?,)+' and')}

ฉันกำลังเข้าร่วมสตริงด้วย,แล้วฉันจะแทนที่เครื่องหมายจุลภาคสุดท้ายในสตริงด้วยand(และเครื่องหมายจุลภาคไม่จำเป็นขึ้นอยู่กับความยาวของรายการ)

งูเห่า - 60

do(l as String[])=l.join(', ',if(l.length<3,'',',')+' and ')

List<of T>.joinฟังก์ชั่นของคอบร้าช่วยให้คุณระบุตัวคั่นที่แตกต่างกันสำหรับสององค์ประกอบสุดท้ายของรายการซึ่งเป็นสิ่งที่ทำให้สิ่งนี้สั้นมาก

Perl - 59

sub f{$a=join', ',@_;$#_&&substr$a,(@_>2)-3,@_<3,' and';$a}

เข้าร่วมรายการด้วยเครื่องหมายจุลภาคจากนั้นหากรายการมีมากกว่าหนึ่งองค์ประกอบอาจเพิ่ม' and'หลังเครื่องหมายจุลภาคสุดท้าย (หากความยาว> = 3) หรือแทนที่เครื่องหมายจุลภาคสุดท้ายด้วย (ถ้าความยาว == 2)

PHP, 192 167 146 136 ตัวละคร:

$n=' and ';$s=count($a);echo ($s<3)?join($n,$a):join(', ',array_merge(array_slice($a,0,$s-2),Array(join(",$n",array_slice($a,-2,2)))));

ขึ้นอยู่กับฟังก์ชั่นที่ฉันเขียนเมื่อหลายปีก่อนที่http://www.christopherbloom.com/2011/05/21/join-implode-an-array-of-string-values-with-formatting/

รุ่นที่ - 151 ไบต์

@echo off&set f=for %%a in (%~1)do
%f% set/aa+=1
%f% set/ac+=1&if !c!==1 (set o=%%a)else if !c!==!a! (set o=!o!, and %%a)else set o=!o!, %%a
echo !o!

บันทึก; คุณต้องเรียกใช้สคริปต์จากcmdการ/vตั้งค่าสวิตช์onเป็นดังนั้นฉันจึงไม่ต้องรวมความยาวsetLocal enableDelayedExpansionในสคริปต์ มิฉะนั้นเพิ่ม 30 ให้กับจำนวนไบต์และเรียกใช้สคริปต์ตามปกติ

h:\uprof>cmd /von /c test.bat "1 2 3"
1, 2, and 3

h:\uprof>cmd /von /c test.bat "1 2 3 4 5"
1, 2, 3, 4, and 5

Groovy, 47 43 57 ตัวอักษร, JavaScript ES6 56 ตัวอักษร

Groovy:

(a[1]?a[0..-2].join(", ")+(a[2]?",":"")+" and ":"")+a[-1]

ตั้งแต่อาร์เรย์ที่เต็มไปด้วยตัวละครที่เราสามารถแทนที่a.size>1โดยa[1]

JavaScript, ES6:

a.join(', ').replace(/,([^,]+)$/,`${a[2]?',':''} and$1`)

ทั้งสองกรณีสมมติว่าตัวแปร a มีอาร์เรย์ที่เป็นปัญหา

PHP, 86 84 ตัวอักษร

$a = ['one', 'two', 'three', 'four', 'five'];

ด้วยการเริ่มต้นอาร์เรย์เราเริ่มนับ:

$L=count($a)-1;$S=', ';$L<2?($S=' and '):($a[$L]='and '.$a[$L]);echo implode($S,$a);

prettified:

$last_index = count($a) - 1;
$separator = ', ';
if ($last_index < 2) {
    $separator = ' and ';
} else {
    $a[$last_index] = 'and '.$a[$last_index];
}
echo implode($separator, $a);

รายการสุดท้ายในรายการได้รับการแก้ไข สิ่งนี้ควรใช้ได้เนื่องจากใน PHP การกำหนดแถวลำดับและการเรียกฟังก์ชันทำสำเนา

CJam, 35 30 28 27 bytes

q~)\_"and "L?@+a+_,2=", ">*

นี่คือโปรแกรมที่อ่านจาก STDIN และพิมพ์ไปยัง STDOUT ลองออนไลน์

มันทำงานอย่างไร

q~                                     " Q := eval(input())                               ";
  )                                    " P := Q.pop()                                     ";
   \_"and "L?@+                        " P := (Q ? 'and ' : '') + P                       ";
                a+                     " Q += [P]                                         ";
                  _,2=", ">            " J := ', '[(len(Q) == 2):]                        ";
                           *           " R := J.join(Q)                                   ";
                                       " print R (implicit)                               ";

ตัวอย่างการวิ่ง

$ cjam <(echo 'q~)\_"and "L?@+a+_,2=", ">*') <<< '["1"]'; echo
1
$ cjam <(echo 'q~)\_"and "L?@+a+_,2=", ">*') <<< '["1""2"]'; echo
1 and 2
$ cjam <(echo 'q~)\_"and "L?@+a+_,2=", ">*') <<< '["1""2""3"]'; echo
1, 2, and 3
$ cjam <(echo 'q~)\_"and "L?@+a+_,2=", ">*') <<< '["1""2""3""4"]'; echo
1, 2, 3, and 4

Google ชีต, 67 68 67 92 ไบต์

=SUBSTITUTE(JOIN(", ",FILTER(A:A,A:A<>"")),",",IF(COUNTA(A:A)>2,",","")&" and",COUNTA(A:A)-1

อินพุตเริ่มต้นที่เซลล์A1และลงต่อเนื่องจากมีหลายรายการ
JOINรวมพวกเขาทั้งหมดเป็นสตริงที่มีเครื่องหมายจุลภาคระหว่างแต่ละ
FILTERลบช่องว่างที่ไม่ใช่ช่องว่างออกเพื่อที่คุณจะได้ไม่ต้องจบด้วยเครื่องหมายจุลภาคที่สิ้นสุด
SUBSTITUTEแทนที่เครื่องหมายจุลภาคสุดท้าย (พบโดยการCOUNTAนับอินพุตที่ไม่ว่าง)

It's not very exciting but it's doable in a single cell.

JavaScript (ES6) 60

Assuming no empty strings in input array

f=(a,b=a.pop())=>a[0]?a.join(', ')+(a[1]?',':'')+' and '+b:b

Test In FireFox/Firebug console

console.log(f(['We invited the stripper','JFK','Stalin']))

Output

 We invited the stripper, JFK, and Stalin

JavaScript - 60 56 71 67 63

Not exactly an idiomatic approach, but I had fun writing it and I like regex.

Assuming the array is stored in var a:

a.join((a.length>2?',':'')+' ').replace(/([^,\s])$/,"and $1")

Shortened by simply checking for index [2]: (yay boolean coercion)

a.join((!!a[2]?',':'')+' ').replace(/([^,\s])$/,'and $1')

Apparently I suck at testing and skipped a single-entry test. Here's the fixed version:

a.join((!!a[2]?',':'')+' ').replace(/([^,\s])$/,(!!a[1]?'and ':'')+'$1')

Shaved off 2 chars by inverting my booleans and 3 more by moving the space from the concatenation into the then/else of the first ternary:

a.join((!a[2]?' ':', ')).replace(/([^,\s])$/,(!a[1]?'':'and ')+'$1')

Thanks to @tomsmeding for reminding me that I don't have to coerce my booleans because JS does that for me. I also realised I forgot to remove the parentheses separating the first ternary from the concatenation inside the join():

a.join(a[2]?', ':' ').replace(/([^,\s])$/,(a[1]?'and ':'')+'$1')

Did I do that right? Obligatory new golfer apology.

Golfscript - 31 39 34 30

Hello, World! I am a long time lurker, first time poster. Here is my 30 byte solution in Golfscript (given the array such as [1 2 3] is already on the stack).

.,3<" and ":A{~A(;\+]", "}if*

The results are proper for all test cases.

EDIT: Take that, CJam!

Xojo, 52 71 83 chars

dim i as int8=ubound(L)
L(i)=if(i=0,"","and ")+L(i)
Return L.Join(if(i=1," ",", ")

Note that UBound is one less than the array length.

Excel VBA, 108 Bytes

Anonymous VBE immediate window function that takes input as space delimited array from range A1 and outputs to the VBE immediate window.

x=Split([A1]):y=UBound(x):For i=0To y-2:?x(i)", ";:Next:If y>0Then?x(i)IIf(y>1,",","")" and "x(i+1)Else?[A1]

Racket 87

(define(f x)(string-join(map ~a x)", "#:before-last(if(= 2(length x))" and "", and ")))

Python 62 chars

Assuming that i is the list of strings:

(" and", ", and")[len(i) < 2].join(", ".join(i).rsplit(",",1))

C# 102 Chars

var i=m.Count(),l=i;if(l>2)l--;var r=string.Join(", ",m.Take(l));if(l!=i)r+=" and "+m.Last();return r;

Julia (53)

print(join(ARGS,", ",(endof(ARGS)>2?",":"")" and "))

Takes args from STDIN and outputs to STDOUT

Solution using Base.join(items, delim[, last])

Edit:

Test cases

julia oxfordComma.jl 1

1

julia oxfordComma.jl 1 2

1 and 2

julia oxfordComma.jl 1 2 3

1, 2, and 3

Rant (108)

[$[l:@b]:[r:each][s:[cmp:[rc];2;[is:different;,]]\s][before:[last:[notfirst:and\s]]][sync:;ordered][arg:b]]

Ungolfed:

[$[l:@b]:
    [r:each]                            # Repeat for each item
    [s:[cmp:[rc];2;[is:different;,]]\s] # Separate by comma if n > 2
    [before:[last:[notfirst:and\s]]]    # Insert "and" before last item
    [sync:;ordered]                     # Force forward order
    [arg:b]                             # Read list
]

Usage:

[$l:{A|B|C|D|E}]

Try it online

Pyth, 28

j>", "qlQ2+_t_Q+?"and "tQkeQ

Examples:

$ pyth programs/oxford.pyth <<< "['1']"
1

$ pyth programs/oxford.pyth <<< "['1','2']"
1 and 2

$ pyth programs/oxford.pyth <<< "['1','2','3']"
1, 2, and 3

PHP - 72

Set up the input:

$i=[1,2,3,4,5];

And then the process:

$x=count($i)-1;if($x) {$i[$x]=" and ".$i[$x];}echo join($x>1?",":"",$i);