#Mathematica, (削除) 132 (削除ここまで) 117 bytes
Mathematica, (削除) 132 (削除ここまで) 117 bytes
ToUpperCase[First/@Characters@DeleteCases[StringDelete[StringSplit@#,"of"|"and"|"or"|"by",IgnoreCase->True],""]<>""]&
15 bytes saved thanks to @CatsAreFluffy.
#Mathematica, (削除) 132 (削除ここまで) 117 bytes
ToUpperCase[First/@Characters@DeleteCases[StringDelete[StringSplit@#,"of"|"and"|"or"|"by",IgnoreCase->True],""]<>""]&
15 bytes saved thanks to @CatsAreFluffy.
Mathematica, (削除) 132 (削除ここまで) 117 bytes
ToUpperCase[First/@Characters@DeleteCases[StringDelete[StringSplit@#,"of"|"and"|"or"|"by",IgnoreCase->True],""]<>""]&
15 bytes saved thanks to @CatsAreFluffy.
#Mathematica, (削除) 132 (削除ここまで) 117 bytes
ToUpperCase[First/@Characters@DeleteCases[StringDelete[StringSplit@#,"of"|"and"|"or"|"by",IgnoreCase->True],""]<>""]&
15 bytes saved thanks to @CatsAreFluffy.
#Mathematica (削除) 132 (削除ここまで) 117 bytes
ToUpperCase[First/@Characters@DeleteCases[StringDelete[StringSplit@#,"of"|"and"|"or"|"by",IgnoreCase->True],""]<>""]&
15 bytes saved thanks to @CatsAreFluffy.
#Mathematica, (削除) 132 (削除ここまで) 117 bytes
ToUpperCase[First/@Characters@DeleteCases[StringDelete[StringSplit@#,"of"|"and"|"or"|"by",IgnoreCase->True],""]<>""]&
15 bytes saved thanks to @CatsAreFluffy.
#Mathematica (削除) 132 (削除ここまで) 127117 bytes
ToUpperCase@StringJoin[First/@CharactersToUpperCase[First/@DeleteCases[StringDelete[StringSplit@#,{"of","and","or"@Characters@DeleteCases[StringDelete[StringSplit@#,"by"}"of"|"and"|"or"|"by",IgnoreCase->True],""]]&""]<>""]&
Less 515 bytes saved thanks to @CatsAreFluffy.
#Mathematica (削除) 132 (削除ここまで) 127 bytes
ToUpperCase@StringJoin[First/@Characters/@DeleteCases[StringDelete[StringSplit@#,{"of","and","or","by"},IgnoreCase->True],""]]&
Less 5 bytes thanks to @CatsAreFluffy.
#Mathematica (削除) 132 (削除ここまで) 117 bytes
ToUpperCase[First/@Characters@DeleteCases[StringDelete[StringSplit@#,"of"|"and"|"or"|"by",IgnoreCase->True],""]<>""]&
15 bytes saved thanks to @CatsAreFluffy.