Laut dieser Site ist eine allgemeine Regel, die vom US Government Printing Office Style Manual empfohlen wird

Großschreibung aller Wörter in Titeln von Veröffentlichungen und Dokumenten, mit Ausnahme von a, an, at, by, for, in, on, to, up und as, but, or, and nor.

Dies mag nicht zutreffen, da ich eine solche Empfehlung im Style-Handbuch nicht finden kann , aber verwenden wir diese Regel trotzdem.

Die Herausforderung

Bei einer Eingabezeichenfolge, die aus durch Leerzeichen getrennten Wörtern in Kleinbuchstaben besteht, wird die Groß- und Kleinschreibung der Zeichenfolge gemäß den folgenden Regeln ausgegeben

• Das erste und letzte Wort wird in Großbuchstaben geschrieben.
• Alle anderen Worten werden aktiviert, mit der Ausnahme ein , ein , die , an , von , für , in , der , auf , zu , auf , und , wie , aber , oder , und noch .

Die Eingabezeichenfolge enthält mindestens ein Wort und jedes Wort enthält mindestens einen Buchstaben und nur Zeichen von abis z.

Dies ist eine Code-Golf-Herausforderung. Versuchen Sie daher, so wenig Bytes wie möglich in der Sprache Ihrer Wahl zu verwenden. Sie können ein vollständiges Programm oder eine Funktion schreiben, um die Aufgabe zu erfüllen.

Testfälle

"the rule of thumb for title capitalization" -> "The Rule of Thumb for Title Capitalization"
"programming puzzles and code golf" -> "Programming Puzzles and Code Golf"
"the many uses of the letter a" -> "The Many Uses of the Letter A"
"title" -> "Title"
"and and and" -> "And and And"
"a an and as at but by for in nor of on or the to up" -> "A an and as at but by for in nor of on or the to Up"
"on computable numbers with an application to the entscheidungsproblem" -> "On Computable Numbers With an Application to the Entscheidungsproblem"

Python 2, 118 Bytes

Schau ma, kein Regex!

for w in`input()`.split():print[w.title(),w][`w`in"'a'an'and'as'at'the'by'but'for'nor'in'of'on'or'to'up'"].strip("'"),

Die Eingabe muss in Anführungszeichen gesetzt werden. Die Ausgabe enthält ein Leerzeichen und keine Zeilenumbrüche (ich gehe davon aus, dass das in Ordnung ist). Überprüfen Sie alle Testfälle auf Ideone .

Erläuterung

Nehmen wir die Eingabe a or anals unser Beispiel.

Mit Python 2 der `x`Abkürzung für repr, wickeln wir die Eingabe in einfachen Anführungszeichen: 'a or an'. Dann teilen wir uns Leerzeichen auf und iterieren über die Wörter.

Innerhalb der Schleife nehmen wir das repr nochmal . Für das erste und letzte Wort ergibt dies "'a"und "an'". Mit anderen Worten, es gibt 'or'. Wir möchten vermeiden, Wörter in Großbuchstaben zu schreiben, wenn sie zu dem letztgenannten Muster passen und in der Liste der Kurzwörter enthalten sind. So können wir die Wortliste als Zeichenfolge darstellen "'a'an'...'up'"und wissen, dass dierepr eines kurzen Wortes eine Teilzeichenfolge ist.

`w` in "..."gibt einen booleschen Wert an, den wir als 0oder 1zum Indizieren in die Liste behandeln können [w.title(), w]. Kurz gesagt, wir schreiben das Wort als Titel, ob es am Anfang, am Ende oder nicht in der Liste der Kurzwörter steht. Ansonsten lassen wir es in Ruhe. Zum Glück title()klappt das mit Eingaben wie erwartet immer noch 'a.

Schließlich entfernen wir einzelne Anführungszeichen aus dem Wort und drucken sie mit einem Leerzeichen nach.

05AB1E , 68 61 Bytes

7 Bytes gespart dank Adnan

