О выборе предлогов
Продолжаю баловаться двумя языками - перлом и русским:
#!/usr/bin/perl -wl -CS use strict; use utf8; $,=' '; sub choose_preposition_about_by_next_word { return /^[аиоуыэ]/i ? 'об' : 'о'; } sub choose_preposition_with_by_next_word { return /^с[^аеёиоуыэюя]/i ? 'со' : 'с'; } map { print ( Read more... )
#!/usr/bin/perl -wl -CS use strict; use utf8; $,=' '; sub choose_preposition_about_by_next_word { return /^[аиоуыэ]/i ? 'об' : 'о'; } sub choose_preposition_with_by_next_word { return /^с[^аеёиоуыэюя]/i ? 'со' : 'с'; } map { print ( Read more... )
Comments 1
(The comment has been removed)
Reply
Leave a comment