2020-01-20 16:09:49 +01:00
|
|
|
|
|
|
|
|
|
|
|
|
|
# zamiana rdzenia
|
2020-01-20 16:29:33 +01:00
|
|
|
change_core = ("dr." : "doktor") | ("prof." : "profesor") | ("hab." : "habilitowany") | ("ks." : "ksiądz") | ("mgr.": "magister") | ("dr": "doktor") | ("mgr": "magister")
|
2020-01-20 16:09:49 +01:00
|
|
|
|
2020-01-20 16:36:10 +01:00
|
|
|
Rule001_02 = CDRewrite [change_core, "", "', Any*];
|
2020-01-20 16:35:19 +01:00
|
|
|
export PROCESS = Optimize[CDRewrite[change_core, "", "", Any*]];
|