™ð¡Dg<UvyN__NXQ_“a€¤€€€›€‹€‡€†€‚€‰€„€¾€ƒ€œ€³€—š¯“#™yå&&il})ðý

Probieren Sie es online!

Erläuterung

“a€¤€€€›€‹€‡€†€‚€‰€„€¾€ƒ€œ€³€—š¯“ist eine Wörterbuchzeichenfolge übersetzt als a an the at by for in of on to up and as but or nor.

™                          # title case input string
ð¡                         # split on spaces
Dg<U                       # store index of last word in X

vy                         # for each word
  N__                      # is it not first index?
     NXQ_                  # is it not last index
         “...“             # the compressed string 
              #            # split on spaces
               ™           # convert to title case
                yå         # is current word in this list?
                  &&       # and the 3 previous conditions together
                    il     # if all are true, convert to lower case
                      }    # end loop
)ðý                        # wrap stack in list and join by spaces

GNU sed 81 74 73 Bytes

Beinhaltet +1 für -r

s/\b./\u&/g
:;s/.(And?|A[st]?|The|By|But|[FN]or|In|O[fnr]|To|Up) /\L&/;t

In der ersten Zeile wird der erste Buchstabe jedes Wortes groß geschrieben. Die zweite Option schaltet alle erforderlichen Wörter auf Kleinbuchstaben zurück.

Probieren Sie es online!

Retina, 69 66 Bytes

Schreiben Sie den ersten Buchstaben jedes Wortes in Großbuchstaben und ändern Sie die ausgewählten Wörter in Kleinbuchstaben, wenn sie nicht das erste oder letzte Wort sind. Am Ende der letzten Zeile steht ein Leerzeichen.

T`l`L`\b.
+T`L`l` (And?|A[st]?|The|By|But|[FN]or|In|O[fnr]|To|Up) 

Probieren Sie es online aus

Dies funktioniert auch mit einem .anstelle des ersten Leerzeichens.

Es gibt viele reguläre Ausdrücke mit der gleichen Länge, aber ich kann sie nicht mehr zuschneiden ...

JavaScript (ES6), 141 138 135 133 Bytes

3 Bytes gespart dank mbomb007

s=>s.replace(/(\w+)( ?)/g,(a,w,n,i)=>i&&n&&/^(a[nst]?|the|by|in|of|on|to|up|and|but|[fn]?or)$/.exec(w)?a:a[0].toUpperCase()+a.slice(1))

Testfälle

let f =

s=>s.replace(/(\w)(\w*)( ?)/g,(a,l,w,n,i)=>i&&n&&/^(a[nst]?|the|by|in|of|on|to|up|and|but|[fn]?or)$/.exec(l+w)?a:l.toUpperCase()+w+n)

console.log(f("the rule of thumb for title capitalization"));
console.log(f("programming puzzles and code golf"));
console.log(f("the many uses of the letter a"));
console.log(f("title"));
console.log(f("and and and"));
console.log(f("a an and as at but by for in nor of on or the to up"));
console.log(f("on computable numbers with an application to the entscheidungsproblem"));

Jelly , 58 Bytes

“Ð/ṃƇ¬þṄẊƙ€,⁽ṙƬ®OṪJ"ɦ3×kf3Ṙç%ġu’b26ịØaṣ”z
e€¢¬T;2Ḷ¤
ḲŒtǦK

TryItOnline! oder führen Sie alle Tests durch

Wie?

Eine komprimierte Zeichenfolge mit Leerzeichen, die die Wörter trennen 47, ist 1byteweise und kostet Byte für 48Byte.

Zwei nicht getrennte komprimierte Zeichenfolgen der Wörter der Länge 2und 3(mit einem 'a' am Ende von einem) wären 40Bytes plus 2, um jedes zu teilen und 1sie für 45Bytes zu verbinden.

Eine Basis-250-Zahl, wie unten beschrieben, besteht aus 32Bytes, um sie dann 3in Basis-26 umzuwandeln, 3in das Kleinbuchstaben-Alphabet zu indizieren und 3auf das nicht verwendete Zeichen 'z'für 41Bytes aufzuteilen .

