Anonymous user
Comma quibbling: Difference between revisions
→{{header|Tcl}}: As a one-liner (awesome!)
(Add Perl 5.) |
(→{{header|Tcl}}: As a one-liner (awesome!)) |
||
Line 320:
=={{header|Tcl}}==
<lang tcl>proc commaQuibble {lst} {
▲ set lst [lreplace $lst end-1 end [join [lrange $lst end-1 end] " and "]]
}
| |||