@Dennis89: *Das* wäre doch nur ``R=S``, ich gehe ja davon aus, dass die Eingabedaten ``S="... der Satz ..."`` schon existieren und zähle nur die Bytes die für das erstellen von `R` aus `S` notwendig sind. Und nur den ersten Buchstaben vom zweiten Wort ”vergrössern”, kann man in 44 Bytes so machen:
Also nix exotisches. Das entspricht vom Vorgehen meinem ersten BASIC-Programm, das dafür 239 Bytes braucht. Wobei ich da nicht auf Bytes sparen geachtet habe. Da kommt man leicht auf 206 runter (Null-Bytes nicht mitgezählt):
Code: Alles auswählen
1 S$="Das licht des Mondes beleuchtet DIE Nacht.":I=1
2 IFMID$(S$,I,1)<>" "THENI=I+1:GOTO2
3 PRINTLEFT$(S$,I);:C$=MID$(S$,I+1,1)
4 IFC$>"`"ANDC$<"{"THENC$=CHR$(ASC(C$)-32)
5 PRINTC$;:PRINTMID$(S$,I+2)
Edit: Die Zeilen 3 und 4 habe ich nicht zusammengefasst, weil die voreingestellte Terminalbreite, und damit die Längenbegrenzung für eine Zeile, bei Altair BASIC 72 Zeichen beträgt. Wegen den weit verbreiteten TeleType 33 die als Terminals verwendet wurden, und die nur 72 Zeichen pro Zeile haben.