Die Suche nach Wörtern, die nicht in Großbuchstaben geschrieben werden sollen,
“Ð/ṃƇ¬þṄẊƙ€,⁽ṙƬ®OṪJ"ɦ3×kf3Ṙç%ġu’
sah folgendermaßen aus:

Nimm diese Wörter und verbinde sie mit einem Trennzeichen:
s="a an the at by for in of on to up and as but or nor"

Nächstes Label 'a'als 1, 'b'wie 2beim Separator als 0:

alpha = ' abcdefghijklmnopqrstuvwxyz'
x = [alpha.index(v) for v in s]
x
[1,0,1,14,0,20,8,5,0,1,20,0,2,25,0,6,15,18,0,9,14,0,15,6,0,15,14,0,20,15,0,21,16,0,1,14,4,0,1,19,0,2,21,20,0,15,18,0,14,15,18]

Wandle dies in eine Basiszahl um 26(der letzte verwendete Buchstabe ist 'y'plus eine Ziffer für das Trennzeichen, der Python-Code dafür ist:
n=sum(v*26**i for i,v in enumerate(x[::-1]))

Wandle das in eine Basiszahl um 250(benutze eine Liste für die Ziffern):

b=[]
while n:
    n,d = divmod(n,250)
    b=[d]+b
b
[16,48,220,145,8,32,202,209,162,13,45,142,244,153,9,80,207,75,35,161,52,18,108,103,52,205,24,38,237,118]

Suchen Sie die Zeichen in diesen Indizes in Jellys Codepage:

codepage = '''¡¢£¤¥¦©¬®µ½¿€ÆÇÐÑ×ØŒÞßæçðıȷñ÷øœþ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQR TUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~¶°¹²³⁴⁵⁶⁷⁸⁹⁺⁻⁼⁽⁾ƁƇƊƑƓƘⱮƝƤƬƲȤɓƈɗƒɠɦƙɱɲƥʠɼʂƭʋȥẠḄḌẸḤỊḲḶṂṆỌṚṢṬỤṾẈỴẒȦḂĊḊĖḞĠḢİĿṀṄȮṖṘṠṪẆẊẎŻạḅḍẹḥịḳḷṃṇọṛṣṭụṿẉỵẓȧḃċḋėḟġḣŀṁṅȯṗṙṡṫẇẋẏż«»‘’“”'''
r=''.join(codepage[i-1] for i in b)
r
'Ð/ṃƇ¬þṄẊƙ€,⁽ṙƬ®OṪJ"ɦ3×kf3Ṙç%ġu'

(Anmerkung: Da die tatsächliche Umsetzung bijektiv ist, wenn balle haben 0Ziffern müßte man zuerst herunterzuzutragen)

Der Rest:

ḲŒtǦK - Main link: title string
Ḳ      - split on spaces
    ¦  - apply to indexes
   Ç   -     given by calling the last link (1) as a monad (with the split title string)
 Œt    -     title case (first letter of each (only) word to upper case)
     K - join on spaces

e€¢¬T;2Ḷ¤ - Link 1, find indexes to capitalise: split title string
e€        - is an element of, for €ach
  ¢       - the result of calling the last link (2) as a nilad
   ¬      - logical not
    T     - get the truthy indexes (indexes of words that are not in the list)
     ;    - concatenate with
        ¤ - nilad followed by link(s) as a nilad
      2Ḷ  - range(2) -> [0,1]
                (we always want to capitalise the first index, 1, and the last index, 0)

“Ð/ṃƇ¬þṄẊƙ€,⁽ṙƬ®OṪJ"ɦ3×kf3Ṙç%ġu’b26ịØaṣ”z - Link 2, make the word list: no arguments
“Ð/ṃƇ¬þṄẊƙ€,⁽ṙƬ®OṪJ"ɦ3×kf3Ṙç%ġu’          - the base 250 number
                                b26       - convert to base 26
                                   ị      - index into
                                    Øa    - lowercase alphabet
                                      ṣ   - split on
                                       ”z - literal 'z' (the separator 0 indexes into `z`)

PHP, 158 Bytes

10 Bytes von @Titus gespeichert

foreach($w=explode(" ",$argv[1])as$k=>$v)echo" "[!$k],$k&&$k+1<count($w)&&preg_match("#^(a[snt]?|and|[fn]or|up|by|but|the|to|in|o[rnf])$#",$v)?$v:ucfirst($v);

Vorherige Version PHP, 174 Bytes

foreach($w=explode(" ",$argv[1])as$k=>$v)$k&&$k+1<count($w)&&in_array($v,[a,an,the,at,by,"for",in,of,on,to,up,"and","as",but,"or",nor])?:$w[$k]=ucfirst($v);echo join(" ",$w);

TI-Basic, 295 + 59 + 148 = 502 Bytes

Jetzt können Sie Ihren Taschenrechner nutzen. Ideal für die schule :)

Hauptprogramm, 295 Bytes

Grundsätzlich ist der Trick , um passende Worte , so dass alle Awerden nicht amit Leerzeichen umschließen, wie ersetzen " A "mit " a ". Dies bewirkt auch automatisch, dass das erste und das letzte Wort in Großbuchstaben geschrieben bleiben, da sie auf beiden Seiten kein Leerzeichen enthalten und daher mit keinem der Wörter übereinstimmen. (Genie, richtig? Und super lang, weil Kleinbuchstaben jeweils zwei Bytes sind ...)

"("+Ans+")→Str1
"@A ~ a@An ~ an@The ~ the@At ~ at@By ~ by@For ~ for@In ~ in@Of ~ of@On ~ on@To ~ to@Up ~ up@And ~ and@As ~ as@But ~ but@Or ~ or@Nor ~ nor@→Str2
For(I,2,length(Ans
If "@"=sub(Str2,I-1,1
Then
" "+Str1+"~"+sub(Str2,I,inString(Str2,"@",I)-I)+" "
prgmQ
Ans→Str1
End
End

Unterprogramm ( prgmQ), 59 Bytes:

Ans→Str9
inString(Ans,"~
sub(Str9,Ans,length(Str9)-Ans+1→Str8
Str9
prgmR
Repeat Str9=Ans+Str8
Ans+Str8→Str9
prgmR
End

Unterprogramm ( prgmR), 148 Bytes:

Ans→Str0
inString(Ans,"~→Z
inString(Str0,"~",Ans+1→Y
inString(sub(Str0,1,Z-1),sub(Str0,Z+1,Ans-Z-1→X
sub(Str0,1,-1+inString(Str0,"~
If X
sub(Str0,1,X-1)+sub(Str0,Y+1,length(Str0)-Y)+sub(Str0,X+length(sub(Str0,Z+1,Y-Z-1)),Z-X-length(sub(Str0,Z+1,Y-Z-1

PS steht ~für Token 0x81und @stellt Token dar 0x7F. Weitere Informationen finden Sie hier .

Java 7, 271 259 258 Bytes

String c(String x){String a[]=x.split(" "),s=" ",r=w(a[0])+s;for(int i=0,l=a.length-1;i<l;r+=(!s.matches("^(a[nst]?|the|by|in|of|on|to|up|and|but|[fn]?or)$")|i==l?w(s):s)+" ")s=a[++i];return r;}String w(String w){return(char)(w.charAt(0)-32)+w.substring(1);}

Ungolfed & Testcode:

Probieren Sie es hier aus.

class M{
  static String c(String x){
    String a[] = x.split(" "),
           s = " ",
           r = w(a[0]) + s;
    for(int i = 0, l = a.length-1; i < l; r += (!s.matches("^(a[nst]?|the|by|in|of|on|to|up|and|but|[fn]?or)$") | i == l
                                                 ? w(s)
                                                 : s)   + " "){
      s = a[++i];
    }
    return r;
  }

  static String w(String w) {
    return (char)(w.charAt(0) - 32) + w.substring(1);
  }

  public static void main(String[] a){
    System.out.println(c("the rule of thumb for title capitalization"));
    System.out.println(c("programming puzzles and code golf"));
    System.out.println(c("the many uses of the letter a"));
    System.out.println(c("title"));
    System.out.println(c("and and and"));
    System.out.println(c("a an and as at but by for in nor of on or the to up"));
    System.out.println(c("on computable numbers with an application to the entscheidungsproblem"));
  }
}

Ausgabe:

The Rule of Thumb for Title Capitalization 
Programming Puzzles and Code Golf 
The Many Uses of the Letter A 
Title 
And and And 
A an and as at but by for in nor of on or the to Up 
On Computable Numbers With an Application to the Entscheidungsproblem 

Groovy, 131 129

Zwei Bytes gespart dank Carusocomputing

{it.split()*.with{a->a in "a an the at by for in of on to up and as but or nor".split()?a:a.capitalize()}.join(" ").capitalize()}

C #, 305 Bytes

Es gibt noch viel Raum für Verbesserungen, aber los geht's:

s=>{;var b=s.Split(' ');b[0]=((char)(b[0][0]-32))+b[0].Substring(1);int i=0,n=b.Length;for(;++i<n;)if(!"a,an,the,at,by,for,in,of,on,to,up,and,as,but,or,nor".Split(',').Contains(b[i]))b[i]=((char)(b[i][0]-32))+b[i].Substring(1);b[n-1]=((char)(b[n-1][0]-32))+b[n-1].Substring(1);return string.Join(" ",b);};

Rubin, 123 117 111 102 Bytes

->s{s.gsub(/ .|^./,&:upcase).gsub(/ (A[nts]?|The|By|In|To|Up|And|But|[NF]or|O[rnf])(?= )/,&:downcase)}

Entschuldigung für alle Änderungen - dies sollte die letzte sein.

Python, 177 Bytes

Wird im Funktionsformat zum Speichern von Bytes geliefert. Dies ist keine besonders wettbewerbsfähige Antwort, aber es ist eine, die repr()oder nicht erfordertregex trickreich ist. Es ist auch versionsunabhängig; es funktioniert mit Python 2 oder 3.

Obwohl es vielleicht eine sehr regelkonforme Lösung ist.

def t(s):
 w="a an the the at by for in of on to up and as but or nor".split()
 l=[(s.title(),s)[s in w]for s in s.split()]
 for x in(0,-1):l[x]=l[x].title()
 return' '.join(l)

PHP, 109 142 Bytes

<?=preg_replace_callback("# (A[snt]?|And|[FN]or|Up|By|But|The|To|In|O[rnf])(?= )#",function($m){return strtolower($m[0]);},ucwords($argv[1]));

Eine Fusion von user59178´s und mbomb007´s Antwort.

setzt den ersten Buchstaben jedes Wortes in Großbuchstaben und alle Wörter der Liste in Kleinbuchstaben, die von Leerzeichen umgeben sind.
Leider muss der Rückruf auf dem kompletten Satz funktionieren; das kostet 29 bytes.

Schläger 353 Bytes

(define(cap i)(set! i(string-append i))(define c(string-ref i 0))(string-set! i 0(if(char-upper-case? c)c(integer->char(-(char->integer c)32))))i)
(let*((ex(list"a""an""the""at""by""for""in""of""on""to""up""and""as""but""or""and""nor"))(sl(string-split s)))
(string-join(for/list((i sl)(n(in-naturals)))(cond[(= n 0)(cap i)][(member i ex)i][(cap i)]))))

Ungolfed:

(define (f s)

  (define (cap i)                 ; sub-fn to capitalize first letter of a word
    (set! i (string-append i))
    (define c (string-ref i 0))
    (string-set! i 0
                 (if (char-upper-case? c)
                     c
                     (integer->char (-(char->integer c)32))))
    i)

  (let* ((ex (list "a""an""the""at""by""for""in""of""on""to""up""and""as""but""or""and""nor"))
         (sl (string-split s)))
    (string-join
     (for/list
         ((i sl)
          (n (in-naturals)))
       (cond
         [(= n 0) (cap i)]
         [(member i ex) i]
         [(cap i)]
         )))))

Testen:

(f "the rule of thumb for title capitalization")

Ausgabe:

"The Rule of Thumb for Title Capitalization"

Java 7, 431 317 311 Bytes

Danke an @KevinCruijssen für 114 Bytes.
Vielen Dank an @RosLup für das Speichern von 6 Bytes.

String c(String s){String v="",x,l[]=s.split(" "),b[]={"a","an","the","at","but,"by","for","in","of","on","to","‌​up","as","or","and","nor"};int i=0,f=0,z=0;for(String c:l){for(f=0;f<b.length;z=c.equals(b[f++])|z>0?1:0);x=(char)(c.charAt(0)-32)+c.substring(1);v+=(z>0?i<1|i>l.length-2?x:c:x)+" ";i++;}return v;}

ungolfed

erste Antwort über 250 Bytes

 static String c(String s) {
      String v = "", x, l[] = s.split(" "),
b[]={"a","an","the","at","by","for","in","of","on","to",
                                         "‌​up","and","as","or","nor","but"};
    int i , f , z = i = f = 0;
    for (String c : l) {

   for (f = 0; f < b.length; z = c.equals( b[f++] ) | z > 0 ? 1 : 0);
        x = (char)(c.charAt(0) - 32) + c.substring(1);

        v += (z > 0 ? i < 1 | i > l.length - 2 ? x : c : x) + " ";
        i++;
   }
    return v;
    }

PHP, 117 118 112 Bytes

<?=strtr(ucwords(preg_replace("# (?=(a[snt]?|and|[fn]or|up|by|but|the|to|in|o[rnf]) )#","!",$argv[1])),'!',' ');

Benutzt das Verhalten von ucwords() der relevanten Wörter, die von Leerzeichen umgeben sind, und escape-Zeichen und löscht die Escape-Zeichen.

Ich habe das kopiert (a[snt]?|and|[fn]or|up|by|but|the|to|in|o[rnf]) Antwort von Jörg Hülsermann , aber da der Ansatz völlig anders ist, veröffentliche ich sie als separate Antwort.

edit: Fehler, der von Titus bemerkt wurde und 1 Byte gekostet hat. auch: 6 Bytes gespart dank seines hilfreichen Kommentars zu strtr

Pure bash - 253

(keine externen Programme aufgerufen) - benötigt bash v4

declare -A b;for x in A An The At By For In Of On To Up And As But Or Nor;do b[$x]=1;done
while read -a w;do
n=${#w[@]};o[0]=${w[0]^}
for((i=1;i<n-1;i++)){
g=${w[$i]^};((${b[$g]}))&&o+=(${g,,})||o+=($g);}
((n>1))&&o[$n]=${w[-1]^}
echo ${o[@]};o=()
done

normale Ansicht mit Kommentaren

#create the "blacklist"
declare -A b
for w in A An The At By For In Of On To Up And As But Or Nor
do
    b[$x]=1
done

# logic:
# read each line (split by words) into array
# and each word is assigned capitalized to the new output array
# but the blacklisted ones

#read each line to array w (split on spaces)
while read -a w
do
    n=${#w[@]}         # get the number of words
    o[0]=${w[0]^}          # copy the capitalized word1
    for((i=1 ; i<n-1 ; i++)) { # loop over 2 up to last -1 words

        g=${w[$i]^}    # for the given word
        # check if it is in the blacklisted ones
        # if yes - convert to lowercase, if not leave as it is
        # and append to the output array
        (( ${b[$g]} )) && o+=(${g,,}) || o+=($g)
    }
    # capitalize the last word if here is more words
    (( n>1 )) && o[$n]=${w[-1]^}
    # make a line from the words
    echo ${o[@]}
    o=() #cleanup
done

Ausgabe

Title
And and And
The Rule of Thumb for Title Capitalization
Programming Puzzles and Code Golf
The Many Uses of the Letter A
A an and as at but by for in nor of on or the to Up
On Computable Numbers With an Application to the Entscheidungsproblem

Japt , 71 Bytes

£`a  e  by f     up d  ¿t  n`¸aX >0©Y¦0©YĦZl ?X:Xg u +XÅ}S

Probieren Sie es online!

Erläuterung:

£`a  e  by f     up d  ¿t  n`¸aX >0©Y¦0©YĦZl ?X:Xg u +XÅ}S
£`...`qS aX >0&&Y!=0&&Y!=UqS l -1?X:Xg u +Xs1}S

£                                            }S   // Split at spaces and map each item X by this function:
 `...`                                            //  Backticks are used to decompress strings
      qS                                          //  Split the decompressed string at spaces.
         aX >J                                    //  If this contains X
              &&Y!=0                              //  and the index is non-zero (it's not the first word)
                    &&Y!=UqS l -1                 //  and the index is not the length of the input -1 (it's not the last word),
                                 ?X               //  return X.
                                   :Xg u +Xs1     //  Else, return X capitalized. (Literally X[0].toUpperCase() + X.slice(1))
                                             }S   // Rejoin with spaces

Eine meiner Lieblingsfunktionen von Japt ist die String-Komprimierung, bei der die Shoco-Bibliothek verwendet wird .

Sie können eine Zeichenfolge komprimieren, indem Sie sie in Oc"{string}"→ einschließenOc"a an the at by for in of on to up and as but or nor"

Dann mit Backticks oder Od"{compressed string}"→ dekomprimierenOd"a e by f up d ¿t n"

Pure bash - 205 192 181 Bytes

tc(){
while read -a x
do x=(${x[@]^})
for ((i=1;i<${#x[@]}-1;i++))
do
case "${x[i]}" in
A|A[nts]|The|By|[FN]or|In|O[fnr]|To|Up|And|But)x[i]=${x[i],};;
esac
done
echo ${x[@]}
done
}

Wie die Antwort von jm66 tc akzeptiert die Standardeingabe.

Eigentlich 79 Bytes

' ,ÿsd@p@`;0"A0An0The0At0By0For0In0Of0On0To0Up0And0As0But0Or0Nor"síu'ù*ƒ`Moq' j

Probieren Sie es online!

Erläuterung:

' ,ÿsd@p@`;0"longstring"síu'ù*ƒ`Moq' j
' ,ÿs                                   title case input, split on spaces
     d@p@                               pop first and last words to stack
         `;0"longstring"síu'ù*ƒ`M       for every word except the first and last:
          ;0"longstring"s                 duplicate word, split the long string on 0s
                         íu               1-based index of word in list (0 if not found)
                           'ù*            "ù"*(index)
                              ƒ           execute the resulting string as a function (lowercases word if it's in the list)
                                 oq' j  put the first and last word back in the list, join with spaces

Batch, 323 Bytes

@echo off
set s=
for %%w in (@%*@)do call:w %%w
echo%s%
exit/b
:w
for %%s in (a an the at by for in of on to up and as but or nor)do if %%s==%1 set s=%s% %1&exit/b
set w=%1
set w=%w:@=%
set f=%w:~0,1%
for %%c in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z)do call set f=%%f:%%c=%%c%%
set s=%s% %f%%w:~1%

Mit Kommentaren:

@echo off
rem Start with an empty output string
set s=
rem Wrap the parameters in @ signs to identify the first and last words 
for %%w in (@%*@) do call :w %%w
rem Ignore the leading space when printing the result
echo%s%
exit/b
:w
rem Check whether this is a word that we don't change
for %%s in (a an the at by for in of on to up and as but or nor) do if %%s==%1 set s=%s% %1&exit/b
set w=%1
rem Delete any @ signs from the first and last words
set w=%w:@=%
rem Get the first character
set f=%w:~0,1%
rem Case insensitively replace each upper case letter with itself
for %%c in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do call set f=%%f:%%c=%%c%%
rem Concatenate with the rest of the word
set s=%s% %f%%w:~1%