{"id":191704,"date":"2013-09-10T15:35:03","date_gmt":"2013-09-10T11:35:03","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=191704"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=191704","title":{"rendered":"<span class=\"post_title\">Perl Golf \u043e\u0442 REG.RU \u043d\u0430 YAPC::Europe 2013<\/span>"},"content":{"rendered":"<div class=\"content html_format\">   \t<img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage3\/34d\/80b\/07e\/34d80b07e6ba9cfd71040493e444faa8.png\"\/><\/p>\n<p>  \u0421 12-\u0433\u043e \u043f\u043e 14-\u0435 \u0430\u0432\u0433\u0443\u0441\u0442\u0430 \u0432 \u041a\u0438\u0435\u0432\u0435 \u043f\u0440\u043e\u0448\u043b\u0430 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u0430\u044f \u043a\u043e\u043d\u0444\u0435\u0440\u0435\u043d\u0446\u0438\u044f perl-\u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u043e\u0432 YAPC::Europe 2013. \u0420\u0430\u0441\u0448\u0438\u0440\u044f\u044e\u0449\u0438\u0435 \u0441\u043e\u0437\u043d\u0430\u043d\u0438\u0435 \u0434\u043e\u043a\u043b\u0430\u0434\u044b, \u0438\u043d\u0441\u0430\u0439\u0434\u0435\u0440\u0441\u043a\u0430\u044f \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044f \u043e\u0442 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u043e\u0432 Perl 5 \u0438 Perl 6, \u0436\u0438\u0432\u044b\u0435 \u043b\u0435\u0433\u0435\u043d\u0434\u044b \u0438\u0437 \u043c\u0438\u0440\u0430 Perl (\u0432\u043a\u043b\u044e\u0447\u0430\u044f \u0441\u0430\u043c\u043e\u0433\u043e \u041b\u0430\u0440\u0440\u0438 \u0423\u043e\u043b\u043b\u0430!), \u0440\u0435\u0447\u043d\u043e\u0439 \u043a\u0440\u0443\u0438\u0437 \u0438 \u0437\u0430\u043c\u0435\u0447\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0435 \u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0432 <s>\u043f\u0430\u0431\u0430\u0445<\/s> \u043a\u0443\u043b\u0443\u0430\u0440\u0430\u0445 \u2014 \u0432\u0441\u0451 \u0431\u044b\u043b\u043e. \u041c\u0435\u0440\u043e\u043f\u0440\u0438\u044f\u0442\u0438\u0435 \u0437\u0430\u0441\u043b\u0443\u0436\u0438\u0432\u0430\u0435\u0442 \u0441\u0430\u043c\u043e\u0439 \u0432\u044b\u0441\u043e\u043a\u043e\u0439 \u043e\u0446\u0435\u043d\u043a\u0438, \u0430 \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0442\u043e\u0440\u044b \u0438 \u0434\u043e\u043a\u043b\u0430\u0434\u0447\u0438\u043a\u0438 (\u0434\u0430 \u0438 \u0432\u0441\u0435 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0435 \u0443\u0447\u0430\u0441\u0442\u043d\u0438\u043a\u0438 \u043a\u043e\u043d\u0444\u0435\u0440\u0435\u043d\u0446\u0438\u0438) \u2014 \u0432\u0441\u044f\u0447\u0435\u0441\u043a\u0438\u0445 \u043f\u043e\u0445\u0432\u0430\u043b \u0438 \u0431\u043b\u0430\u0433\u043e\u0434\u0430\u0440\u043d\u043e\u0441\u0442\u0435\u0439.<\/p>\n<p>  \u041e\u0434\u043d\u0430\u043a\u043e, \u043e\u0431\u0449\u0435\u0438\u0437\u0432\u0435\u0441\u0442\u043d\u043e, \u0447\u0442\u043e \u043a\u0440\u043e\u043c\u0435 \u043e\u0431\u044b\u0447\u043d\u044b\u0445 \u0447\u0435\u043b\u043e\u0432\u0435\u0447\u0435\u0441\u043a\u0438\u0445 \u0440\u0430\u0434\u043e\u0441\u0442\u0435\u0439 perl-\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u044b \u0441\u043a\u043b\u043e\u043d\u043d\u044b \u043a \u0440\u0430\u0437\u0432\u043b\u0435\u0447\u0435\u043d\u0438\u044f\u043c\u0438 \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u044b\u043c, \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u043c \u00ab\u0445\u043e\u043c\u043e \u0441\u0430\u043f\u0438\u0435\u043d\u0441\u0430\u043c\u00bb \u043d\u0435 \u0432\u0441\u0435\u0433\u0434\u0430 \u043f\u043e\u043d\u044f\u0442\u043d\u044b\u043c \u0438 \u0431\u043b\u0438\u0437\u043a\u0438\u043c.<\/p>\n<p>  \u0418\u0442\u0430\u043a, \u043a\u0430\u043a \u043c\u044b \u0443\u0441\u0442\u0440\u043e\u0438\u043b\u0438 Perl Golf \u043d\u0430 YAPC, \u0438 \u0447\u0442\u043e \u0438\u0437 \u044d\u0442\u043e\u0433\u043e \u0432\u044b\u0448\u043b\u043e.<br \/>  <a name=\"habracut\"><\/a><br \/>  \u041a\u043e\u043c\u043f\u0430\u043d\u0438\u044f REG.RU \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0430\u043b\u0430 \u043a\u043e\u043d\u0444\u0435\u0440\u0435\u043d\u0446\u0438\u044e \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0441\u043f\u043e\u043d\u0441\u043e\u0440\u0430. \u041d\u0430\u0448\u0438 \u0440\u0435\u0431\u044f\u0442\u0430 \u043d\u0430 \u0441\u0442\u0435\u043d\u0434\u0435 \u0438 \u0432 \u0437\u0430\u043b\u0430\u0445 \u043d\u0435 \u0441\u043a\u0443\u043f\u044f\u0441\u044c \u0440\u0430\u0437\u0434\u0430\u0432\u0430\u043b\u0438 \u0437\u0430\u043c\u0435\u0447\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u0444\u0443\u0442\u0431\u043e\u043b\u043a\u0438, \u043f\u043e\u043b\u0435\u0437\u043d\u0443\u044e \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u043a\u043e\u043c\u043f\u0430\u043d\u0438\u0438, \u0443\u043b\u044b\u0431\u043a\u0438 \u0438 \u043f\u043e\u0437\u0438\u0442\u0438\u0432\u043d\u0443\u044e \u0430\u0442\u043c\u043e\u0441\u0444\u0435\u0440\u0443, \u0430 \u043a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e \u0435\u0449\u0451 \u0438 \u043f\u0440\u043e\u0432\u0435\u043b\u0438 \u043a\u043e\u043d\u043a\u0443\u0440\u0441 \u043d\u0430 \u00ab\u0441\u0430\u043c\u043e\u0433\u043e \u0441\u0438\u043b\u044c\u043d\u043e\u0433\u043e Perl-\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u0430\u00bb (\u043e\u0442\u0447\u0451\u0442 \u0441\u043e \u0432\u0441\u0435\u043c\u0438 \u043f\u043e\u0434\u0440\u043e\u0431\u043d\u043e\u0441\u0442\u044f\u043c\u0438 \u0438 \u0444\u043e\u0442\u043e\u0433\u0440\u0430\u0444\u0438\u044f\u043c\u0438 <a href=\"https:\/\/www.reg.ru\/announce\/yapc2013\">\u043d\u0430 \u0441\u0430\u0439\u0442\u0435 REG.RU<\/a>).<\/p>\n<p>  <img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage3\/89f\/003\/cc8\/89f003cc88187d965576991983f4f180.jpg\" alt=\"REG.RU \u043d\u0430 YAPC::Europe 2013\"\/><\/p>\n<p>  \u041d\u043e, \u043a\u043e\u043d\u0435\u0447\u043d\u043e, \u043e\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c\u0441\u044f \u043d\u0430 \u044d\u0442\u043e\u043c \u043c\u044b \u043d\u0435 \u043c\u043e\u0433\u043b\u0438. \u00abPerl-\u043c\u0435\u0440\u043e\u043f\u0440\u0438\u044f\u0442\u0438\u044e \u2014 perl-\u0430\u043a\u0442\u0438\u0432\u043d\u043e\u0441\u0442\u0438, \u0438 \u043d\u0438\u043a\u0430\u043a \u0438\u043d\u0430\u0447\u0435!\u00bb \u2014 \u0441\u043a\u0430\u0437\u0430\u043b\u0438 \u043c\u044b \u0441\u0435\u0431\u0435, \u0430 \u043f\u043e\u0442\u043e\u043c \u043d\u0430\u0447\u0430\u043b\u0438 \u0434\u0443\u043c\u0430\u0442\u044c, \u0447\u0442\u043e \u0436\u0435 \u044d\u0442\u043e, \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e, \u043e\u0437\u043d\u0430\u0447\u0430\u0435\u0442?<\/p>\n<h4>\u0427\u0442\u043e \u0442\u0430\u043a\u043e\u0435 Perl Golf?<\/h4>\n<p>  \u0412 \u043e\u0431\u0449\u0435\u043c \u0438 \u0446\u0435\u043b\u043e\u043c, Perl Golf \u2014 \u044d\u0442\u043e \u0441\u043e\u0440\u0435\u0432\u043d\u043e\u0432\u0430\u043d\u0438\u0435 \u043f\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044e (\u0435\u0441\u0442\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e, \u043d\u0430 Perl, \u0445\u043e\u0442\u044f \u0435\u0441\u0442\u044c \u043f\u043e\u043f\u044b\u0442\u043a\u0438 \u00ab\u0433\u043e\u043b\u044c\u0444\u0438\u0442\u044c\u00bb \u0438 \u043d\u0430 \u0434\u0440\u0443\u0433\u0438\u0445 \u044f\u0437\u044b\u043a\u0430\u0445), \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u043c \u043f\u043e\u0431\u0435\u0436\u0434\u0430\u0435\u0442 \u0441\u0430\u043c\u0430\u044f \u043a\u043e\u0440\u043e\u0442\u043a\u0430\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430, \u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e \u0440\u0435\u0448\u0430\u044e\u0449\u0430\u044f \u043f\u043e\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u043d\u0443\u044e \u0437\u0430\u0434\u0430\u0447\u0443. \u041f\u0440\u0438 \u044d\u0442\u043e\u043c \u043d\u0435 \u0434\u043e\u043f\u0443\u0441\u043a\u0430\u0435\u0442\u0441\u044f \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u043a\u0430\u043a\u0438\u0445-\u043b\u0438\u0431\u043e \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u043c\u043e\u0434\u0443\u043b\u0435\u0439 \u0438 \u0432\u043d\u0435\u0448\u043d\u0438\u0445 \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442\u043e\u0432. \u0420\u0430\u0437\u0432\u043b\u0435\u0447\u0435\u043d\u0438\u0435 \u044d\u0442\u043e \u2014 \u043e\u0434\u043d\u043e \u0438\u0437 \u043b\u044e\u0431\u0438\u043c\u044b\u0445 \u0432 \u0441\u0440\u0435\u0434\u0435 perl-\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u043e\u0432, \u043d\u0430\u0440\u044f\u0434\u0443 \u0441 JAPH, \u043e\u0431\u0444\u0443\u0441\u043a\u0430\u0446\u0438\u0435\u0439, code poetry \u0438 \u0438\u043d\u044b\u043c\u0438 \u0437\u0430\u0445\u0432\u0430\u0442\u044b\u0432\u0430\u044e\u0449\u0438\u043c\u0438, \u0445\u043e\u0442\u044f, \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e, \u0438 \u043d\u0435 \u0432\u0441\u0435\u0433\u0434\u0430 \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u043d\u044b\u043c\u0438, \u0437\u0430\u043d\u044f\u0442\u0438\u044f\u043c\u0438. \u041a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e, Perl Golf \u0438\u043c\u0435\u0435\u0442 \u0430\u0431\u0441\u043e\u043b\u044e\u0442\u043d\u043e \u0447\u0451\u0442\u043a\u0438\u0435 \u043a\u0440\u0438\u0442\u0435\u0440\u0438\u0438 \u043e\u0446\u0435\u043d\u043a\u0438 (\u043c\u0438\u043d\u0438\u043c\u0430\u043b\u044c\u043d\u043e\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u0432 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0435), \u0442\u0430\u043a \u0447\u0442\u043e \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u043a\u043e\u043d\u043a\u0443\u0440\u0441\u043d\u043e\u0433\u043e \u0444\u043e\u0440\u043c\u0430\u0442\u0430 \u043f\u043e\u0434\u0445\u043e\u0434\u0438\u0442 \u0438\u0434\u0435\u0430\u043b\u044c\u043d\u043e.<\/p>\n<div style=\"text-align:center;\"><img decoding=\"async\"  src=\"http:\/\/habrastorage.org\/storage3\/47e\/9b4\/178\/47e9b417898910652512bc85c8fab8d0.png\"\/><\/div>\n<p>  \u041e\u043f\u044b\u0442\u043d\u044b\u0445 \u0433\u043e\u043b\u044c\u0444\u0435\u0440\u043e\u0432 \u0432 \u043a\u043e\u043b\u043b\u0435\u043a\u0442\u0438\u0432\u0435 \u043d\u0435 \u043e\u043a\u0430\u0437\u0430\u043b\u043e\u0441\u044c, \u0442\u0430\u043a \u0447\u0442\u043e \u043f\u0440\u0438\u0448\u043b\u043e\u0441\u044c \u043e\u0441\u0432\u0430\u0438\u0432\u0430\u0442\u044c \u0440\u0435\u043c\u0435\u0441\u043b\u043e \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0441 \u043d\u0443\u043b\u044f. \u0418, \u043d\u0430\u0434\u043e \u0441\u043a\u0430\u0437\u0430\u0442\u044c, \u043d\u0435\u0441\u043c\u043e\u0442\u0440\u044f \u043d\u0430 \u0432\u043d\u0435\u0448\u043d\u044e\u044e \u044d\u043a\u0437\u043e\u0442\u0438\u0447\u043d\u043e\u0441\u0442\u044c (\u0438 \u0434\u0430\u0436\u0435 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u0443\u044e \u0443\u0436\u0430\u0441\u0430\u044e\u0449\u0435\u0441\u0442\u044c \u0441 \u0442\u043e\u0447\u043a\u0438 \u0437\u0440\u0435\u043d\u0438\u044f \u043b\u044e\u0431\u043e\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u0430, \u043f\u043e\u043d\u0438\u043c\u0430\u044e\u0449\u0435\u0433\u043e, \u043a\u0430\u043a \u0434\u043e\u043b\u0436\u0435\u043d \u0432\u044b\u0433\u043b\u044f\u0434\u0435\u0442\u044c \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u0439 \u043a\u043e\u0434), \u0413\u043e\u043b\u044c\u0444 \u043e\u043a\u0430\u0437\u0430\u043b\u0441\u044f \u0437\u0430\u043d\u044f\u0442\u0438\u0435\u043c \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u044b\u043c \u0438 \u043f\u043e\u043b\u0435\u0437\u043d\u044b\u043c, \u043f\u043e\u043c\u043e\u0433\u0430\u044e\u0449\u0438\u043c \u043a\u0430\u043a \u0438\u0437\u0443\u0447\u0438\u0442\u044c \u0438 \u043f\u043e\u043d\u044f\u0442\u044c \u0433\u043b\u0443\u0431\u043e\u043a\u0438\u0435 \u0438 \u043d\u0435\u043e\u0447\u0435\u0432\u0438\u0434\u043d\u044b\u0435 \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e\u0441\u0442\u0438 \u0438 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0438 \u044f\u0437\u044b\u043a\u0430, \u0442\u0430\u043a \u0438 \u043f\u043e\u0442\u0440\u0435\u043d\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0441\u043f\u043e\u0441\u043e\u0431\u043d\u043e\u0441\u0442\u0438 \u0447\u0451\u0442\u043a\u043e\u0439 \u0438 \u043b\u0430\u043a\u043e\u043d\u0438\u0447\u043d\u043e\u0439 \u0444\u043e\u0440\u043c\u0443\u043b\u0438\u0440\u043e\u0432\u043a\u0438 \u0437\u0430\u0434\u0430\u0447\u0438 \u0438 \u0435\u0451 \u0440\u0435\u0448\u0435\u043d\u0438\u044f. \u0412 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 \u0434\u043e\u043b\u0433\u0438\u0445 \u0440\u0430\u0437\u0434\u0443\u043c\u0438\u0439 \u0438 \u0442\u0432\u043e\u0440\u0447\u0435\u0441\u043a\u0438\u0445 \u043c\u0443\u043a \u0440\u043e\u0434\u0438\u043b\u0430\u0441\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0430\u044f \u0438\u0441\u0442\u043e\u0440\u0438\u044f.<\/p>\n<h4>\u041b\u0435\u0433\u0435\u043d\u0434\u0430<\/h4>\n<p>  \u0412\u044b \u2014 \u0441\u044b\u043d \u0437\u043d\u0430\u0442\u043d\u043e\u0433\u043e \u044f\u043f\u043e\u043d\u0441\u043a\u043e\u0433\u043e \u0432\u0435\u043b\u044c\u043c\u043e\u0436\u0438 \u043f\u0435\u0440\u0438\u043e\u0434\u0430 \u042d\u0434\u043e. \u0412\u044b \u0432\u0441\u0435\u0433\u0434\u0430 \u043c\u0435\u0447\u0442\u0430\u043b\u0438 \u0441\u0442\u0430\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u043e\u043c, \u043d\u043e \u0444\u0430\u043c\u0438\u043b\u044c\u043d\u044b\u0435 \u0442\u0440\u0430\u0434\u0438\u0446\u0438\u0438 \u043e\u043a\u0430\u0437\u0430\u043b\u0438\u0441\u044c \u0441\u0438\u043b\u044c\u043d\u0435\u0439 \u2014 \u0432\u0430\u0441 \u043e\u0442\u0434\u0430\u043b\u0438 \u0432 \u043e\u0431\u0443\u0447\u0435\u043d\u0438\u0435 \u043c\u0430\u0441\u0442\u0435\u0440\u0443 \u0413\u043e. \u041f\u043e\u0441\u043b\u0435 \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u043e\u0433\u043e \u0442\u0435\u043e\u0440\u0435\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0432\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043c\u0430\u0441\u0442\u0435\u0440 \u0441\u0442\u0430\u043b \u0437\u0430\u0434\u0430\u0432\u0430\u0442\u044c \u0432\u0430\u043c \u0437\u0430\u0434\u0430\u0447\u043a\u0438 \u043d\u0430 \u0437\u0430\u0445\u0432\u0430\u0442 \u043a\u0430\u043c\u043d\u0435\u0439.<\/p>\n<p>  \u0417\u0430\u0434\u0430\u0447\u0438 \u043d\u0435\u0441\u043b\u043e\u0436\u043d\u044b\u0435, \u043e\u0434\u043d\u0430\u043a\u043e, \u043e\u0447\u0435\u0432\u0438\u0434\u043d\u043e, \u0447\u0442\u043e \u043d\u0438\u043a\u0430\u043a\u0438\u0445 \u0441\u043f\u043e\u0441\u043e\u0431\u043d\u043e\u0441\u0442\u0435\u0439 \u043a \u0413\u043e \u0443 \u0432\u0430\u0441 \u043d\u0435\u0442. \u041a \u0442\u043e\u043c\u0443 \u0436\u0435, \u0437\u0430 \u043a\u0430\u0436\u0434\u0443\u044e \u043d\u0435\u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e \u0440\u0435\u0448\u0451\u043d\u043d\u0443\u044e \u0437\u0430\u0434\u0430\u0447\u043a\u0443 \u043c\u0430\u0441\u0442\u0435\u0440 \u0431\u043e\u043b\u044c\u043d\u043e \u043b\u0443\u043f\u0438\u0442 \u0432\u0430\u0441 \u0431\u0430\u043c\u0431\u0443\u043a\u043e\u0432\u044b\u043c \u0448\u0435\u0441\u0442\u043e\u043c, \u0434\u0430 \u0435\u0449\u0451 \u0438 \u0437\u0430\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u0443\u0436\u0438\u043d\u0430\u0442\u044c, \u043f\u043e\u043b\u044c\u0437\u0443\u044f\u0441\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u043e\u0434\u043d\u043e\u0439 \u043f\u0430\u043b\u043e\u0447\u043a\u043e\u0439. \u0423\u0441\u0442\u0430\u0432 \u043e\u0442 \u043f\u043e\u0431\u043e\u0435\u0432 \u0438 \u0445\u0440\u043e\u043d\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u043d\u0435\u0434\u043e\u0435\u0434\u0430\u043d\u0438\u044f, \u0432\u044b \u0440\u0435\u0448\u0430\u0435\u0442\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0443, \u043a\u043e\u0442\u043e\u0440\u0430\u044f \u0431\u0443\u0434\u0435\u0442 \u0440\u0435\u0448\u0430\u0442\u044c \u0437\u0430\u0434\u0430\u0447\u0438 \u0437\u0430 \u0432\u0430\u0441. \u0410 \u043f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443 \u0431\u0443\u043c\u0430\u0433\u0430 \u0432 \u043f\u0435\u0440\u0438\u043e\u0434 \u042d\u0434\u043e \u2014 \u0448\u0442\u0443\u043a\u0430 \u0434\u043e\u0440\u043e\u0433\u0430\u044f, \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u0434\u043e\u043b\u0436\u043d\u0430 \u0431\u044b\u0442\u044c \u043c\u0430\u043a\u0441\u0438\u043c\u0430\u043b\u044c\u043d\u043e \u043a\u043e\u0440\u043e\u0442\u043a\u043e\u0439. <\/p>\n<div style=\"text-align:center;\"><img decoding=\"async\" src=\"http:\/\/habr.habrastorage.org\/post_images\/a85\/a8f\/1d6\/a85a8f1d627f1417cdf7434b65f27367.png\" \/><\/div>\n<h4>\u041e\u0441\u043d\u043e\u0432\u044b \u0438\u0433\u0440\u044b \u0413\u043e<\/h4>\n<p>  \u0413\u043e \u2014 \u0434\u0440\u0435\u0432\u043d\u0435\u0439\u0448\u0430\u044f \u043d\u0430\u0441\u0442\u043e\u043b\u044c\u043d\u0430\u044f \u0441\u0442\u0440\u0430\u0442\u0435\u0433\u0438\u0447\u0435\u0441\u043a\u0430\u044f \u0438\u0433\u0440\u0430, \u043f\u043e\u044f\u0432\u0438\u0432\u0448\u0430\u044f\u0441\u044f \u0432 \u041a\u0438\u0442\u0430\u0435 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0442\u044b\u0441\u044f\u0447 \u043b\u0435\u0442 \u043d\u0430\u0437\u0430\u0434 \u0438 \u043f\u0435\u0440\u0435\u0436\u0438\u0432\u0448\u0430\u044f \u0440\u0430\u0441\u0446\u0432\u0435\u0442 \u0432 \u042f\u043f\u043e\u043d\u0438\u0438. \u0412 \u0438\u0433\u0440\u0435 \u0443\u0447\u0430\u0441\u0442\u0432\u0443\u044e\u0442 \u0434\u0432\u0430 \u0438\u0433\u0440\u043e\u043a\u0430, \u043f\u043e \u043e\u0447\u0435\u0440\u0435\u0434\u0438 \u0440\u0430\u0441\u043f\u043e\u043b\u0430\u0433\u0430\u044e\u0449\u0438\u0435 \u0447\u0451\u0440\u043d\u044b\u0435 \u0438 \u0431\u0435\u043b\u044b\u0435 \u043a\u0430\u043c\u043d\u0438 \u043d\u0430 \u0442\u043e\u0447\u043a\u0430\u0445 \u043f\u0435\u0440\u0435\u0441\u0435\u0447\u0435\u043d\u0438\u044f \u0441\u0435\u0442\u043a\u0438 \u0434\u043e\u0441\u043a\u0438. \u041a\u0430\u043c\u0435\u043d\u044c (\u0438\u043b\u0438 \u0433\u0440\u0443\u043f\u043f\u0430 \u043a\u0430\u043c\u043d\u0435\u0439) \u0441\u0447\u0438\u0442\u0430\u0435\u0442\u0441\u044f \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u044b\u043c \u0438 \u0441\u043d\u0438\u043c\u0430\u0435\u0442\u0441\u044f \u0441 \u0434\u043e\u0441\u043a\u0438, \u0435\u0441\u043b\u0438 \u043e\u043d \u0441\u043e \u0432\u0441\u0435\u0445 \u0441\u0442\u043e\u0440\u043e\u043d \u043e\u043a\u0440\u0443\u0436\u0451\u043d \u043a\u0430\u043c\u043d\u044f\u043c\u0438 \u043f\u0440\u043e\u0442\u0438\u0432\u043d\u0438\u043a\u0430. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043d\u0430 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u0445 \u0434\u0438\u0430\u0433\u0440\u0430\u043c\u043c\u0430\u0445 \u0431\u0435\u043b\u044b\u0435 \u043a\u0430\u043c\u043d\u0438 (\u00abw\u00bb) \u0438\u043b\u0438 \u0433\u0440\u0443\u043f\u043f\u044b \u043a\u0430\u043c\u043d\u0435\u0439 \u0431\u0443\u0434\u0443\u0442 \u0441\u043d\u044f\u0442\u044b \u0441 \u0434\u043e\u0441\u043a\u0438, \u0435\u0441\u043b\u0438 \u0447\u0451\u0440\u043d\u044b\u0435 (\u00abb\u00bb) \u0441\u0434\u0435\u043b\u0430\u044e\u0442 \u0445\u043e\u0434 \u0432 \u0442\u043e\u0447\u043a\u0443, \u043e\u0431\u043e\u0437\u043d\u0430\u0447\u0435\u043d\u043d\u0443\u044e \u00abx\u00bb: <\/p>\n<div style=\"text-align:center;\"><img decoding=\"async\"  src=\"http:\/\/habr.habrastorage.org\/post_images\/060\/4dc\/646\/0604dc6464b6da960ea3da12d3d0899e.png\"\/><\/div>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0423\u0441\u043b\u043e\u0432\u0438\u044f \u0438 \u043e\u0433\u0440\u0430\u043d\u0438\u0447\u0435\u043d\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<ol>\n<li>\u0417\u0430\u0434\u0430\u0447\u0438 \u0434\u0430\u044e\u0442\u0441\u044f \u043d\u0430 \u0443\u0447\u0435\u043d\u0438\u0447\u0435\u0441\u043a\u043e\u0439 \u0434\u043e\u0441\u043a\u0435 \u0440\u0430\u0437\u043c\u0435\u0440\u043e\u043c 9\u00d79.<\/li>\n<li>\u041f\u0440\u0430\u0432\u043e \u0445\u043e\u0434\u0430 \u2014 \u0443 \u0447\u0451\u0440\u043d\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439.<\/li>\n<li>\u0413\u0430\u0440\u0430\u043d\u0442\u0438\u0440\u0443\u0435\u0442\u0441\u044f, \u0447\u0442\u043e \u043d\u0430 \u0434\u043e\u0441\u043a\u0435 \u043d\u0435\u0442 \u043a\u0430\u043c\u043d\u0435\u0439, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0443\u0436\u0435 \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u044b.<\/li>\n<\/ol>\n<p>  <b>\u041d\u0430 \u0432\u0445\u043e\u0434\u0435<\/b>: \u0434\u0435\u0432\u044f\u0442\u044c \u0441\u0442\u0440\u043e\u043a, \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u044e\u0449\u0438\u0445 \u0438\u0433\u0440\u043e\u0432\u0443\u044e \u0434\u043e\u0441\u043a\u0443, \u043f\u043e\u0434\u0430\u044e\u0442\u0441\u044f \u043d\u0430 STDIN. \u0421\u0442\u0440\u043e\u043a\u0438 \u0441\u043e\u0441\u0442\u043e\u044f\u0442 \u0438\u0437 \u043f\u0440\u043e\u0431\u0435\u043b\u043e\u0432 (\u043e\u0431\u043e\u0437\u043d\u0430\u0447\u0430\u044e\u0449\u0438\u0445 \u043f\u0443\u0441\u0442\u044b\u0435 \u0442\u043e\u0447\u043a\u0438 \u043d\u0430 \u0434\u043e\u0441\u043a\u0435), \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u00abw\u00bb (\u0431\u0435\u043b\u044b\u0435 \u043a\u0430\u043c\u043d\u0438) \u0438 \u00abb\u00bb (\u0447\u0451\u0440\u043d\u044b\u0435 \u043a\u0430\u043c\u043d\u0438), \u0438 \u0437\u0430\u0432\u0435\u0440\u0448\u0430\u044e\u0442\u0441\u044f \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u043c \u043f\u0435\u0440\u0435\u043d\u043e\u0441\u0430 \u0441\u0442\u0440\u043e\u043a\u0438 (\u00ab\\n\u00bb).<\/p>\n<p>  <b>\u041d\u0430 \u0432\u044b\u0445\u043e\u0434\u0435<\/b>: \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b (\u043d\u043e\u043c\u0435\u0440 \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u043d\u043e\u043c\u0435\u0440 \u0441\u0442\u043e\u043b\u0431\u0446\u0430 \u0447\u0435\u0440\u0435\u0437 \u043f\u0440\u043e\u0431\u0435\u043b, \u043d\u0443\u043c\u0435\u0440\u0430\u0446\u0438\u044f \u0441 \u0435\u0434\u0438\u043d\u0438\u0446\u044b) \u0442\u043e\u0447\u0435\u043a, \u0445\u043e\u0434 \u043d\u0430 \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043f\u0440\u0438\u0432\u043e\u0434\u0438\u0442 \u043a \u0437\u0430\u0445\u0432\u0430\u0442\u0443 \u0431\u0435\u043b\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439. \u0414\u043e\u043b\u0436\u043d\u044b \u0431\u044b\u0442\u044c \u0432\u044b\u0432\u0435\u0434\u0435\u043d\u044b \u043d\u0430 STDOUT, \u043f\u043e \u043e\u0434\u043d\u043e\u0439 \u0442\u043e\u0447\u043a\u0435 \u0432 \u0441\u0442\u0440\u043e\u043a\u0435. \u0414\u043e\u043b\u0436\u043d\u044b \u0431\u044b\u0442\u044c \u0432\u044b\u0432\u0435\u0434\u0435\u043d\u044b \u0432\u0441\u0435 \u0438\u043c\u0435\u044e\u0449\u0438\u0435\u0441\u044f \u043d\u0430 \u0434\u043e\u0441\u043a\u0435 \u043f\u043e\u0442\u0435\u043d\u0446\u0438\u0430\u043b\u044c\u043d\u044b\u0435 \u0445\u043e\u0434\u044b, \u043f\u0440\u0438\u0432\u043e\u0434\u044f\u0449\u0438\u0435 \u043a \u0437\u0430\u0445\u0432\u0430\u0442\u0443 \u0431\u0435\u043b\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439. \u0422\u043e\u0447\u043a\u0438 \u0434\u043e\u043b\u0436\u043d\u044b \u0431\u044b\u0442\u044c \u0432\u044b\u0432\u0435\u0434\u0435\u043d\u044b \u0432 \u043f\u043e\u0440\u044f\u0434\u043a\u0435 \u043f\u043e\u044f\u0432\u043b\u0435\u043d\u0438\u044f \u043d\u0430 \u0434\u043e\u0441\u043a\u0435 \u0441\u043b\u0435\u0432\u0430 \u043d\u0430\u043f\u0440\u0430\u0432\u043e \u0438 \u0441\u0432\u0435\u0440\u0445\u0443 \u0432\u043d\u0438\u0437.<\/p>\n<p>  \u0421\u043e\u0440\u0435\u0432\u043d\u043e\u0432\u0430\u043d\u0438\u0435 \u043f\u0440\u043e\u0445\u043e\u0434\u0438\u0442 \u043f\u043e \u043e\u0431\u044b\u0447\u043d\u044b\u043c \u043f\u0440\u0430\u0432\u0438\u043b\u0430\u043c Perl Golf:  <\/p>\n<ol>\n<li>\u041f\u043e\u0431\u0435\u0436\u0434\u0430\u0435\u0442 \u0441\u0430\u043c\u0430\u044f \u043a\u043e\u0440\u043e\u0442\u043a\u0430\u044f \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430, \u0443\u0441\u043f\u0435\u0448\u043d\u043e \u043f\u0440\u043e\u0448\u0435\u0434\u0448\u0430\u044f <a href=\"http:\/\/contest.reg.ru\/perlgolf.tar.gz\">\u0442\u0435\u0441\u0442\u044b<\/a>.<\/li>\n<li>\u0428\u0435\u0431\u0430\u043d\u0433 \u0434\u043e\u043b\u0436\u0435\u043d \u0432\u044b\u0433\u043b\u044f\u0434\u0435\u0442\u044c \u043a\u0430\u043a #!perl \u0438\u043b\u0438 #!perl -flags. #!perl \u043d\u0435 \u0443\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u0438 \u043f\u043e\u0434\u0441\u0447\u0451\u0442\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432, \u043d\u043e \u0443\u0447\u0438\u0442\u044b\u0432\u0430\u044e\u0442\u0441\u044f \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0435 \u0444\u043b\u0430\u0433\u0438, \u0432\u043a\u043b\u044e\u0447\u0430\u044f \u0441\u0438\u043c\u0432\u043e\u043b(\u044b) \u00ab-\u00bb.<\/li>\n<li>\u0412\u0441\u0435 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0435 \u0441\u0438\u043c\u0432\u043e\u043b\u044b \u0443\u0447\u0438\u0442\u044b\u0432\u0430\u044e\u0442\u0441\u044f, \u0432\u043a\u043b\u044e\u0447\u0430\u044f \u043f\u0440\u043e\u0431\u0435\u043b\u044b \u0438 \u043f\u0435\u0440\u0435\u0432\u043e\u0434\u044b \u0441\u0442\u0440\u043e\u043a.<\/li>\n<li>\u041f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0430 \u043d\u0435 \u043c\u043e\u0436\u0435\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0434\u0440\u0443\u0433\u0438\u0435 \u043c\u043e\u0434\u0443\u043b\u0438, \u0432\u044b\u0437\u044b\u0432\u0430\u0442\u044c \u0432\u043d\u0435\u0448\u043d\u0438\u0435 \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u044b \u0438\u043b\u0438 \u043e\u0431\u0440\u0430\u0449\u0430\u0442\u044c\u0441\u044f \u043a \u0432\u043d\u0435\u0448\u043d\u0438\u043c \u0438\u0441\u0442\u043e\u0447\u043d\u0438\u043a\u0430\u043c \u0434\u0430\u043d\u043d\u044b\u0445.<\/li>\n<li>\u0420\u0435\u0448\u0435\u043d\u0438\u0435 \u0434\u043e\u043b\u0436\u043d\u043e \u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u043d\u0430 Perl \u0432\u0435\u0440\u0441\u0438\u0438 5.18.0, \u043d\u0435 \u0432\u044b\u0432\u043e\u0434\u044f \u043d\u0438\u0447\u0435\u0433\u043e \u043d\u0430 STDERR.<\/li>\n<\/ol>\n<p>  <\/div>\n<\/div>\n<p>  \u0423\u0441\u043b\u043e\u0432\u0438\u0435 \u0437\u0430\u0434\u0430\u0447\u0438 \u0438 \u043d\u0430\u0431\u043e\u0440 \u0442\u0435\u0441\u0442\u043e\u0432 \u0434\u043b\u044f \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0431\u044b\u043b\u0438 \u043e\u043f\u0443\u0431\u043b\u0438\u043a\u043e\u0432\u0430\u043d\u044b \u043d\u0430 <a href=\"http:\/\/contest.reg.ru\/?lang=ru\">contest.reg.ru<\/a>. \u041f\u0440\u043e\u0445\u043e\u0436\u0434\u0435\u043d\u0438\u0435 \u0442\u0435\u0441\u0442\u043e\u0432 \u0441\u0447\u0438\u0442\u0430\u043b\u043e\u0441\u044c \u043a\u0440\u0438\u0442\u0435\u0440\u0438\u0435\u043c \u043a\u043e\u0440\u0440\u0435\u043a\u0442\u043d\u043e\u0441\u0442\u0438 \u0440\u0435\u0448\u0435\u043d\u0438\u044f. \u041e\u0434\u043d\u0430\u043a\u043e, \u0443\u0436\u0435 \u043f\u043e\u0441\u043b\u0435 \u043f\u0440\u043e\u0432\u0435\u0434\u0435\u043d\u0438\u044f \u043a\u043e\u043d\u043a\u0443\u0440\u0441\u0430 \u0443\u0447\u0430\u0441\u0442\u043d\u0438\u043a\u0430\u043c\u0438 \u0431\u044b\u043b\u0438 \u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0435\u043d\u043e \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u0438\u0437\u043e\u0449\u0440\u0451\u043d\u043d\u044b\u0445 \u0442\u0435\u0441\u0442\u043a\u0435\u0439\u0441\u043e\u0432, \u043d\u0430 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0441\u043f\u043e\u0442\u043a\u043d\u0443\u043b\u0438\u0441\u044c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u044f. \u0422\u0430\u043a \u0447\u0442\u043e \u043f\u0440\u0438\u0432\u0435\u0434\u0451\u043d\u043d\u044b\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u044f, \u0435\u0441\u043b\u0438 \u043e\u043d\u0438 \u043d\u0435 \u043f\u0440\u043e\u0445\u043e\u0434\u044f\u0442 \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u0442\u0435\u0441\u0442\u043a\u0435\u0439\u0441\u044b, \u043f\u043e\u043c\u0435\u0447\u0430\u044e\u0442\u0441\u044f \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u043e.<\/p>\n<p>  \u041d\u0435\u0441\u043c\u043e\u0442\u0440\u044f \u043d\u0430 \u0430\u043a\u0442\u0438\u0432\u043d\u0443\u044e \u043f\u0440\u043e\u0444\u0435\u0441\u0441\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u0443\u044e \u0438 \u0441\u043e\u0446\u0438\u0430\u043b\u044c\u043d\u0443\u044e \u0436\u0438\u0437\u043d\u044c \u0443\u0447\u0430\u0441\u0442\u043d\u0438\u043a\u043e\u0432 \u0432 \u0442\u0435\u0447\u0435\u043d\u0438\u0435 \u0432\u0441\u0435\u0445 \u0434\u043d\u0435\u0439 (\u0430 \u0442\u0430\u043a\u0436\u0435 \u0432\u0435\u0447\u0435\u0440\u043e\u0432 \u0438 \u043d\u043e\u0447\u0435\u0439) \u043a\u043e\u043d\u0444\u0435\u0440\u0435\u043d\u0446\u0438\u0438, \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0438 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043e\u0447\u0435\u043d\u044c \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u044b\u0445 \u0440\u0435\u0448\u0435\u043d\u0438\u0439, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u044f \u0438 \u043f\u0440\u0438\u0432\u043e\u0436\u0443 \u0434\u0430\u043b\u0435\u0435 \u0441 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u043c\u0438 \u0430\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f\u043c\u0438 (\u0441\u043e \u0441\u043a\u0438\u0434\u043a\u043e\u0439 \u043d\u0430 \u0441\u0442\u0435\u043f\u0435\u043d\u044c \u043c\u043e\u0435\u0433\u043e \u043f\u043e\u043d\u0438\u043c\u0430\u043d\u0438\u044f, \u0432\u0435\u0434\u044c \u044d\u0442\u043e \u0432\u0441\u0451-\u0442\u0430\u043a\u0438 \u0413\u043e\u043b\u044c\u0444).<\/p>\n<h4>\u041a\u043e\u043d\u043a\u0443\u0440\u0441\u043d\u044b\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u044f<\/h4>\n<p>  <\/p>\n<h5>205 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u2014 Brian McCauley<\/h5>\n<p>  <img decoding=\"async\" align=\"left\" alt=\"\u041f\u043e\u0431\u0435\u0434\u0438\u0442\u0435\u043b\u044c \u043a\u043e\u043d\u043a\u0443\u0440\u0441\u0430 Perl Golf \u043e\u0442 REG.RU\" src=\"http:\/\/habrastorage.org\/storage3\/e4a\/791\/138\/e4a7911386cd236324e8883418ac22cf.png\"\/>\u041f\u043e\u0431\u0435\u0434\u0438\u0442\u0435\u043b\u044c \u043a\u043e\u043d\u043a\u0443\u0440\u0441\u0430 \u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0438\u043b \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0441 \u043f\u043e\u0434\u0441\u0432\u0435\u0447\u0438\u0432\u0430\u043d\u0438\u0435\u043c \u0433\u0440\u0443\u043f\u043f \u0441\u043c\u0435\u0436\u043d\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439 \u0438 \u00ab\u043e\u0431\u0435\u0433\u0430\u044e\u0449\u0438\u043c\u0438\u00bb \u0440\u0435\u0433\u0443\u043b\u044f\u0440\u043d\u044b\u043c\u0438 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u044f\u043c\u0438 \u0434\u043b\u044f \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0445 \u0442\u043e\u0447\u0435\u043a (\u0438\u0437\u0434\u0440\u0435\u0432\u043b\u0435 \u0431\u044b\u0442\u0443\u0435\u0442 \u043f\u043e\u0432\u0435\u0440\u044c\u0435, \u0447\u0442\u043e \u0442\u043e\u043b\u044c\u043a\u043e \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u043d\u0430 \u0440\u0435\u0433\u044d\u043a\u0441\u043f\u0430\u0445 \u0438 \u043c\u043e\u0436\u0435\u0442 \u0432\u044b\u0438\u0433\u0440\u0430\u0442\u044c Perl Golf). \u041a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d \u043f\u043e\u044f\u0432\u043b\u044f\u044e\u0449\u0438\u0439\u0441\u044f \u0432\u043e \u043c\u043d\u043e\u0433\u0438\u0445 \u0440\u0435\u0448\u0435\u043d\u0438\u044f\u0445 \u0442\u0440\u044e\u043a \u0441 \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u0435\u043c \u043a \u0432\u0445\u043e\u0434\u043d\u044b\u043c \u0434\u0430\u043d\u043d\u044b\u043c \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0439 \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438, \u0437\u0430 \u0441\u0447\u0451\u0442 \u0447\u0435\u0433\u043e \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u043f\u043e\u0437\u0438\u0446\u0438\u044f \u0442\u043e\u0447\u043a\u0438 \u043d\u0430 \u0434\u043e\u0441\u043a\u0435 \u043f\u0440\u0435\u0432\u0440\u0430\u0449\u0430\u0435\u0442\u0441\u044f \u0432 \u0441\u043e\u0447\u0435\u0442\u0430\u043d\u0438\u0435 \u0435\u0451 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442 (\u043d\u043e\u043c\u0435\u0440\u0430 \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u043d\u043e\u043c\u0435\u0440\u0430 \u0441\u0442\u043e\u043b\u0431\u0446\u0430).<\/p>\n<pre><code class=\"perl\">#!perl $b=++$\/x11 .&lt;&gt;;for$i(9..99){if(($x=$b)=~s\/^(.{$i}) \/$1x\/s){while($x=~\/w\/g){$_=&quot;$`W$'&quot;;1while s\/w((?&lt;=W.{10})|(?&lt;=W.)|(?=.{9}W|W))\/W\/s;\/W((?&lt;= .{10})|(?&lt;= .)|(?=.{9} | ))\/s||$i=~\/.\/+(print&quot;$& $'\\n&quot;)+last}}} <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl  # $\/ \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0432 \u00ab1\u00bb, \u0447\u0442\u043e\u0431\u044b \u00ab&lt;&gt;\u00bb \u0441\u0447\u0438\u0442\u0430\u043b \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0431\u0435\u0437 \u0440\u0430\u0437\u0431\u0438\u0435\u043d\u0438\u044f \u043d\u0430 # \u0441\u0442\u0440\u043e\u043a\u0438 (\u0435\u0434\u0438\u043d\u0438\u0446\u0430 \u0432 \u043d\u0438\u0445 \u043e\u0442\u0441\u0443\u0442\u0441\u0442\u0432\u0443\u0435\u0442). \u0417\u0430\u043e\u0434\u043d\u043e \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0434\u043b\u044f # \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e\u0439 \u0441\u0442\u0440\u043e\u043a\u0438 \u0438\u0437 11 \u0435\u0434\u0438\u043d\u0438\u0446 (\u0442\u043e\u0433\u0434\u0430 \u043f\u043e\u0437\u0438\u0446\u0438\u044f \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u0441\u0438\u043c\u0432\u043e\u043b\u0430\/\u0442\u043e\u0447\u043a\u0438 # \u0432\u043e \u0432\u0445\u043e\u0434\u043d\u044b\u0445 \u0434\u0430\u043d\u043d\u044b\u0445 \u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u0441\u044f \u0441\u043e\u0447\u0435\u0442\u0430\u043d\u0438\u0435\u043c \u043d\u043e\u043c\u0435\u0440\u0430 \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u043d\u043e\u043c\u0435\u0440\u0430 \u0441\u0442\u043e\u043b\u0431\u0446\u0430. $b = ++$\/ x 11 . &lt;&gt;;  # \u041e\u0431\u0445\u043e\u0434\u0438\u043c \u0432\u0441\u0435 \u0442\u043e\u0447\u043a\u0438 \u0434\u043e\u0441\u043a\u0438. for $i ( 9 .. 99 ) {     # \u0414\u0435\u043b\u0430\u0435\u043c \u043a\u043e\u043f\u0438\u044e \u0434\u043e\u0441\u043a\u0438. \u0415\u0441\u043b\u0438 \u043e\u0431\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u0435\u043c\u0430\u044f \u0442\u043e\u0447\u043a\u0430 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u043f\u0440\u043e\u0431\u0435\u043b, \u0442. \u0435. \u043f\u0443\u0441\u0442\u0430,     # \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0432 \u043d\u0435\u0451 \u00abx\u00bb (\u043f\u043e \u0441\u0443\u0442\u0438, \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u043b\u044c\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435, \u043d\u0435 \u044f\u0432\u043b\u044f\u044e\u0449\u0435\u0435\u0441\u044f \u043d\u0438     # \u0431\u0435\u043b\u044b\u043c \u043a\u0430\u043c\u043d\u0435\u043c, \u043d\u0438 \u043f\u0443\u0441\u0442\u043e\u0439 \u0442\u043e\u0447\u043a\u043e\u0439) \u0438 \u043f\u0440\u043e\u0434\u043e\u043b\u0436\u0430\u0435\u043c.     if ( ( $x = $b ) =~ s\/^(.{$i}) \/$1x\/s ) {         # \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0432 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0439 \u043f\u043e\u0437\u0438\u0446\u0438\u0438 \u0434\u043e\u0441\u043a\u0438 \u0432\u0441\u0435 \u0438\u043c\u0435\u044e\u0449\u0438\u0435\u0441\u044f \u0431\u0435\u043b\u044b\u0435 \u043a\u0430\u043c\u043d\u0438 (\u00abw\u00bb).         while ( $x =~ \/w\/g ) {             # \u041a\u043e\u043f\u0438\u0440\u0443\u0435\u043c \u0434\u043e\u0441\u043a\u0443 \u0432 $_, \u043f\u043e\u0434\u0441\u0432\u0435\u0447\u0438\u0432\u0430\u044f \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c\u044b\u0439 \u0431\u0435\u043b\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c \u00abw\u00bb \u043a\u0430\u043a \u00abW\u00bb             # (\u043f\u043e\u0441\u043b\u0435 \u0440\u0435\u0433\u0443\u043b\u044f\u0440\u043d\u043e\u0433\u043e \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u0432\u043d\u0443\u0442\u0440\u0438 \u0443\u0441\u043b\u043e\u0432\u0438\u044f while             # $` \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0447\u0430\u0441\u0442\u044c \u0434\u043e\u0441\u043a\u0438 \u0434\u043e \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c\u043e\u0439 \u043a\u043b\u0435\u0442\u043a\u0438, \u0430 \u0432 $' \u2014 \u043f\u043e\u0441\u043b\u0435).             $_ = &quot;$`W$'&quot;;             # \u041f\u043e\u0434\u0441\u0432\u0435\u0447\u0438\u0432\u0430\u0435\u043c \u0432\u0441\u0435 \u0431\u0435\u043b\u044b\u0435 \u043a\u0430\u043c\u043d\u0438, \u0441\u043e\u0441\u0435\u0434\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0435 \u0441 \u0443\u0436\u0435 \u043f\u043e\u0434\u0441\u0432\u0435\u0447\u0435\u043d\u043d\u044b\u043c\u0438.             1 while s\/w((?&lt;=W.{10})|(?&lt;=W.)|(?=.{9}W|W))\/W\/s;             # \u0418\u0449\u0435\u043c \u043f\u0440\u043e\u0431\u0435\u043b (\u043f\u0443\u0441\u0442\u0443\u044e \u0442\u043e\u0447\u043a\u0443) \u0433\u0434\u0435-\u043d\u0438\u0431\u0443\u0434\u044c \u0440\u044f\u0434\u043e\u043c \u0441 \u043f\u043e\u0434\u0441\u0432\u0435\u0447\u0435\u043d\u043d\u043e\u0439 \u0433\u0440\u0443\u043f\u043f\u043e\u0439.             \/W((?&lt;= .{10})|(?&lt;= .)|(?=.{9} | ))\/s               # \u0415\u0441\u043b\u0438 \u043d\u0435 \u043d\u0430\u0448\u043b\u0438, \u0442\u043e \u0433\u0440\u0443\u043f\u043f\u0430 \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u0430.               # \u0421 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u00ab\/.\/\u00bb \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u043c \u043d\u043e\u043c\u0435\u0440 \u0441\u0442\u0440\u043e\u043a\u0438 \u0432 $& (\u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u0430\u044f \u0442\u043e\u0447\u043a\u043e\u0439               # \u043f\u0435\u0440\u0432\u0430\u044f \u0446\u0438\u0444\u0440\u0430) \u0438 $' (\u0432\u0442\u043e\u0440\u0430\u044f \u0446\u0438\u0444\u0440\u0430, \u0438\u0434\u0443\u0449\u0430\u044f \u043f\u043e\u0441\u043b\u0435 \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u043e\u0439 \u0447\u0430\u0441\u0442\u0438               # \u0441\u0442\u0440\u043e\u043a\u0438), \u0432\u044b\u0432\u043e\u0434\u0438\u043c. \u0421\u0440\u0430\u0437\u0443 \u0437\u0430\u0432\u0435\u0440\u0448\u0430\u0435\u043c \u0446\u0438\u043a\u043b, \u0447\u0442\u043e\u0431\u044b \u043d\u0435 \u0431\u044b\u043b\u043e               # \u0434\u0443\u0431\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043e\u0434\u043d\u043e\u0439 \u0442\u043e\u0447\u043a\u0438 \u0432 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435.               || $i =~ \/.\/ + ( print &quot;$& $'\\n&quot; ) + last;         }     } } <\/code><\/pre>\n<p>  <\/div>\n<\/div>\n<p>  \u0411\u0440\u0430\u0439\u0430\u043d \u043e\u043f\u0443\u0431\u043b\u0438\u043a\u043e\u0432\u0430\u043b \u0441\u0432\u043e\u0451 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0438 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u0443\u044e \u0430\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044e \u043a \u043d\u0435\u043c\u0443 \u043d\u0430 <a href=\"http:\/\/perlmonks.org\/?node_id=1049290\">PerlMonks<\/a>. \u041a\u0440\u043e\u043c\u0435 \u0442\u043e\u0433\u043e, \u043e\u043d \u0441\u0434\u0435\u043b\u0430\u043b <a href=\"http:\/\/act.yapc.eu\/ye2013\/talk\/5013\">\u0434\u043e\u043a\u043b\u0430\u0434<\/a> \u0441 \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0435\u043c \u044d\u0442\u043e\u0433\u043e \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0432 \u0431\u043b\u043e\u043a\u0435 \u043b\u0430\u0439\u0442\u043d\u0438\u043d\u0433\u043e\u0432.<\/p>\n<p>  \u0417\u0430 \u043f\u043e\u0431\u0435\u0434\u0443 \u0432 \u043a\u043e\u043d\u043a\u0443\u0440\u0441\u0435 \u0411\u0440\u0430\u0439\u0430\u043d \u043f\u043e\u043b\u0443\u0447\u0438\u043b \u0437\u0430\u043c\u0435\u0447\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0439 \u043a\u043e\u043c\u043f\u043b\u0435\u043a\u0442 \u0434\u043b\u044f \u043c\u0438\u043d\u0438-\u0433\u043e\u043b\u044c\u0444\u0430, \u0442\u0430\u043a \u0447\u0442\u043e \u0441\u043a\u0443\u043a\u0430 \u043d\u0430 \u0440\u0430\u0431\u043e\u0447\u0435\u043c \u043c\u0435\u0441\u0442\u0435 \u0435\u043c\u0443 \u0442\u0435\u043f\u0435\u0440\u044c \u043d\u0435 \u0433\u0440\u043e\u0437\u0438\u0442.<\/p>\n<p>  <img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage3\/98d\/b45\/64b\/98db4564b13a3ca9a999768fc5a8dfb6.jpg\"\/><\/p>\n<h5>212 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u2014 \u0421\u0435\u0440\u0433\u0435\u0439 \u041c\u043e\u0436\u0430\u0439\u0441\u043a\u0438\u0439 (\u043d\u0435 \u043f\u0440\u043e\u0445\u043e\u0434\u0438\u0442 \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0435 \u0442\u0435\u0441\u0442\u043a\u0435\u0439\u0441\u044b)<\/h5>\n<p>  \u0420\u0435\u0448\u0435\u043d\u0438\u0435 \u0441 \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0432\u043d\u044b\u043c \u043e\u0431\u0445\u043e\u0434\u043e\u043c \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0445 \u0442\u043e\u0447\u0435\u043a \u0438 \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u0435\u043c \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043e \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d\u043d\u044b\u0445 \u0442\u043e\u0447\u043a\u0430\u0445, \u0447\u0442\u043e\u0431\u044b \u0438\u0437\u0431\u0435\u0436\u0430\u0442\u044c \u0431\u0435\u0441\u043a\u043e\u043d\u0435\u0447\u043d\u043e\u0439 \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0438.<\/p>\n<pre><code class=\"perl\">#!perl @g=(d..n,map{\/.\/g,''}&lt;&gt;);sub n{my($i,$j,$r)=@_;map{$_=1and map{$r=n($i,$j+1)+n($i,$j-1)+n($i+1,$j)+n($i-1,$j)==1if\/w\/;$r=1and$0=&quot;$i $j\\n&quot;if\/ \/}$g[&quot;$i$j&quot;]if!$_}$s{&quot;$i$j&quot;};$r}map{print$0if$g[$_]eq'w'&&n(\/.\/g)}0..99 <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl  # \u0413\u0435\u043d\u0435\u0440\u0438\u0440\u0443\u0435\u043c \u043d\u0430\u0447\u0430\u043b\u044c\u043d\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0434\u0438\u0430\u043f\u0430\u0437\u043e\u043d\u0430 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 d .. n, # \u0437\u0430\u0442\u0435\u043c \u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435. @g = ( d .. n, map { \/.\/g, '' } &lt;&gt; );  # \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0438 \u0437\u0430\u0445\u0432\u0430\u0442\u0430 sub n {     my ( $i, $j, $r ) = @_;     # \u0418\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c %s \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043e \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d\u043d\u044b\u0445 \u0442\u043e\u0447\u043a\u0430\u0445     # (\u0447\u0442\u043e\u0431\u044b \u0438\u0437\u0431\u0435\u0436\u0430\u0442\u044c \u0431\u0435\u0441\u043a\u043e\u043d\u0435\u0447\u043d\u043e\u0439 \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0438).     # \u041f\u043e\u043c\u0435\u0449\u0430\u0435\u043c \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 %s \u0432 $_ \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e map.     map {         # \u0423\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0432 %s \u0444\u043b\u0430\u0433 \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d\u043d\u043e\u0441\u0442\u0438 \u0442\u043e\u0447\u043a\u0438         # \u0438 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0442\u043e\u0447\u043a\u0443, \u0435\u0441\u043b\u0438 \u043e\u043d\u0430 \u0435\u0449\u0451 \u043d\u0435 \u0431\u044b\u043b\u0430 \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d\u0430.         $_ = 1 and map {             # \u0415\u0441\u043b\u0438 \u0432 \u0442\u0435\u043a\u0443\u0449\u0435\u0439 \u0442\u043e\u0447\u043a\u0435 \u2014 \u0431\u0435\u043b\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c, \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0432\u043d\u043e \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0435             # \u0442\u043e\u0447\u043a\u0438 \u0438 \u0441\u0447\u0438\u0442\u0430\u0435\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043f\u043e\u043b\u043e\u0436\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u043c, \u0435\u0441\u043b\u0438 \u043f\u043e\u043b\u0443\u0447\u0438\u043b\u0438             # \u043f\u043e\u043b\u043e\u0436\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0439 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0442\u043e\u043b\u044c\u043a\u043e \u0434\u043b\u044f \u043e\u0434\u043d\u043e\u0439 \u0438\u0437 \u043d\u0438\u0445             # (\u0442. \u0435. \u043e\u0434\u043d\u0430 \u0442\u043e\u0447\u043a\u0430 \u0438\u043c\u0435\u0435\u0442 \u043e\u0434\u043d\u043e \u0434\u044b\u0445\u0430\u043d\u0438\u0435 \u0438 \u0433\u0440\u0443\u043f\u043f\u0443 \u043c\u043e\u0436\u043d\u043e \u0437\u0430\u0445\u0432\u0430\u0442\u0438\u0442\u044c).             $r =                 n( $i,     $j + 1 ) +                 n( $i,     $j - 1 ) +                 n( $i + 1, $j ) +                 n( $i - 1, $j ) == 1                     if \/w\/;             # \u0415\u0441\u043b\u0438 \u0442\u043e\u0447\u043a\u0430 \u043f\u0443\u0441\u0442\u0430, \u0441\u0447\u0438\u0442\u0430\u0435\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043f\u043e\u043b\u043e\u0436\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u043c             # \u0438 \u0437\u0430\u043f\u043e\u043c\u0438\u043d\u0430\u0435\u043c \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u0432 $0.             $r = 1 and $0 = &quot;$i $j\\n&quot; if \/ \/         } $g[&quot;$i$j&quot;] if !$_     } $s{&quot;$i$j&quot;};     # \u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438     $r } # \u041f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u043f\u043e \u0432\u0441\u0435\u043c \u0442\u043e\u0447\u043a\u0430\u043c \u0434\u043e\u0441\u043a\u0438. map {     # \u0415\u0441\u043b\u0438 \u0432 \u0442\u043e\u0447\u043a\u0435 \u0441\u0442\u043e\u0438\u0442 \u0431\u0435\u043b\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c, \u0438\u0449\u0435\u043c \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0435\u0433\u043e \u0437\u0430\u0445\u0432\u0430\u0442\u0430     # \u0438 \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u043d\u0430\u0439\u0434\u0435\u043d\u043d\u043e\u0439 \u0442\u043e\u0447\u043a\u0438.     print $0       if $g[$_] eq 'w' && n(\/.\/g) } 0 .. 99 <\/code><\/pre>\n<\/div>\n<\/div>\n<p>  \u041a \u0441\u043e\u0436\u0430\u043b\u0435\u043d\u0438\u044e, \u043d\u0430 \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u0442\u0435\u0441\u0442\u0430\u0445 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0438\u043c\u0435\u0435\u0442 \u043b\u043e\u0436\u043d\u044b\u0435 \u0441\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u043d\u0438\u044f.<\/p>\n<h5>279 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u2014 \u041d\u0438\u043a\u043e\u043b\u0430\u0439 \u0428\u0443\u043b\u044f\u043a\u043e\u0432\u0441\u043a\u0438\u0439<\/h5>\n<p>  \u0422\u043e\u0436\u0435 \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0432\u043d\u043e\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u0435, \u043d\u043e \u0441 \u0434\u0440\u0443\u0433\u043e\u0439 \u043b\u043e\u0433\u0438\u043a\u043e\u0439 \u0437\u0430\u0449\u0438\u0442\u044b \u043e\u0442 \u0431\u0435\u0441\u043a\u043e\u043d\u0435\u0447\u043d\u043e\u0439 \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0438 \u0438 \u043f\u043e\u0432\u0442\u043e\u0440\u043d\u043e\u0433\u043e \u0432\u044b\u0432\u043e\u0434\u0430 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u043e\u0432.<\/p>\n<pre><code class=\"perl\">#!\/usr\/bin\/perl while(&lt;&gt;){tr\/ wb\\n\/2133\/;$str.=$_.'3'}@m=split\/\/,('3'x12).$str;for(@m){%l=();$r=1;z($i);$o{$w[0]}=1if\/1\/&&$r&&(@w=%l)==2;$i++}printf&quot;%d %d$\/&quot;,$_\/11,$_%11for sort keys%o;sub z{my$c=$_[0];for(qw\/11 1 -11 -1\/){$x=$c+$_;$n=$m[$x];$l{$x}=1if$n==2;if($n==1){z($x)if!\/-\/;$r=0if$i&gt;$x}}} <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!\/usr\/bin\/perl while (&lt;&gt;) {                        # \u0421\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435,     tr\/ wb\\n\/2133\/;                 # \u0437\u0430\u043c\u0435\u043d\u044f\u0435\u043c \u0441\u0438\u043c\u0432\u043e\u043b\u044b \u0432 \u043d\u0438\u0445 \u043d\u0430 \u0446\u0438\u0444\u0440\u044b.     $str .= $_ . '3'; } @m = split \/\/, ( '3' x 12 ) . $str; # \u0414\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u043f\u0435\u0440\u0432\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443 \u0438\u0437 \u0442\u0440\u043e\u0435\u043a                                     # \u0438 \u0440\u0430\u0437\u0431\u0438\u0432\u0430\u0435\u043c \u0432 \u043c\u0430\u0441\u0441\u0438\u0432 for (@m) {     %l = ();     $r = 1;     z($i);                          # \u0412\u044b\u0437\u044b\u0432\u0430\u0435\u043c \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0443.     $o{ $w[0] } = 1                 # \u0417\u0430\u043f\u043e\u043c\u0438\u043d\u0430\u0435\u043c \u0442\u043e\u0447\u043a\u0443,         if \/1\/                      # \u0435\u0441\u043b\u0438 \u0432 \u043d\u0435\u0439 \u0435\u0434\u0438\u043d\u0438\u0446\u0430 (\u0431\u0435\u043b\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c),         && $r                       # \u043d\u0435\u0442 \u043f\u043e\u0432\u0442\u043e\u0440\u0430,         && ( @w = %l ) == 2;        # \u0438 \u043d\u0430\u0439\u0434\u0435\u043d \u0442\u043e\u043b\u044c\u043a\u043e \u043e\u0434\u0438\u043d \u043f\u0440\u043e\u0431\u0435\u043b \u0432 \u0441\u043e\u0441\u0435\u0434\u044f\u0445.     $i++; }  printf &quot;%d %d$\/&quot;, $_ \/ 11, $_ % 11  # \u0412\u044b\u0432\u043e\u0434\u0438\u043c \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u043a\u0430\u043a \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0438 \u043e\u0441\u0442\u0430\u0442\u043e\u043a                                     # \u043e\u0442 \u0434\u0435\u043b\u0435\u043d\u0438\u044f \u043f\u043e\u0437\u0438\u0446\u0438\u0438 \u043d\u0430 11     for sort {$a &gt; $b} keys %o;     # \u0434\u043b\u044f \u0432\u0441\u0435\u0445 \u043d\u0430\u0439\u0434\u0435\u043d\u043d\u044b\u0445 \u0442\u043e\u0447\u0435\u043a.  sub z {     my $c = $_[0];     for (qw\/11 1 -11 -1\/) {         # \u0414\u043b\u044f \u0432\u0441\u0435\u0445 \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0445 \u043a\u043b\u0435\u0442\u043e\u043a         $x = $c + $_;               # \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u043d\u043e\u043c\u0435\u0440 \u043f\u043e\u0437\u0438\u0446\u0438\u0438,         $n = $m[$x];                # \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u043c\u043e\u0435 \u0442\u043e\u0447\u043a\u0438.         $l{$x} = 1 if $n == 2;      # \u0417\u0430\u043f\u043e\u043c\u0438\u043d\u0430\u0435\u043c \u0442\u043e\u0447\u043a\u0443, \u0435\u0441\u043b\u0438 \u0432 \u0441\u043e\u0441\u0435\u0434\u044f\u0445 \u2014 \u043f\u0440\u043e\u0431\u0435\u043b         if ( $n == 1 ) {            # \u0415\u0441\u043b\u0438 \u0432 \u0441\u043e\u0441\u0435\u0434\u044f\u0445 \u2014 \u0431\u0435\u043b\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c,             z($x) if !\/-\/;          # \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0432\u043d\u043e \u0432\u043f\u0435\u0440\u0435\u0434\u0438 \u0438\u0434\u0443\u0449\u0438\u0435 \u0442\u043e\u0447\u043a\u0438.             $r = 0 if $i &gt; $x       # \u041e\u0431\u043d\u0443\u043b\u044f\u0435\u043c \u0444\u043b\u0430\u0433, \u0435\u0441\u043b\u0438 \u0442\u043e\u0447\u043a\u0430 \u043f\u043e\u0437\u0430\u0434\u0438                                     # \u0438\u0437\u043d\u0430\u0447\u0430\u043b\u044c\u043d\u043e \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c\u043e\u0439 \u0442\u043e\u0447\u043a\u0438                                     # (\u0447\u0442\u043e\u0431\u044b \u0438\u0441\u043a\u043b\u044e\u0447\u0438\u0442\u044c \u043f\u043e\u0432\u0442\u043e\u0440\u044b)         }     } } <\/code><\/pre>\n<\/div>\n<\/div>\n<p>  \u041d\u0430 \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0445 \u0442\u0435\u0441\u0442\u043a\u0435\u0439\u0441\u0430\u0445 \u043f\u043e\u0439\u043c\u0430\u043d \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u043f\u043e\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0439 \u0431\u0430\u0433: \u043a\u043e\u0433\u0434\u0430 \u0435\u0441\u0442\u044c \u00ab\u0437\u0430\u0445\u0432\u0430\u0442\u044b\u0432\u0430\u044e\u0449\u0438\u0435\u00bb \u043f\u043e\u0437\u0438\u0446\u0438\u0438 \u0432 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0439 \u043b\u0438\u043d\u0438\u0438 \u043f\u043e\u043b\u044f (\u043f\u043e\u0437\u0438\u0446\u0438\u044f \u0432 \u043c\u0430\u0441\u0441\u0438\u0432\u0435 100 \u0438 \u0431\u043e\u043b\u044c\u0448\u0435), \u043e\u043d\u0438 \u043f\u043e\u043f\u0430\u0434\u0430\u044e\u0442 \u0432 \u0432\u044b\u0432\u043e\u0434 \u043f\u0435\u0440\u0435\u0434 \u043f\u043e\u0437\u0438\u0446\u0438\u044f\u043c\u0438, \u0438\u0434\u0443\u0449\u0438\u043c\u0438 \u043d\u0430 \u0434\u043e\u0441\u043a\u0435 \u0440\u0430\u043d\u044c\u0448\u0435. \u0412\u044b\u0437\u0432\u0430\u043d\u043e \u044d\u0442\u043e \u0442\u0435\u043c, \u0447\u0442\u043e \u0434\u043b\u044f \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u0438 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u043e\u0432 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f sort, \u0430 \u043e\u043d \u043f\u043e \u0443\u043c\u043e\u043b\u0447\u0430\u043d\u0438\u044e \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0432 \u0440\u0435\u0436\u0438\u043c\u0435 \u0441\u0442\u0440\u043e\u043a\u043e\u0432\u043e\u0433\u043e \u0441\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f, \u0442.&nbsp;\u0435.&nbsp;\u00ab100\u00bb \u0431\u0443\u0434\u0435\u0442 \u043c\u0435\u043d\u044c\u0448\u0435, \u0447\u0435\u043c&nbsp;\u00ab99\u00bb.<\/p>\n<h5>370 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u2014 Mikalai Liohenki + Denis Shirokov<\/h5>\n<p>  \u0414\u0440\u0443\u0433\u0430\u044f \u0432\u0430\u0440\u0438\u0430\u0446\u0438\u044f \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u0441 \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0435\u0439. \u0417\u0434\u0435\u0441\u044c \u043f\u043e\u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0435\u0449\u0451 \u043e\u0434\u0438\u043d \u0447\u0430\u0441\u0442\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c\u044b\u0439 \u0442\u0440\u044e\u043a: \u0434\u043b\u044f \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u043a\u0430\u0436\u0434\u043e\u0439 \u0442\u043e\u0447\u043a\u0438 \u0434\u0435\u043b\u0430\u0435\u0442\u0441\u044f \u043a\u043e\u043f\u0438\u044f \u0434\u043e\u0441\u043a\u0438, \u0432 \u043d\u0435\u0451 \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u0447\u0451\u0440\u043d\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c, \u0438 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u0442\u0441\u044f, \u0435\u0441\u0442\u044c \u043b\u0438 \u043f\u043e\u0441\u043b\u0435 \u044d\u0442\u043e\u0433\u043e \u043d\u0430 \u0434\u043e\u0441\u043a\u0435 \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u044b\u0435 \u0431\u0435\u043b\u044b\u0435 \u043a\u0430\u043c\u043d\u0438.<\/p>\n<pre><code class=\"perl\">#!perl $s='b'x12; while(&lt;&gt;){s\/\\n\/bb\/;s\/ \/0\/g;$s.=$_;}$s.='b'x10;@q=(-1,+1,11,-11);@a=split\/\/,$s; for(@a){++$i;if(!$a[$i]){$res=0;$p=[];for(@q){$c=$_+$i;if($a[$c]eq'w'){$p=[@a];$p-&gt;[$i]='b';$res+=b($p,$c);}}if($res){printf&quot;%d %d\\n&quot;,$i\/11,$i%11;}}} sub b{my($e,$w)=@_;$r=1;for(@q){$z=$_+$w;return 0 if!$r||!$e-&gt;[$z];if($e-&gt;[$z]eq'w'){$t=[@$e];$t-&gt;[$w]='b';$r&=b($t,$z)}}return$r} <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl # \u0421\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435, \u0437\u0430\u043c\u044b\u043a\u0430\u044f \u0438\u0445 \u0432 \u0440\u0430\u043c\u043a\u0443 \u0438\u0437 \u0447\u0451\u0440\u043d\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439. # \u041f\u0440\u043e\u0431\u0435\u043b\u044b \u0437\u0430\u043c\u0435\u043d\u044f\u0435\u043c \u043d\u0430 0, \u0447\u0442\u043e \u043f\u043e\u0437\u0432\u043e\u043b\u0438\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0443 \u0438\u0441\u0442\u0438\u043d\u043d\u043e\u0441\u0442\u0438. $s = 'b' x 12; while (&lt;&gt;) {     s\/\\n\/bb\/;     s\/ \/0\/g;     $s .= $_; } $s .= 'b' x 10;  @q = ( -1, +1, 11, -11 ); # \u0421\u0434\u0432\u0438\u0433\u0438 \u0434\u043b\u044f \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442 \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0445 \u0442\u043e\u0447\u0435\u043a.  @a = split \/\/, $s;        # \u0420\u0430\u0437\u0431\u0438\u0432\u0430\u0435\u043c \u0434\u043e\u0441\u043a\u0443 \u0438 \u043f\u043e\u043c\u0435\u0449\u0430\u0435\u043c \u0432 \u043c\u0430\u0441\u0441\u0438\u0432.  for (@a) {                           # \u041e\u0431\u0445\u043e\u0434\u0438\u043c \u0434\u043e\u0441\u043a\u0443.     ++$i;     if ( !$a[$i] ) {                 # \u0415\u0441\u043b\u0438 \u0442\u043e\u0447\u043a\u0430 \u043f\u0443\u0441\u0442\u0430.         $res = 0;         $p   = [];         for (@q) {                   # \u041e\u0431\u0445\u043e\u0434\u0438\u043c \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0435 \u0442\u043e\u0447\u043a\u0438.             $c = $_ + $i;             if ( $a[$c] eq 'w' ) {   # \u0415\u0441\u043b\u0438 \u0432 \u0441\u043e\u0441\u0435\u0434\u044f\u0445 \u0431\u0435\u043b\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c.                 $p = [@a];           # \u041a\u043e\u043f\u0438\u0440\u0443\u0435\u043c \u0434\u043e\u0441\u043a\u0443                 $p-&gt;[$i] = 'b';      # \u0423\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0447\u0451\u0440\u043d\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c \u0432 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c\u0443\u044e \u0442\u043e\u0447\u043a\u0443.                 $res += b( $p, $c ); # \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u00ab\u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u043e\u0441\u0442\u044c\u00bb.             }         }         if ($res) {                             # \u0415\u0441\u043b\u0438 \u0435\u0441\u0442\u044c \u0437\u0430\u0445\u0432\u0430\u0442,             printf &quot;%d %d\\n&quot;, $i \/ 11, $i % 11; # \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u043c \u0438 \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u0442\u043e\u0447\u043a\u0438.         }     } }  sub b {     my ( $e, $w ) = @_;     $r = 1;     for (@q) { # \u041e\u0431\u0445\u043e\u0434\u0438\u043c \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0435 \u0442\u043e\u0447\u043a\u0438. \u041f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0434\u0443\u0431\u043b\u044c \u043a\u043e\u0434\u0430 \u0432\u044b\u0448\u0435.         $z = $_ + $w;         return 0 if !$r || !$e-&gt;[$z];         if ( $e-&gt;[$z] eq 'w' ) {             $t = [@$e];             $t-&gt;[$w] = 'b';             $r &= b( $t, $z )         }     }     return $r; } <\/code><\/pre>\n<\/div>\n<\/div>\n<p>  <\/p>\n<h5>390 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u2014 Dmitri L.<\/h5>\n<p>  \u041e\u0447\u0435\u0440\u0435\u0434\u043d\u043e\u0435 \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0432\u043d\u043e\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0441\u043e \u0441\u043f\u0435\u0446\u0438\u0444\u0438\u0447\u0435\u0441\u043a\u0438\u043c \u0430\u0433\u0440\u0435\u0433\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0441\u043e\u0441\u0435\u0434\u0435\u0439 \u0432 \u0432\u0438\u0434\u0435 \u0441\u0447\u0451\u0442\u0447\u0438\u043a\u0430.<\/p>\n<pre><code class=\"perl\">#!perl push@t,split\/\/,'b'x11;for(&lt;&gt;){chomp;push@t,split\/\/,&quot;b$_&quot;.&quot;b&quot;}push@t,@t[0..10];for(;$r++&lt;11;){for($c=0;$c++&lt;11;){$i=$r*11+$c;if($t[$i]eq' '){for($i-11,$i+1,$i+11,$i-1){next unless$t[$_]eq'w';$t[$i]='b';if(f($_)&gt;7){print&quot;$r $c\\n&quot;;last}$t[$i]=' '}}}}sub f{my($r,$e,$k)=@_;$d{$r}?return$e||$dr:($d{$r}=2);for($r-11,$r+1,$r+11,$r-1){$k+=1+f($_,1)if$t[$_]eq'w';$k+=2if$t[$_]eq'b'}$e?$k&gt;7?$e:0:$k} <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl  # \u0421\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435, \u0437\u0430\u043c\u044b\u043a\u0430\u044f \u0438\u0445 \u0432 \u0440\u0430\u043c\u043a\u0443 \u0438\u0437 \u0447\u0451\u0440\u043d\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439 push @t, split \/\/, 'b' x 11; for (&lt;&gt;) {     chomp;     push @t, split \/\/, &quot;b$_&quot; . &quot;b&quot; } push @t, @t[ 0 .. 10 ];  # \u041f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u043f\u043e \u0441\u0442\u0440\u043e\u043a\u0430\u043c \u0438 \u0442\u043e\u0447\u043a\u0430\u043c for ( ; $r++ &lt; 11 ; ) {     for ( $c = 0 ; $c++ &lt; 11 ; ) {         # \u0412\u044b\u0447\u0438\u0441\u043b\u044f\u0435\u043c \u043f\u043e\u0437\u0438\u0446\u0438\u044e \u0442\u043e\u0447\u043a\u0438         $i = $r * 11 + $c;         # \u0415\u0441\u043b\u0438 \u0432 \u0442\u043e\u0447\u043a\u0435 - \u043f\u0440\u043e\u0431\u0435\u043b, \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0441\u043e\u0441\u0435\u0434\u0435\u0439         if ( $t[$i] eq ' ' ) {             for ( $i - 11, $i + 1, $i + 11, $i - 1 ) {                  next unless $t[$_] eq 'w';                 $t[$i] = 'b';                 if ( f($_) &gt; 7 ) {   # \u0415\u0441\u043b\u0438 \u0441\u0447\u0451\u0442\u0447\u0438\u043a \u0431\u043e\u043b\u044c\u0448\u0435 7 (\u0442. \u0435. 8)                     print &quot;$r $c\\n&quot;; # \u0412\u044b\u0432\u043e\u0434\u0438\u043c \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b                     last                 }                 $t[$i] = ' '             }         }     } }  sub f {     my ( $r, $e, $k ) = @_;     $d{$r} ? return $e || $dr : ( $d{$r} = 2 );     for ( $r - 11, $r + 1, $r + 11, $r - 1 ) { # \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0441\u043e\u0441\u0435\u0434\u0435\u0439         $k += 1 + f( $_, 1 ) if $t[$_] eq 'w'; # \u0415\u0441\u043b\u0438 \u0441\u043e\u0441\u0435\u0434 \u0431\u0435\u043b\u044b\u0439 - \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u043a \u0441\u0447\u0451\u0442\u0447\u0438\u043a\u0443 1 \u043f\u043b\u044e\u0441 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0441\u043e\u0441\u0435\u0434\u0430         $k += 2 if $t[$_] eq 'b';              # \u0414\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u043a \u0441\u0447\u0451\u0442\u0447\u0438\u043a\u0443 2 \u0435\u0441\u043b\u0438 \u0441\u043e\u0441\u0435\u0434 \u0447\u0451\u0440\u043d\u044b\u0439     }     $e ? $k &gt; 7 ? $e : 0 : $k; } <\/code><\/pre>\n<\/div>\n<\/div>\n<p>  <\/p>\n<h5>404 \u0441\u0438\u043c\u0432\u043e\u043b\u0430 \u2014 Philippe Bruhat (BooK) <\/h5>\n<p>  \u041d\u0435 \u0441\u0430\u043c\u043e\u0435 \u043a\u043e\u0440\u043e\u0442\u043a\u043e\u0435, \u043d\u043e, \u043f\u043e\u0436\u0430\u043b\u0443\u0439, \u0441\u0430\u043c\u043e\u0435 \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0438\u0447\u0435\u0441\u043a\u0438 \u0441\u043b\u043e\u0436\u043d\u043e\u0435, \u0438 \u043e\u0434\u043d\u043e \u0438\u0437 \u0441\u0430\u043c\u044b\u0445 \u0437\u0430\u043f\u0443\u0442\u0430\u043d\u043d\u044b\u0445 \u0438 \u0442\u0440\u0443\u0434\u043d\u044b\u0445 \u0434\u043b\u044f \u0440\u0430\u0437\u0431\u043e\u0440\u0430 \u0440\u0435\u0448\u0435\u043d\u0438\u0439, \u0442\u0430\u043a \u0447\u0442\u043e \u043d\u0435 \u0436\u0434\u0438\u0442\u0435 \u043f\u043e\u043b\u043d\u043e\u0439 \u044f\u0441\u043d\u043e\u0441\u0442\u0438 \u043e\u0442 \u043c\u043e\u0435\u0439 \u0430\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u0438.<\/p>\n<pre><code class=\"perl\">#!perl #!perl -ln sub M{$k=pop;my%t;$l[$k]=[grep!$t{$_}++,@{$l[$k]},@_]}sub S{($m,$n)=@_;($M,$N)=sort$$m,$$n;M@{delete$l[$N]},$M if$N!=($$m=$$n=$M)}$i=1;for(split\/\/){$b[$c=$..$i]=\/w\/?++$e:$_;$x=($R=$.-1).$i;$y=$..($C=$i-1);\/w\/&&do{$b[$_]&gt;0&&S\\$b[$c],\\$b[$_]for$x,$y;M$b[$x]eq$&quot;?&quot;$R $i&quot;:(),$b[$y]eq$&quot;?&quot;$. $C&quot;:(),$b[$c]};\/ \/&&map{$b[$_]&gt;0&&M&quot;$. $i&quot;,$b[$_]}$x,$y;$i++}}{print for sort grep!$s{$_}++,map@$_-1?():@$_,@l <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl -ln      sub M {         $k = pop;         my %t;         # \u0421\u043a\u043b\u0430\u0434\u044b\u0432\u0430\u0435\u043c \u00ab\u0434\u044b\u0445\u0430\u043d\u0438\u044f\u00bb.         $l[$k] = [ grep !$t{$_}++, @{ $l[$k] }, @_ ]     }     sub S {         ( $m, $n ) = @_;         ( $M, $N ) = sort $$m, $$n;         # \u0423\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0447\u0438\u0441\u043b\u043e\u0432\u044b\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0442\u043e\u0447\u0435\u043a \u0433\u0440\u0443\u043f\u043f\u044b \u043d\u0430 \u043d\u0430\u0438\u043c\u0435\u043d\u044c\u0448\u0435\u0435 \u0438\u0437 \u0432\u0445\u043e\u0434\u044f\u0449\u0438\u0445         # \u0438 \u043f\u043e\u0434\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0432\u0441\u0435 \u00ab\u0434\u044b\u0445\u0430\u043d\u0438\u044f\u00bb \u0433\u0440\u0443\u043f\u043f\u044b         M @{ delete $l[$N] }, $M           if $N != ( $$m = $$n = $M );     }      $i = 1;     # \u0420\u0430\u0437\u0431\u0438\u0432\u0430\u0435\u043c \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0438 \u043f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u0432\u0441\u0435 \u0442\u043e\u0447\u043a\u0438.     for ( split \/\/ ) {         $b[ $c = $. . $i ] =       # \u0418\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c $. \u043a\u0430\u043a \u0441\u0447\u0451\u0442\u0447\u0438\u043a \u0441\u0442\u0440\u043e\u043a.             \/w\/ ? ++$e : $_;       # \u0417\u0430\u043c\u0435\u043d\u044f\u0435\u043c \u0431\u0435\u043b\u044b\u0435 \u043a\u0430\u043c\u043d\u0438 \u043d\u0430 \u043f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e                                    # \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u0432\u0430\u044e\u0449\u0438\u0435\u0441\u044f \u0447\u0438\u0441\u043b\u043e\u0432\u044b\u0435 \u043a\u043b\u0430\u0441\u0441\u044b.         $x = ( $R = $. - 1 ) . $i; # \u041f\u043e\u0437\u0438\u0446\u0438\u044f \u0442\u043e\u0447\u043a\u0438 \u043d\u0430\u0434 \u0442\u0435\u043a\u0443\u0449\u0435\u0439.         $y = $. . ( $C = $i - 1 ); # \u041f\u043e\u0437\u0438\u0446\u0438\u044f \u0442\u043e\u0447\u043a\u0438 \u0441\u043b\u0435\u0432\u0430 \u043e\u0442 \u0442\u0435\u043a\u0443\u0449\u0435\u0439.         # \u0414\u043b\u044f \u0431\u0435\u043b\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439 \u2014 \u0434\u043b\u044f \u043a\u0430\u043c\u043d\u0435\u0439 \u0441\u0432\u0435\u0440\u0445\u0443 \u0438 \u0441\u043b\u0435\u0432\u0430         \/w\/ && do {             # \u0434\u0435\u043b\u0430\u0435\u043c \u0441\u043b\u0438\u044f\u043d\u0438\u0435 \u0433\u0440\u0443\u043f\u043f \u0447\u0438\u0441\u043b\u043e\u0432\u044b\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439             $b[$_] &gt; 0 && S \\$b[$c], \\$b[$_] for $x, $y;             # \u0438 \u0441\u0443\u043c\u043c\u0438\u0440\u0443\u0435\u043c \u00ab\u0434\u044b\u0445\u0430\u043d\u0438\u044f\u00bb.             M $b[$x] eq $&quot; ? &quot;$R $i&quot; : (), $b[$y] eq $&quot; ? &quot;$. $C&quot; : (), $b[$c];         };         # \u0414\u043b\u044f \u043f\u0443\u0441\u0442\u044b\u0445 \u0442\u043e\u0447\u0435\u043a \u2014 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u00ab\u0434\u044b\u0445\u0430\u043d\u0438\u0435\u00bb \u043a \u043a\u0430\u043c\u043d\u044f\u043c \u0441\u0432\u0435\u0440\u0445\u0443 \u0438 \u0441\u043b\u0435\u0432\u0430.         \/ \/ && map { $b[$_] &gt; 0 && M &quot;$. $i&quot;, $b[$_] } $x, $y;         $i++;     } }{     # \u0412\u044b\u0432\u043e\u0434\u0438\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u044b.     print for sort grep !$s{$_}++, map @$_ - 1 ? () : @$_, @l <\/code><\/pre>\n<\/div>\n<\/div>\n<p>  \u041a \u0441\u0447\u0430\u0441\u0442\u044c\u044e, \u0424\u0438\u043b\u0438\u043f\u043f \u043f\u043e\u0434\u043e\u0448\u0451\u043b \u043a \u0434\u0435\u043b\u0443 \u0441\u0435\u0440\u044c\u0451\u0437\u043d\u043e \u0438 \u0441\u043d\u0430\u0431\u0434\u0438\u043b \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u043c \u043f\u043e\u0434\u0440\u043e\u0431\u043d\u044b\u043c \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u0435\u043c.<\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f \u043e\u0442 \u0430\u0432\u0442\u043e\u0440\u0430<\/b><\/p>\n<div class=\"spoiler_text\">The core of the algorithm is to create groups of stone, and update<br \/>  the list of freedoms for each group. At the end, only the freedoms<br \/>  from groups with a single freedom are printed, after having been sorted<br \/>  and deduplicated.<\/p>\n<p>  The algorithm uses @b for the board, and abuses the fact that it&#8217;s a<br \/>  9&#215;9 board. So the coordinates are in the range 00..99 and $x.$y can<br \/>  point to any intersection. When constructing the board, the column<br \/>  and row 0 are filled with nothing (either undef or &#187;).<\/p>\n<p>  The board is visited in a single pass, line by line (thanks to -ln).<br \/>  For each cell, I looked at the cell above and on its left.<\/p>\n<p>  If the current cell is a &#8216;w&#8217;, it&#8217;s turned into the next available<br \/>  number, and for each neighbour, if it&#8217;s a number, then both are turned<br \/>  into the smallest of the two numbers, and their lists of freedoms are<br \/>  merged. Neighbours that are &#8216; &#8216; are added to the list of freedoms for<br \/>  the current cell.<\/p>\n<p>  If the current cell is a &#8216; &#8216;, it&#8217;s added as a freedom to those of its<br \/>  neighbours that are numbers.<\/p>\n<p>  For &#8216;b&#8217; cells, we do nothing.<\/p>\n<p>  The numbers are the &#8216;equivalence classes&#8217; for the white groups, i.e.<br \/>  two cells having the same number are part of the same group.<\/p>\n<p>  Printing the board was very useful to debug my algorithm:  <\/p>\n<pre><code>    ...wb....          ...1b....     ...b.....          ...b.....     .........          .........     ..b......  would   ..b......     .bwb.....  become  .b2b.....     bwwwb....          b222b....     .........          .........     .........          .........     .......bw          .......b6 <\/code><\/pre>\n<p>  Without any merging of cells, the &#8216;2&#8217; group would actually be:<\/p>\n<pre><code>  2  345 <\/code><\/pre>\n<p>  During the pass, it evolves like this:<\/p>\n<pre><code>    ..b......     .b2 <\/code><\/pre>\n<p>  (visiting all cells until the next white)<\/p>\n<pre><code>    ..b......     .b2......     b3 <\/code><\/pre>\n<pre><code>    ..b......     .b2b.....     b34 <\/code><\/pre>\n<p>  merging the current cell (4) with 2:<\/p>\n<pre><code>    ..b......     .b2b.....     b32 <\/code><\/pre>\n<p>  merging the current cell (2) with 3:<\/p>\n<pre><code>    ..b......     .b2b.....     b22 <\/code><\/pre>\n<pre><code>    ..b......     .b2b.....     b225 <\/code><\/pre>\n<p>  merging the current cell (5) with 2:<\/p>\n<pre><code>    ..b......     .b2b.....     b222 <\/code><\/pre>\n<p>  The sub M does the addition of the freedoms, removing duplicates.<br \/>  The sub S does the merging of the equivalence classes, and calls<br \/>  M to merge their freedoms.<\/p>\n<p>  At 400, I had no expectation of winning. A well-known fact of golf<br \/>  competitions is that regexp-based algorithms always win. \ud83d\ude42  <\/div>\n<\/div>\n<p>  <\/p>\n<h5>500 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u2014 Savio PImatteo <\/h5>\n<p>  \u0418 \u0435\u0449\u0451 \u043e\u0434\u043d\u043e \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0432\u043d\u043e\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u0435, \u0441\u0440\u0430\u0432\u043d\u0438\u0432\u0430\u044e\u0449\u0435\u0435 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u00ab\u043d\u0435\u0441\u0432\u043e\u0431\u043e\u0434\u043d\u044b\u0445\u00bb (\u0447\u0451\u0440\u043d\u044b\u0445 \u0438\u043b\u0438 \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u044b\u0445 \u0431\u0435\u043b\u044b\u0445) \u043a\u0430\u043c\u043d\u0435\u0439 \u043d\u0430 \u0434\u043e\u0441\u043a\u0435 \u0434\u043e \u0438 \u043f\u043e\u0441\u043b\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0438 \u0447\u0451\u0440\u043d\u043e\u0433\u043e \u043a\u0430\u043c\u043d\u044f \u0432 \u043a\u0430\u0436\u0434\u0443\u044e \u043f\u0443\u0441\u0442\u0443\u044e \u043a\u043b\u0435\u0442\u043a\u0443.<\/p>\n<pre><code class=\"perl\">#!perl my$X=121;my$m;sub z{my($s,$x,$m)=shift;while($x&lt;$X){$m+=f($x++,$s);}$m;}sub f{my($n,$t,$d)=@_;my$c=substr($t,$n,1);return 0 if $c eq ' '||!$d&& $c ne 'w';return 1 if $c eq 'b';substr($t,$n,1)='b';(!(($n+1)%11)||f($n+1,$t,1))*(!(($n-1)%10)||f($n-1,$t,1))*f($n+11,$t,1)*f($n-11,$t,1);}my$y='b'x11;while(&lt;&gt;){$y.=&quot;b$_&quot;;}$y=~s\/\\n\/b\/g;$y.='b'x11;$d=z($y);my$i=0;while($i&lt;$X){my$ch=substr($y,$i,1);if($ch eq ' '){$b=$y;substr($b,$i,1)='b';if(z($b)&gt;$d){my$y=int($i\/11);my$x=$i-($y*11);print&quot;$y $x\\n&quot;;}}$i++;} <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl my $X = 121; # \u0420\u0430\u0437\u043c\u0435\u0440 \u043f\u043e\u043b\u044f \u0441 \u0440\u0430\u043c\u043a\u043e\u0439. my $m;  # \u041f\u043e\u0434\u0441\u0447\u0451\u0442 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u0430 \u00ab\u043d\u0435\u0441\u0432\u043e\u0431\u043e\u0434\u043d\u044b\u0445\u00bb (\u0447\u0451\u0440\u043d\u044b\u0445 \u0438\u043b\u0438 \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u044b\u0445 \u0431\u0435\u043b\u044b\u0445) \u043a\u0430\u043c\u043d\u0435\u0439 \u0432 \u043f\u043e\u0437\u0438\u0446\u0438\u0438 \u0434\u043e\u0441\u043a\u0438. sub z {     my ( $s, $x, $m ) = shift;     # \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0432\u0441\u0435 \u0442\u043e\u0447\u043a\u0438 \u0438 \u0441\u0443\u043c\u043c\u0438\u0440\u0443\u0435\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442.     while ( $x &lt; $X ) { $m += f( $x++, $s ); }     $m; }  # \u041f\u0440\u043e\u0432\u0435\u0440\u043a\u0430 \u0442\u043e\u0447\u043a\u0438 \u043d\u0430 \u00ab\u043d\u0435\u0441\u0432\u043e\u0431\u043e\u0434\u043d\u043e\u0441\u0442\u044c\u00bb sub f {     my ( $n, $t, $d ) = @_;     my $c = substr( $t, $n, 1 ); # \u041f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0442\u043e\u0447\u043a\u0438.     # \u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c 0 \u0435\u0441\u043b\u0438 \u0442\u043e\u0447\u043a\u0430 \u043f\u0443\u0441\u0442\u0430     # \u0438\u043b\u0438 \u0435\u0441\u043b\u0438 \u043c\u044b \u043d\u0435 \u043d\u0435 \u043d\u0430\u0445\u043e\u0434\u0438\u043c\u0441\u044f \u0432 \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0438 \u0438 \u0432 \u0442\u043e\u0447\u043a\u0435 \u043d\u0435 \u0441\u0442\u043e\u0438\u0442 \u0431\u0435\u043b\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c.     return 0 if $c eq ' ' || !$d && $c ne 'w';     # \u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c 1, \u0435\u0441\u043b\u0438 \u0432 \u0442\u043e\u0447\u043a\u0435 \u0441\u0442\u043e\u0438\u0442 \u0447\u0451\u0440\u043d\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c.     return 1 if $c eq 'b';     # \u0423\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0432 \u0442\u043e\u0447\u043a\u0443 \u0447\u0451\u0440\u043d\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c.     substr( $t, $n, 1 ) = 'b';     # \u0420\u0435\u043a\u0443\u0440\u0441\u0438\u0432\u043d\u043e \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0435 \u0442\u043e\u0447\u043a\u0438.     ( !( ( $n + 1 ) % 11 ) || f( $n + 1, $t, 1 ) ) *         ( !( ( $n - 1 ) % 10 ) || f( $n - 1, $t, 1 ) ) *         f( $n + 11, $t, 1 ) *         f( $n - 11, $t, 1 );     # \u0412 \u0438\u0442\u043e\u0433\u0435 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c 0, \u0435\u0441\u043b\u0438 \u0440\u044f\u0434\u043e\u043c \u0441 \u0433\u0440\u0443\u043f\u043f\u043e\u0439 \u043a\u0430\u043c\u043d\u0435\u0439     # \u043d\u0430\u0439\u0434\u0435\u043d\u0430 \u0445\u043e\u0442\u044f \u0431\u044b \u043e\u0434\u043d\u0430 \u043f\u0443\u0441\u0442\u0430\u044f \u0442\u043e\u0447\u043a\u0430. }  # \u0421\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435, \u0437\u0430\u043c\u044b\u043a\u0430\u044f \u0438\u0445 \u0432 \u0440\u0430\u043c\u043a\u0443 \u0438\u0437 \u0447\u0451\u0440\u043d\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439. my $y = 'b' x 11; while (&lt;&gt;) {     $y .= &quot;b$_&quot;; } $y =~ s\/\\n\/b\/g; $y .= 'b' x 11;  $d = z($y); my $i = 0; while ( $i &lt; $X ) {                   # \u041e\u0431\u0445\u043e\u0434\u0438\u043c \u0434\u043e\u0441\u043a\u0443.     my $ch = substr( $y, $i, 1 );     # \u041f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0442\u043e\u0447\u043a\u0438.     if ( $ch eq ' ' ) {               # \u0415\u0441\u043b\u0438 \u0432 \u0442\u043e\u0447\u043a\u0435 \u043f\u0440\u043e\u0431\u0435\u043b,         $b = $y;                      # \u043a\u043e\u043f\u0438\u0440\u0443\u0435\u043c \u0434\u043e\u0441\u043a\u0443,         substr( $b, $i, 1 ) = 'b';    # \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0432 \u0442\u043e\u0447\u043a\u0443 \u0447\u0451\u0440\u043d\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c.         # \u0415\u0441\u043b\u0438 \u043f\u043e\u0441\u043b\u0435 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0442\u043e\u0447\u043a\u0438 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u00ab\u043d\u0435\u0441\u0432\u043e\u0431\u043e\u0434\u043d\u044b\u0445\u00bb \u043a\u0430\u043c\u043d\u0435\u0439 \u0443\u0432\u0435\u043b\u0438\u0447\u0438\u043b\u043e\u0441\u044c         if ( z($b) &gt; $d ) {             # \u0420\u0430\u0441\u0441\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0438 \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b.             my $y = int( $i \/ 11 );             my $x = $i - ( $y * 11 );             print &quot;$y $x\\n&quot;;         }     }     $i++; } <\/code><\/pre>\n<\/div>\n<\/div>\n<p>  <\/p>\n<h5>581 \u0441\u0438\u043c\u0432\u043e\u043b \u2014 Dimitry Ivanov<\/h5>\n<p>  \u0420\u0435\u0448\u0435\u043d\u0438\u0435, \u043e\u0447\u0435\u043d\u044c \u0431\u043b\u0438\u0437\u043a\u043e\u0435 \u043a \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0435\u043c\u0443 \u043e\u0442 Savio Pimatteo.<\/p>\n<pre><code class=\"perl\">#!perl eval{ $a-&gt;[10]=$a-&gt;[0]=[('b')x11]; while(&lt;STDIN&gt;){chomp;@{$a-&gt;[++$i]}=('b',(split''),'b');last if $i&gt;=9} sub f { my($x,$y)=@_; return $o[$j] if $n-&gt;[$x][$y]; return $o[$j]||2 if $a-&gt;[$x][$y]eq'b'; return 1 if $a-&gt;[$x][$y]ne'w'; $n-&gt;[$x][$y]=$j; $o[$j]=f($_,$y)for($x-1,$x+1); $o[$j]=f($x,$_)for($y-1,$y+1); return $o[$j]; } sub p { for $x(0..10){for $y(0..10){ f($x,$y,$j++) if $a-&gt;[$x][$y]eq'w'&&!$n-&gt;[$x][$y]; }} return grep{$_==2}@o; } my $t=p; for $x(0..10){for $y(0..10){ next if $a-&gt;[$x][$y]ne' '; $a-&gt;[$x][$y]='b'; @o=();$n=[]; print&quot;$x $y\\n&quot; if $t&lt;p; $a-&gt;[$x][$y]=' '; }} } <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl eval {     # \u0414\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0433\u0440\u0430\u043d\u0438\u0446\u044b \u0432 \u043d\u0430\u0447\u0430\u043b\u0435 \u0438 \u0432 \u043a\u043e\u043d\u0446\u0435.     $a-&gt;[10] = $a-&gt;[0] = [ ('b') x 11 ];     # \u0421\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0434\u0430\u043d\u043d\u044b\u0435, \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u044f \u0433\u0440\u0430\u043d\u0438\u0446\u044b \u0441\u043f\u0440\u0430\u0432\u0430 \u0438 \u0441\u043b\u0435\u0432\u0430.     while (&lt;STDIN&gt;) {         chomp;         @{ $a-&gt;[ ++$i ] } = ( 'b', ( split '' ), 'b' );         last if $i &gt;= 9;     }      # \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u043e\u0441\u0442\u0438 \u0431\u0435\u043b\u043e\u0433\u043e \u043a\u0430\u043c\u043d\u044f.     sub f {         my ( $x, $y ) = @_;         # \u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0438\u043c\u0435\u044e\u0449\u0438\u0439\u0441\u044f \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442, \u0435\u0441\u043b\u0438 \u0442\u043e\u0447\u043a\u0430 \u0443\u0436\u0435 \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d\u0430.         return $o[$j] if $n-&gt;[$x][$y];         # \u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0438\u043c\u0435\u044e\u0449\u0438\u0439\u0441\u044f \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0438\u043b\u0438 2, \u0435\u0441\u043b\u0438 \u043d\u0430 \u0442\u043e\u0447\u043a\u0435 \u0441\u0442\u043e\u0438\u0442 \u0447\u0451\u0440\u043d\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c.         return $o[$j] || 2 if $a-&gt;[$x][$y] eq 'b';         # \u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0435\u0434\u0438\u043d\u0438\u0446\u0443, \u0435\u0441\u043b\u0438 \u0432 \u0442\u043e\u0447\u043a\u0435 \u043d\u0435 \u0441\u0442\u043e\u0438\u0442 \u0431\u0435\u043b\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c (\u0442. \u0435. \u043e\u043d\u0430 \u043f\u0443\u0441\u0442\u0430).         return 1 if $a-&gt;[$x][$y] ne 'w';         # \u0414\u043b\u044f \u0431\u0435\u043b\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439 \u0437\u0430\u043f\u043e\u043c\u0438\u043d\u0430\u0435\u043c, \u0447\u0442\u043e \u0442\u043e\u0447\u043a\u0430 \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d\u0430,         $n-&gt;[$x][$y] = $j;         # \u0438 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0435 \u0442\u043e\u0447\u043a\u0438.         $o[$j] = f( $_, $y ) for ( $x - 1, $x + 1 );         $o[$j] = f( $x, $_ ) for ( $y - 1, $y + 1 );         # \u0412 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 $o[$j] \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 1 \u0442\u043e\u043b\u044c\u043a\u043e \u0435\u0441\u043b\u0438 \u0440\u044f\u0434\u043e\u043c \u0441 \u0433\u0440\u0443\u043f\u043f\u043e\u0439         # \u043a\u0430\u043c\u043d\u0435\u0439 \u043d\u0430\u0439\u0434\u0435\u043d\u0430 \u0445\u043e\u0442\u044f \u0431\u044b \u043e\u0434\u043d\u0430 \u043f\u0443\u0441\u0442\u0430\u044f \u0442\u043e\u0447\u043a\u0430.         return $o[$j];     }      # \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u043f\u043e\u0437\u0438\u0446\u0438\u0438 \u0434\u043e\u0441\u043a\u0438.     sub p {         # \u041f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u043f\u043e \u0432\u0441\u0435\u043c \u0442\u043e\u0447\u043a\u0430\u043c.         for $x ( 0 .. 10 ) {             for $y ( 0 .. 10 ) {                 # \u041f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c \u0442\u043e\u0447\u043a\u0443, \u0435\u0441\u043b\u0438 \u043d\u0430 \u043d\u0435\u0439 \u0441\u0442\u043e\u0438\u0442 \u0431\u0435\u043b\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c                 # \u0438 \u0442\u043e\u0447\u043a\u0430 \u0435\u0449\u0451 \u043d\u0435 \u0431\u044b\u043b\u0430 \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d\u0430.                 f( $x, $y, $j++ ) if $a-&gt;[$x][$y] eq 'w' && !$n-&gt;[$x][$y];             }         }         # \u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u043d\u044b\u0445 \u043f\u043e\u0441\u043b\u0435 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0434\u0432\u043e\u0435\u043a         # (\u0442. \u0435. \u0447\u0451\u0440\u043d\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439 \u0438 \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u044b\u0445 \u0431\u0435\u043b\u044b\u0445).         return grep { $_ == 2 } @o;     }      my $t = p;                           # \u0418\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c.     for $x ( 0 .. 10 ) {                 # \u041f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u0432\u0441\u0435 \u0442\u043e\u0447\u043a\u0438.         for $y ( 0 .. 10 ) {             next if $a-&gt;[$x][$y] ne ' '; # \u041f\u0440\u043e\u043f\u0443\u0441\u043a\u0430\u0435\u043c, \u0435\u0441\u043b\u0438 \u0442\u043e\u0447\u043a\u0430 \u043d\u0435 \u043f\u0443\u0441\u0442\u0430.             $a-&gt;[$x][$y] = 'b';          # \u0423\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0432 \u0442\u043e\u0447\u043a\u0443 \u0447\u0451\u0440\u043d\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c.             @o = ();                     # \u041e\u0431\u043d\u0443\u043b\u044f\u0435\u043c \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u044b.             $n = [];                     # \u041e\u0431\u043d\u0443\u043b\u044f\u0435\u043c \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044e \u043e \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d\u043d\u044b\u0445 \u0442\u043e\u0447\u043a\u0430\u0445.             print &quot;$x $y\\n&quot; if $t &lt; p;   # \u0412\u044b\u0432\u043e\u0434\u0438\u043c \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u0442\u043e\u0447\u043a\u0438, \u0435\u0441\u043b\u0438 \u043f\u043e\u0441\u043b\u0435                                          # \u0435\u0451 \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u0441\u0442\u0430\u043b\u043e \u0431\u043e\u043b\u044c\u0448\u0435 \u0434\u0432\u043e\u0435\u043a                                          # (\u0442. \u0435. \u0431\u044b\u043b\u0438 \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u044b \u043d\u043e\u0432\u044b\u0435 \u043a\u0430\u043c\u043d\u0438).             $a-&gt;[$x][$y] = ' ';          # \u0423\u0431\u0438\u0440\u0430\u0435\u043c \u043f\u043e\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u043d\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c.         }     } } <\/code><\/pre>\n<\/div>\n<\/div>\n<p>  <\/p>\n<h4>\u0412\u043d\u0435\u043a\u043e\u043d\u043a\u0443\u0440\u0441\u043d\u044b\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u044f<\/h4>\n<p>  \u0411\u044b\u043b\u043e \u0431\u044b \u0441\u0442\u0440\u0430\u043d\u043d\u043e \u0443\u0441\u0442\u0440\u0430\u0438\u0432\u0430\u0442\u044c \u043a\u043e\u043d\u043a\u0443\u0440\u0441 \u0438 \u043d\u0435 \u0438\u043c\u0435\u0442\u044c \u0440\u0435\u0448\u0435\u043d\u0438\u044f \u043a\u043e\u043d\u043a\u0443\u0440\u0441\u043d\u043e\u0439 \u0437\u0430\u0434\u0430\u0447\u0438. \u0422\u0430\u043a \u0447\u0442\u043e \u0432\u043e\u0442 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u043e\u0442 \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0442\u043e\u0440\u0430, \u0442\u043e \u0435\u0441\u0442\u044c \u043c\u0435\u043d\u044f:<\/p>\n<h5>192 \u0441\u0438\u043c\u0432\u043e\u043b\u0430 \u2014 \u0422\u0438\u043c\u0443\u0440 \u041d\u043e\u0437\u0430\u0434\u0437\u0435<\/h5>\n<p>  \u041f\u0440\u044f\u043c\u043e\u043b\u0438\u043d\u0435\u0439\u043d\u043e\u0435 \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0432\u043d\u043e\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u0435. \u041d\u0435\u043f\u043b\u043e\u0445\u043e\u0439 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0434\u043e\u0441\u0442\u0438\u0433\u043d\u0443\u0442 \u0437\u0430 \u0441\u0447\u0451\u0442 \u043f\u043b\u043e\u0442\u043d\u043e\u0439 \u043c\u0438\u043d\u0438\u043c\u0438\u0437\u0430\u0446\u0438\u0438 \u0438 \u0438\u0437\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u043e\u0442 \u0432\u0441\u0435\u0433\u043e \u043b\u0438\u0448\u043d\u0435\u0433\u043e, \u044d\u043a\u043e\u043d\u043e\u043c\u0438\u0438 \u043d\u0430 \u0440\u0430\u0437\u0431\u043e\u0440\u0435 \u0432\u0445\u043e\u0434\u043d\u044b\u0445 \u0434\u0430\u043d\u043d\u044b\u0445 \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0444\u043b\u0430\u0433\u043e\u0432 \u0438 \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u044d\u0444\u0444\u0435\u043a\u0442\u0438\u0432\u043d\u043e\u043c\u0443 \u0442\u0440\u044e\u043a\u0443 \u0434\u043b\u044f \u043f\u0435\u0440\u0435\u0432\u043e\u0434\u0430 \u043f\u043e\u0437\u0438\u0446\u0438\u0438 \u0442\u043e\u0447\u043a\u0438 \u0432 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0440\u0435\u0433\u044d\u043a\u0441\u043f\u0430 \u0438 \u0441\u043f\u0435\u0446\u0438\u0430\u043b\u044c\u043d\u044b\u0445 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u044b\u0445.<\/p>\n<pre><code class=\"perl\">#!perl -ln0aF\/\/ sub c{my$s=pop;$s=~\/-|9\/||$g[$s]eq'b'||$g[$s]=~\/w\/*!grep{$g[$s]='b';!c($s+$_)}1,-1,10,-10}map{@g=@F;$g[$_]='b';\/\\d$\/,print$`+1,$&quot;,$&+1if$F[$_]=~\/ \/*grep{$g[$_]eq'w'&&c$_}0..$#g}0..$#F <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl -ln0aF\/\/ # \u0410\u043a\u0442\u0438\u0432\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0444\u043b\u0430\u0433\u0438: # -n \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442 \u00abwhile () { &hellip; }\u00bb \u0432\u043e\u043a\u0440\u0443\u0433 \u043a\u043e\u0434\u0430; # -0 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u0441\u0447\u0438\u0442\u0430\u0442\u044c \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0446\u0435\u043b\u0438\u043a\u043e\u043c, \u043d\u0435 \u0440\u0430\u0437\u0431\u0438\u0432\u0430\u044f \u043d\u0430 \u0441\u0442\u0440\u043e\u043a\u0438; # -a \u0432\u043a\u043b\u044e\u0447\u0430\u0435\u0442 \u0430\u0432\u0442\u043e\u0441\u043f\u043b\u0438\u0442, \u0440\u0430\u0437\u0431\u0438\u0432\u0430\u044f \u0432\u0445\u043e\u0434\u043d\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443 \u0438 \u043f\u043e\u043c\u0435\u0449\u0430\u044f \u0432 @F; # -F\/\/ \u0437\u0430\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 -a \u0440\u0430\u0437\u0431\u0438\u0432\u0430\u0442\u044c \u0441\u0442\u0440\u043e\u043a\u0443 \u043f\u043e\u0441\u0438\u043c\u0432\u043e\u043b\u044c\u043d\u043e; # -l \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442 \u043f\u0435\u0440\u0435\u0432\u043e\u0434 \u0441\u0442\u0440\u043e\u043a\u0438 \u0432 print.  # \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u00ab\u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u043e\u0441\u0442\u0438\u00bb \u0442\u043e\u0447\u043a\u0438 sub c {     my $s = pop;     # \u0421\u0447\u0438\u0442\u0430\u0435\u043c \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u043e\u0439, \u0435\u0441\u043b\u0438     # \u043f\u043e\u0437\u0438\u0446\u0438\u044f \u0432\u044b\u0445\u043e\u0434\u0438\u0442 \u0437\u0430 \u0433\u0440\u0430\u043d\u0438\u0446\u044b \u043f\u043e\u043b\u044f (\u043e\u0442\u0440\u0438\u0446\u0430\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u0438\u043b\u0438 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0434\u0435\u0432\u044f\u0442\u043a\u0443),     $s =~ \/-|9\/       # \u0438\u043b\u0438 \u0442\u043e\u0447\u043a\u0430 \u0437\u0430\u043d\u044f\u0442\u0430 \u0447\u0451\u0440\u043d\u044b\u043c \u043a\u0430\u043c\u043d\u0435\u043c,       || $g[$s] eq 'b'       # \u0438\u043b\u0438 \u0442\u043e\u0447\u043a\u0430 \u0437\u0430\u043d\u044f\u0442\u0430 \u0431\u0435\u043b\u044b\u043c \u043a\u0430\u043c\u043d\u0435\u043c \u0438 \u043d\u0435\u0442 \u043d\u0435\u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u044b\u0445 \u0441\u043e\u0441\u0435\u0434\u0435\u0439.       || $g[$s] =~ \/w\/ * !grep { $g[$s] = 'b'; !c( $s + $_ ) } 1, -1, 10, -10; } # \u041f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u043f\u043e \u0432\u0441\u0435\u043c \u043a\u043b\u0435\u0442\u043a\u0430\u043c \u0434\u043e\u0441\u043a\u0438. map {     # \u041a\u043e\u043f\u0438\u0440\u0443\u0435\u043c \u0434\u043e\u0441\u043a\u0443.     @g = @F;     # \u0423\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0447\u0451\u0440\u043d\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c \u0432 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c\u0443\u044e \u043f\u043e\u0437\u0438\u0446\u0438\u044e.     $g[$_] = 'b';     # \u0412\u044b\u0432\u043e\u0434\u0438\u043c, \u0435\u0441\u043b\u0438 \u0432 \u0442\u043e\u0447\u043a\u0435 \u0431\u044b\u043b \u043f\u0440\u043e\u0431\u0435\u043b, \u0438 \u043f\u043e\u0441\u043b\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0438 \u043d\u0430 \u043d\u0435\u0451 \u0447\u0451\u0440\u043d\u043e\u0433\u043e \u043a\u0430\u043c\u043d\u044f     # \u043d\u0430 \u0434\u043e\u0441\u043a\u0435 \u043f\u043e\u044f\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u044b\u0435 \u0431\u0435\u043b\u044b\u0435 \u043a\u0430\u043c\u043d\u0438.     \/\\d$\/, print $`+ 1, $&quot;, $& + 1       if $F[$_] =~ \/ \/ * grep { $g[$_] eq 'w' && c $_}           0 .. $#g   } 0 .. $#F <\/code><\/pre>\n<\/div>\n<\/div>\n<p>  \u041d\u0435\u0441\u043c\u043e\u0442\u0440\u044f \u043d\u0430 \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0438\u0447\u0435\u0441\u043a\u0443\u044e \u043f\u0440\u043e\u0441\u0442\u043e\u0442\u0443 \u0440\u0435\u0448\u0435\u043d\u0438\u044f, \u043d\u0430 \u0443\u0434\u0438\u0432\u043b\u0435\u043d\u0438\u0435 \u043c\u043d\u043e\u0433\u043e \u043b\u0438\u0448\u043d\u0435\u0433\u043e \u043c\u043e\u0436\u043d\u043e \u0443\u0434\u0430\u043b\u0438\u0442\u044c \u0438\u0437 \u043a\u043e\u0434\u0430, \u0435\u0441\u043b\u0438 \u0441\u043a\u043e\u043d\u0446\u0435\u043d\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u043d\u0430 \u0441\u0443\u0442\u0438 \u0437\u0430\u0434\u0430\u0447\u0438, \u0430 \u043d\u0435 \u043f\u043b\u043e\u0434\u0438\u0442\u044c \u043d\u043e\u0432\u044b\u0435 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u044b\u0435 \u0438 \u0434\u0443\u0431\u043b\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043a\u0443\u0441\u043a\u0438 \u043a\u043e\u0434\u0430 \u0449\u0435\u0434\u0440\u043e\u0439 \u0440\u0443\u043a\u043e\u0439, \u043a\u0430\u043a \u043c\u044b \u044d\u0442\u043e \u0437\u0430\u0447\u0430\u0441\u0442\u0443\u044e \u0434\u0435\u043b\u0430\u0435\u043c. \u0422\u0430\u043a \u0447\u0442\u043e \u0413\u043e\u043b\u044c\u0444 \u0437\u0430\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u0441\u043e\u0441\u0440\u0435\u0434\u043e\u0442\u043e\u0447\u0438\u0442\u044c\u0441\u044f \u043d\u0435 \u043f\u0440\u043e\u0441\u0442\u043e \u043d\u0430 \u0443\u043c\u0435\u043d\u044c\u0448\u0435\u043d\u0438\u0438 \u0440\u0430\u0437\u043c\u0435\u0440\u0430 \u043a\u043e\u0434\u0430, \u043d\u043e \u0438 \u043d\u0430 \u0431\u043e\u043b\u0435\u0435 \u0433\u043b\u0443\u0431\u043e\u043a\u043e\u043c \u0438 \u043e\u0447\u0438\u0449\u0435\u043d\u043d\u043e\u043c \u043e\u0442 \u0432\u0441\u0435\u0433\u043e \u043d\u0430\u043d\u043e\u0441\u043d\u043e\u0433\u043e \u043f\u043e\u043d\u0438\u043c\u0430\u043d\u0438\u0438 \u0437\u0430\u0434\u0430\u0447\u0438 \u0438 \u0435\u0451 \u0440\u0435\u0448\u0435\u043d\u0438\u044f.<\/p>\n<p>  \u0424\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438, \u0437\u0430 \u0432\u0440\u0435\u043c\u044f \u043a\u043e\u043d\u043a\u0443\u0440\u0441\u0430 \u044d\u0442\u043e\u0442 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 (192 \u0441\u0438\u043c\u0432\u043e\u043b\u0430) \u043f\u043e\u0431\u0438\u0442 \u043d\u0435 \u0431\u044b\u043b. \u041e\u0434\u043d\u0430\u043a\u043e, \u043d\u0430 \u044d\u0442\u043e\u043c \u0432\u0441\u0451 \u043d\u0435 \u0437\u0430\u043a\u043e\u043d\u0447\u0438\u043b\u043e\u0441\u044c, \u043d\u0430\u0441\u0442\u0430\u043b\u043e \u0432\u0440\u0435\u043c\u044f \u043a\u043e\u043b\u043b\u0430\u0431\u043e\u0440\u0430\u0446\u0438\u0439 \u0438 \u043e\u0431\u043c\u0435\u043d\u0430 \u043e\u043f\u044b\u0442\u043e\u043c.<\/p>\n<h5>197 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u2014 \u0421\u0435\u0440\u0433\u0435\u0439 \u041c\u043e\u0436\u0430\u0439\u0441\u043a\u0438\u0439 (\u043d\u0435 \u043f\u0440\u043e\u0445\u043e\u0434\u0438\u0442 \u0434\u043e\u043f\u043e\u043b\u043d\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0439 \u0442\u0435\u0441\u0442\u043a\u0435\u0439\u0441)<\/h5>\n<p>  \u0421\u0435\u0440\u0433\u0435\u0439 \u0443\u043b\u0443\u0447\u0448\u0438\u043b \u0441\u0432\u043e\u0451 \u0440\u0435\u0448\u0435\u043d\u0438\u0435, \u0438\u0437\u0431\u0430\u0432\u0438\u0432\u0448\u0438\u0441\u044c \u043e\u0442 \u043f\u0440\u043e\u043c\u0435\u0436\u0443\u0442\u043e\u0447\u043d\u043e\u0439 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 \u0438 \u043f\u0440\u0438\u0434\u0443\u043c\u0430\u0432 \u043d\u043e\u0432\u044b\u0439 \u0432\u0430\u0440\u0438\u0430\u043d\u0442 \u0434\u043b\u044f \u0432\u044b\u0432\u043e\u0434\u0430 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442.<\/p>\n<pre><code class=\"perl\">#!perl @g=(d..n,map{\/.\/g,''}&lt;&gt;);sub n{my($i,$r)=@_;map{do{$_=1and$r=n($i+1)+n($i-1)+n($i+10)+n($i-10)==1if\/w\/;$_=$r=1and$0=$i if\/ \/}if\/\\D\/}$g[$i];$r}map{printf&quot;%s %s\\n&quot;,$0=~\/.\/g if$g[$_]eq'w'&&n($_)}0..99 <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl @g = ( d .. n, map { \/.\/g, '' } &lt;&gt; );  # \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u0442\u0435\u043f\u0435\u0440\u044c \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u0442 \u043f\u043e\u0437\u0438\u0446\u0438\u044e \u0442\u043e\u0447\u043a\u0438 \u0432\u043c\u0435\u0441\u0442\u043e \u043f\u0430\u0440\u044b \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442. sub n {     my ( $i, $r ) = @_;     # \u0412\u044b\u0447\u0438\u0449\u0435\u043d \u0445\u0435\u0448 \u0434\u043b\u044f \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0438 \u043e \u043f\u0440\u043e\u0432\u0435\u0440\u0435\u043d\u043d\u044b\u0445 \u0442\u043e\u0447\u043a\u0430\u0445,     # \u0442\u0435\u043f\u0435\u0440\u044c \u044d\u0442\u043e \u043f\u043e\u043c\u0435\u0447\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u044f\u043c\u043e \u043d\u0430 \u0434\u043e\u0441\u043a\u0435.     map {         do {             $_ = 1 and $r = n( $i + 1 ) + n( $i - 1 ) + n( $i + 10 ) + n( $i - 10 ) == 1                 if \/w\/;             $_ = $r = 1 and $0 = $i                 if \/ \/           } if \/\\D\/     } $g[$i];     $r } map {     # \u041d\u0430\u0439\u0434\u0435\u043d\u043e \u043d\u043e\u0432\u043e\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0434\u043b\u044f \u043f\u0440\u0435\u043e\u0431\u0440\u0430\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u043f\u043e\u0437\u0438\u0446\u0438\u0438 \u0442\u043e\u0447\u043a\u0438 \u0432 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b     printf &quot;%s %s\\n&quot;, $0 =~ \/.\/g         if $g[$_] eq 'w' && n($_) } 0 .. 99 <\/code><\/pre>\n<\/div>\n<\/div>\n<p>  <\/p>\n<h5>189 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u2014 \u0422\u0438\u043c\u0443\u0440 \u041d\u043e\u0437\u0430\u0434\u0437\u0435<\/h5>\n<p>  \u041c\u043e\u0451 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0441\u043e\u043a\u0440\u0430\u0442\u0438\u043b\u043e\u0441\u044c \u043d\u0430 \u043f\u0430\u0440\u0443 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u0431\u043b\u0430\u0433\u043e\u0434\u0430\u0440\u044f \u0437\u0430\u043c\u0435\u0447\u0430\u043d\u0438\u044f\u043c \u0411\u0440\u0430\u0439\u0430\u043d\u0430: \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u0435 \u0440\u0430\u0437\u043c\u0435\u0440\u0430 \u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432 \u0447\u0435\u0440\u0435\u0437 $# \u0431\u044b\u043b\u043e \u0437\u0430\u043c\u0435\u043d\u0435\u043d\u043e \u043d\u0430 \u0447\u0438\u0441\u043b\u043e\u0432\u0443\u044e \u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u0443 89, \u0430 \u0440\u0435\u0433\u0443\u043b\u044f\u0440\u043d\u043e\u0435 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u0435 <code>\/\\d$\/<\/code> \u2014 \u043d\u0430 <code>\/.$\/<\/code><\/p>\n<pre><code class=\"perl\">#!perl -ln0aF\/\/ sub c{my$s=pop;$s=~\/-|9\/||$g[$s]eq'b'||$g[$s]=~\/w\/*!grep{$g[$s]='b';!c($s+$_)}1,-1,10,-10}map{@g=@F;$g[$_]='b';\/.$\/,print$`+1,$&quot;,$&+1if$F[$_]=~\/ \/*grep{$g[$_]eq'w'&&c$_}0..89}0..89 <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl -ln0aF\/\/ # \u0410\u043a\u0442\u0438\u0432\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0444\u043b\u0430\u0433\u0438: # -n \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442 \u00abwhile () { &hellip; }\u00bb \u0432\u043e\u043a\u0440\u0443\u0433 \u043a\u043e\u0434\u0430; # -0 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u0441\u0447\u0438\u0442\u0430\u0442\u044c \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0446\u0435\u043b\u0438\u043a\u043e\u043c, \u043d\u0435 \u0440\u0430\u0437\u0431\u0438\u0432\u0430\u044f \u043d\u0430 \u0441\u0442\u0440\u043e\u043a\u0438; # -a \u0432\u043a\u043b\u044e\u0447\u0430\u0435\u0442 \u0430\u0432\u0442\u043e\u0441\u043f\u043b\u0438\u0442, \u0440\u0430\u0437\u0431\u0438\u0432\u0430\u044f \u0432\u0445\u043e\u0434\u043d\u0443\u044e \u0441\u0442\u0440\u043e\u043a\u0443 \u0438 \u043f\u043e\u043c\u0435\u0449\u0430\u044f \u0432 @F; # -F\/\/ \u0437\u0430\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 -a \u0440\u0430\u0437\u0431\u0438\u0432\u0430\u0442\u044c \u0441\u0442\u0440\u043e\u043a\u0443 \u043f\u043e\u0441\u0438\u043c\u0432\u043e\u043b\u044c\u043d\u043e; # -l \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u0442 \u043f\u0435\u0440\u0435\u0432\u043e\u0434 \u0441\u0442\u0440\u043e\u043a\u0438 \u0432 print.  # \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u043f\u0440\u043e\u0432\u0435\u0440\u043a\u0438 \u00ab\u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u043e\u0441\u0442\u0438\u00bb \u0442\u043e\u0447\u043a\u0438 sub c {     my $s = pop;     # \u0421\u0447\u0438\u0442\u0430\u0435\u043c \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u043e\u0439, \u0435\u0441\u043b\u0438     # \u043f\u043e\u0437\u0438\u0446\u0438\u044f \u0432\u044b\u0445\u043e\u0434\u0438\u0442 \u0437\u0430 \u0433\u0440\u0430\u043d\u0438\u0446\u044b \u043f\u043e\u043b\u044f (\u043e\u0442\u0440\u0438\u0446\u0430\u0442\u0435\u043b\u044c\u043d\u0430\u044f \u0438\u043b\u0438 \u0441\u043e\u0434\u0435\u0440\u0436\u0438\u0442 \u0434\u0435\u0432\u044f\u0442\u043a\u0443),     $s =~ \/-|9\/       # \u0438\u043b\u0438 \u0442\u043e\u0447\u043a\u0430 \u0437\u0430\u043d\u044f\u0442\u0430 \u0447\u0451\u0440\u043d\u044b\u043c \u043a\u0430\u043c\u043d\u0435\u043c,       || $g[$s] eq 'b'       # \u0438\u043b\u0438 \u0442\u043e\u0447\u043a\u0430 \u0437\u0430\u043d\u044f\u0442\u0430 \u0431\u0435\u043b\u044b\u043c \u043a\u0430\u043c\u043d\u0435\u043c \u0438 \u043d\u0435\u0442 \u043d\u0435\u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u044b\u0445 \u0441\u043e\u0441\u0435\u0434\u0435\u0439.       || $g[$s] =~ \/w\/ * !grep { $g[$s] = 'b'; !c( $s + $_ ) } 1, -1, 10, -10; } # \u041f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u043f\u043e \u0432\u0441\u0435\u043c \u043a\u043b\u0435\u0442\u043a\u0430\u043c \u0434\u043e\u0441\u043a\u0438. map {     # \u041a\u043e\u043f\u0438\u0440\u0443\u0435\u043c \u0434\u043e\u0441\u043a\u0443.     @g = @F;     # \u0423\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u043c \u0447\u0451\u0440\u043d\u044b\u0439 \u043a\u0430\u043c\u0435\u043d\u044c \u0432 \u043f\u0440\u043e\u0432\u0435\u0440\u044f\u0435\u043c\u0443\u044e \u043f\u043e\u0437\u0438\u0446\u0438\u044e.     $g[$_] = 'b';     # \u0412\u044b\u0432\u043e\u0434\u0438\u043c, \u0435\u0441\u043b\u0438 \u0432 \u0442\u043e\u0447\u043a\u0435 \u0431\u044b\u043b \u043f\u0440\u043e\u0431\u0435\u043b, \u0438 \u043f\u043e\u0441\u043b\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0438 \u043d\u0430 \u043d\u0435\u0451 \u0447\u0451\u0440\u043d\u043e\u0433\u043e \u043a\u0430\u043c\u043d\u044f     # \u043d\u0430 \u0434\u043e\u0441\u043a\u0435 \u043f\u043e\u044f\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u044b\u0435 \u0431\u0435\u043b\u044b\u0435 \u043a\u0430\u043c\u043d\u0438.     \/.$\/, print $`+ 1, $&quot;, $& + 1       if $F[$_] =~ \/ \/ * grep { $g[$_] eq 'w' && c $_}           0 .. 89 } 0 .. 89 <\/code><\/pre>\n<\/div>\n<\/div>\n<p>  \u041f\u0440\u0438\u043d\u0446\u0438\u043f\u0438\u0430\u043b\u044c\u043d\u044b\u0445 \u0443\u043b\u0443\u0447\u0448\u0435\u043d\u0438\u0439 \u0432 \u044d\u0442\u043e\u043c \u043f\u043e\u0434\u0445\u043e\u0434\u0435 \u0443\u0436\u0435 \u0432\u0440\u044f\u0434 \u043b\u0438 \u0441\u0442\u043e\u0438\u0442 \u043e\u0436\u0438\u0434\u0430\u0442\u044c.<\/p>\n<p>  \u0410 \u0434\u0430\u043b\u044c\u0448\u0435 \u043c\u044b \u0441\u0442\u0430\u043b\u0438 \u0441\u0432\u0438\u0434\u0435\u0442\u0435\u043b\u044f\u043c\u0438 \u0431\u0438\u0442\u0432\u044b \u0442\u0438\u0442\u0430\u043d\u043e\u0432 \u043d\u0430 Perlmonks.<\/p>\n<h5>175 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u2014 Brian McCauley<\/h5>\n<p>  \u0411\u0440\u0430\u0439\u0430\u043d \u0441\u0435\u0440\u044c\u0451\u0437\u043d\u043e \u0443\u043b\u0443\u0447\u0448\u0438\u043b \u0441\u0432\u043e\u0439 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442, \u0432\u043e\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0432\u0448\u0438\u0441\u044c \u0441\u043e\u0432\u0435\u0442\u043e\u043c \u0421\u0435\u0440\u0433\u0435\u044f \u0438 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u043c\u0438 \u0438\u0434\u0435\u044f\u043c\u0438 \u0438\u0437 \u043c\u043e\u0435\u0433\u043e \u0440\u0435\u0448\u0435\u043d\u0438\u044f.<\/p>\n<pre><code class=\"perl\">#!perl -ln0 map{$i=$-[0]+11;{map{1while s\/w((?&lt;=W.{10})|(?&lt;=W.)|(?=.{9}W|W))\/W\/s;\/W((?&lt;= .{10})|(?&lt;= .)|(?=.{9} | ))\/s||$i=~\/.\/+print(&quot;$& $'&quot;)+last}&quot;$`W$'&quot;while\/w\/g}}&quot;$`x$'&quot;while\/ \/g <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl -ln0  # \u041e\u043f\u0442\u0438\u043c\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u043d\u044b \u0446\u0438\u043a\u043b\u044b, \u0432 \u0442\u043e\u043c \u0447\u0438\u0441\u043b\u0435 \u0437\u0430 \u0441\u0447\u0451\u0442 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u0444\u043b\u0430\u0433\u043e\u0432. map {     $i = $-[0] + 11; # \u0421\u043c\u0435\u0449\u0435\u043d\u0438\u0435 \u043f\u043e\u0437\u0438\u0446\u0438\u0438 \u0432\u043c\u0435\u0441\u0442\u043e \u0434\u043e\u0431\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0441\u0442\u0440\u043e\u043a\u0438.     {         map {             1 while s\/w((?&lt;=W.{10})|(?&lt;=W.)|(?=.{9}W|W))\/W\/s;             \/W((?&lt;= .{10})|(?&lt;= .)|(?=.{9} | ))\/s               || $i =~ \/.\/ +               print(&quot;$& $'&quot;) +               last           } &quot;$`W$'&quot; while \/w\/g     } } &quot;$`x$'&quot; while \/ \/g <\/code><\/pre>\n<\/div>\n<\/div>\n<h5>127 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u2014 Grimy<\/h5>\n<p>  \u041f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044c Grimy \u0441 PerlMonks \u043e\u0442\u043e\u043b\u043a\u043d\u0443\u043b\u0441\u044f \u043e\u0442 \u0438\u0434\u0435\u0438 \u0411\u0440\u0430\u0439\u0430\u043d\u0430 \u0438 \u0434\u043e\u0432\u0451\u043b \u0432\u0430\u0440\u0438\u0430\u043d\u0442 \u0441 \u0440\u0435\u0433\u044d\u043a\u0441\u043f\u0430\u043c\u0438 \u0434\u043e \u0441\u043e\u0432\u0435\u0440\u0448\u0435\u043d\u043d\u043e \u0444\u0430\u043d\u0442\u0430\u0441\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0430 \u0432 <a href=\"http:\/\/perlmonks.org\/?node_id=1050514\">127 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432<\/a>!<\/p>\n<pre><code class=\"perl\">#!perl -ln0 map{1while$,=s=$,w=g=s?'(g|(?=.g|..{9}g)|g.{9})\\K':\/g\/&gt;\/$, \/s&&map{y!.! !;print;redo}\/x\/+&quot;@+E-1&quot;or y&g&b&}&quot;$`x$'&quot;while\/ \/g <\/code><\/pre>\n<p>  <\/p>\n<div class=\"spoiler\"><b class=\"spoiler_title\">\u0410\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f<\/b><\/p>\n<div class=\"spoiler_text\">\n<pre><code class=\"perl\">#!perl -ln0  # \u041f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u0437\u0430\u043c\u0435\u043d\u044f\u0435\u043c \u043a\u0430\u0436\u0434\u044b\u0439 \u043f\u0440\u043e\u0431\u0435\u043b \u043d\u0430 \u00abx\u00bb. map {     1 while $, =         # \u041f\u043e\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u0437\u0430\u043c\u0435\u043d\u044f\u0435\u043c \u0433\u0440\u0443\u043f\u043f\u044b \u0431\u0435\u043b\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439 \u043d\u0430 g.         # (\u0418\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f $, \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u0440\u0430\u0431\u043e\u0447\u0435\u0439 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439, \u043c\u043e\u0436\u0435\u043c \u043a\u043e\u043d\u043a\u0430\u0442\u0435\u043d\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0435\u0451         # \u0432 \u0440\u0435\u0433\u0443\u043b\u044f\u0440\u043d\u043e\u0435 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0431\u0435\u0437 \u0441\u043c\u0435\u0448\u0435\u043d\u0438\u044f \u0441\u043e \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0438\u043c \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u043c.)         s=$,w=g=s         # \u0424\u043e\u0440\u043c\u0438\u0440\u0443\u0435\u043c \u0445\u0438\u0442\u0440\u043e\u0435 \u0440\u0435\u0433\u0443\u043b\u044f\u0440\u043d\u043e\u0435 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0434\u043b\u044f \u043e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0438 \u0441\u043e\u0441\u0435\u0434\u043d\u0438\u0445 \u0442\u043e\u0447\u0435\u043a.         ? '(g|(?=.g|..{9}g)|g.{9})\\K'         # \u0415\u0441\u043b\u0438 \u0437\u0430\u043c\u0435\u043d\u0451\u043d\u043d\u044b\u0445 \u0431\u0435\u043b\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439 \u0431\u043e\u043b\u044c\u0448\u0435, \u0447\u0435\u043c \u0441\u043e\u0441\u0435\u0434\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u0441 \u043d\u0438\u043c\u0438 \u043f\u0440\u043e\u0431\u0435\u043b\u043e\u0432,         # \u0442\u043e \u0435\u0441\u0442\u044c \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u044b\u0435 \u043a\u0430\u043c\u043d\u0438.         : \/g\/ &gt; \/$, \/s           && map {               # \u0412 @+ \u0438\u043c\u0435\u0435\u043c \u043f\u043e\u0437\u0438\u0446\u0438\u044e \u043a\u043e\u043d\u0446\u0430 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0435\u0433\u043e \u0441\u043e\u0432\u043f\u0430\u0434\u0435\u043d\u0438\u044f \u0432 \u0440\u0435\u0433\u044d\u043a\u0441\u043f\u0435 \/x\/,               # \u0442. \u0435. \u043f\u043e\u0437\u0438\u0446\u0438\u044e \u0442\u0435\u043a\u0443\u0449\u0435\u0439 \u043e\u0431\u0440\u0430\u0431\u0430\u0442\u044b\u0432\u0430\u0435\u043c\u043e\u0439 \u043f\u0443\u0441\u0442\u043e\u0439 \u0442\u043e\u0447\u043a\u0438.               # \u0421\u043a\u043b\u0430\u0434\u044b\u0432\u0430\u0435\u043c \u0435\u0451 \u0441 \u0435\u0434\u0438\u043d\u0438\u0446\u0435\u0439 (\/x\/) \u0438 \u043f\u0440\u0438\u0432\u043e\u0434\u0438\u043c \u0432 \u0447\u0438\u0441\u043b\u043e\u0432\u043e\u0439 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442,               # \u043f\u043e\u043b\u0443\u0447\u0430\u044f -1 \u0441\u0442\u0435\u043f\u0435\u043d\u044c (E-1). \u0417\u0430\u043c\u0435\u043d\u044f\u044f \u0432 \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0439 \u0434\u0440\u043e\u0431\u0438 \u00ab.\u00bb \u043d\u0430 \u00ab \u00bb,               # \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442\u044b \u0434\u043b\u044f \u0432\u044b\u0432\u043e\u0434\u0430.               y!.! !;               print;               redo           } \/x\/ + &quot;@+E-1&quot;           # \u0415\u0441\u043b\u0438 \u0437\u0430\u0445\u0432\u0430\u0447\u0435\u043d\u043d\u044b\u0445 \u043a\u0430\u043c\u043d\u0435\u0439 \u043d\u0435 \u043d\u0430\u0448\u043b\u0438 \u2014 \u0437\u0430\u043c\u0435\u043d\u044f\u0435\u043c \u043f\u043e\u043c\u0435\u0447\u0435\u043d\u043d\u044b\u0435 \u0431\u0435\u043b\u044b\u0435 \u043a\u0430\u043c\u043d\u0438           # \u043d\u0430 \u0447\u0451\u0440\u043d\u044b\u0435 \u0438 \u043f\u0440\u043e\u0434\u043e\u043b\u0436\u0430\u0435\u043c.           or y&g&b& } &quot;$`x$'&quot; while \/ \/g <\/code><\/pre>\n<\/div>\n<\/div>\n<p>  \u0421\u043a\u0430\u0437\u0430\u0442\u044c \u043f\u043e \u043f\u0440\u0430\u0432\u0434\u0435, \u044d\u0442\u043e \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0434\u043b\u044f \u043c\u0435\u043d\u044f \u0432\u0441\u0451 \u0435\u0449\u0451 \u0441\u043e\u0445\u0440\u0430\u043d\u044f\u0435\u0442 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u044d\u043b\u0435\u043c\u0435\u043d\u0442 \u043c\u0438\u0441\u0442\u0438\u043a\u0438, \u043d\u043e, \u043d\u0430\u0434\u0435\u044e\u0441\u044c, \u043c\u043e\u044f \u0430\u043d\u043d\u043e\u0442\u0430\u0446\u0438\u044f \u043d\u0435 \u0441\u043b\u0438\u0448\u043a\u043e\u043c \u0434\u0430\u043b\u0435\u043a\u0430 \u043e\u0442 \u043f\u0440\u0430\u0432\u0434\u044b.<\/p>\n<p>  \u0427\u0442\u043e \u0436, \u0440\u0430\u0441\u043f\u0440\u043e\u0441\u0442\u0440\u0430\u043d\u0451\u043d\u043d\u043e\u0435 \u0443\u0431\u0435\u0436\u0434\u0435\u043d\u0438\u0435 \u0432 \u043d\u0435\u043f\u043e\u0431\u0435\u0434\u0438\u043c\u043e\u0441\u0442\u0438 \u0440\u0435\u0448\u0435\u043d\u0438\u0439 \u043d\u0430 \u0440\u0435\u0433\u044d\u043a\u0441\u043f\u0430\u0445 \u043f\u043e\u043b\u043d\u043e\u0441\u0442\u044c\u044e \u0441\u0435\u0431\u044f \u043e\u043f\u0440\u0430\u0432\u0434\u0430\u043b\u043e. \u042d\u0442\u043e \u043f\u043e\u0442\u0440\u044f\u0441\u0430\u044e\u0449\u0438\u0439 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442, \u0438 \u043f\u043e\u0431\u0438\u0442\u044c \u0435\u0433\u043e \u0431\u0443\u0434\u0435\u0442 \u0442\u0440\u0443\u0434\u043d\u043e. \u041e\u0434\u043d\u0430\u043a\u043e, \u0437\u043d\u0430\u044f \u043d\u0435\u0432\u0435\u0440\u043e\u044f\u0442\u043d\u0443\u044e \u0441\u043c\u0435\u043b\u043e\u0441\u0442\u044c \u0438 \u0431\u043e\u0435\u0432\u044b\u0435 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0430 \u0445\u0430\u0431\u0440\u0430\u0436\u0438\u0442\u0435\u043b\u0435\u0439, \u043c\u044b \u043f\u0440\u0435\u0434\u043b\u0430\u0433\u0430\u0435\u043c \u043f\u043e\u043f\u0440\u043e\u0431\u043e\u0432\u0430\u0442\u044c \u0441\u0432\u043e\u0438 \u0441\u0438\u043b\u044b. \u041a\u0430\u0436\u0434\u044b\u0439, \u043a\u0442\u043e \u043f\u0440\u0435\u0434\u043b\u043e\u0436\u0438\u0442 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u043b\u0443\u0447\u0448\u0435 (\u0442. \u0435. \u043a\u043e\u0440\u043e\u0447\u0435), \u0447\u0435\u043c \u0442\u0435\u043a\u0443\u0449\u0438\u0439 \u043b\u0438\u0434\u0435\u0440 (127 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432), \u043f\u043e\u043b\u0443\u0447\u0438\u0442 \u0432 \u043f\u043e\u0434\u0430\u0440\u043e\u043a \u043e\u0442 \u043a\u043e\u043c\u043f\u0430\u043d\u0438\u0438 REG.RU \u0434\u043e\u043c\u0435\u043d \u0432 \u0437\u043e\u043d\u0430\u0445 .ru \u0438\u043b\u0438.\u0440\u0444 \u0438 VPS \u043f\u043e \u043b\u044e\u0431\u043e\u043c\u0443 \u0442\u0430\u0440\u0438\u0444\u0443 \u043d\u0430 \u0441\u0440\u043e\u043a \u0434\u043e 6 \u043c\u0435\u0441\u044f\u0446\u0435\u0432! \u0420\u0435\u0448\u0435\u043d\u0438\u044f \u043f\u0440\u0438\u043d\u0438\u043c\u0430\u044e\u0442\u0441\u044f \u043d\u0430 <a href=\"mailto:contest@reg.ru\">contest@reg.ru<\/a>. \u041f\u0440\u0438\u043d\u0438\u043c\u0430\u044e\u0442\u0441\u044f \u0442\u043e\u043b\u044c\u043a\u043e \u0440\u0435\u0448\u0435\u043d\u0438\u044f, \u0443\u0441\u043f\u0435\u0448\u043d\u043e \u043f\u0440\u043e\u0445\u043e\u0434\u044f\u0449\u0438\u0435 <a href=\"http:\/\/contest.reg.ru\/perlgolf.tar.gz\">\u043e\u0431\u043d\u043e\u0432\u043b\u0451\u043d\u043d\u044b\u0439 \u043d\u0430\u0431\u043e\u0440 \u0442\u0435\u0441\u0442\u043e\u0432<\/a>. \u0414\u0435\u0440\u0437\u0430\u0439\u0442\u0435!    \t<\/p>\n<div class=\"clear\"><\/div>\n<\/p><\/div>\n<p> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"http:\/\/habrahabr.ru\/company\/regru\/blog\/191704\/\"> http:\/\/habrahabr.ru\/company\/regru\/blog\/191704\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<div class=\"content html_format\">   \t<img decoding=\"async\" src=\"http:\/\/habrastorage.org\/storage3\/34d\/80b\/07e\/34d80b07e6ba9cfd71040493e444faa8.png\"\/><\/p>\n<p>  \u0421 12-\u0433\u043e \u043f\u043e 14-\u0435 \u0430\u0432\u0433\u0443\u0441\u0442\u0430 \u0432 \u041a\u0438\u0435\u0432\u0435 \u043f\u0440\u043e\u0448\u043b\u0430 \u043e\u0447\u0435\u0440\u0435\u0434\u043d\u0430\u044f \u043a\u043e\u043d\u0444\u0435\u0440\u0435\u043d\u0446\u0438\u044f perl-\u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u043e\u0432 YAPC::Europe 2013. \u0420\u0430\u0441\u0448\u0438\u0440\u044f\u044e\u0449\u0438\u0435 \u0441\u043e\u0437\u043d\u0430\u043d\u0438\u0435 \u0434\u043e\u043a\u043b\u0430\u0434\u044b, \u0438\u043d\u0441\u0430\u0439\u0434\u0435\u0440\u0441\u043a\u0430\u044f \u0438\u043d\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u044f \u043e\u0442 \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0447\u0438\u043a\u043e\u0432 Perl 5 \u0438 Perl 6, \u0436\u0438\u0432\u044b\u0435 \u043b\u0435\u0433\u0435\u043d\u0434\u044b \u0438\u0437 \u043c\u0438\u0440\u0430 Perl (\u0432\u043a\u043b\u044e\u0447\u0430\u044f \u0441\u0430\u043c\u043e\u0433\u043e \u041b\u0430\u0440\u0440\u0438 \u0423\u043e\u043b\u043b\u0430!), \u0440\u0435\u0447\u043d\u043e\u0439 \u043a\u0440\u0443\u0438\u0437 \u0438 \u0437\u0430\u043c\u0435\u0447\u0430\u0442\u0435\u043b\u044c\u043d\u043e\u0435 \u043e\u0431\u0449\u0435\u043d\u0438\u0435 \u0432 <s>\u043f\u0430\u0431\u0430\u0445<\/s> \u043a\u0443\u043b\u0443\u0430\u0440\u0430\u0445 \u2014 \u0432\u0441\u0451 \u0431\u044b\u043b\u043e. \u041c\u0435\u0440\u043e\u043f\u0440\u0438\u044f\u0442\u0438\u0435 \u0437\u0430\u0441\u043b\u0443\u0436\u0438\u0432\u0430\u0435\u0442 \u0441\u0430\u043c\u043e\u0439 \u0432\u044b\u0441\u043e\u043a\u043e\u0439 \u043e\u0446\u0435\u043d\u043a\u0438, \u0430 \u043e\u0440\u0433\u0430\u043d\u0438\u0437\u0430\u0442\u043e\u0440\u044b \u0438 \u0434\u043e\u043a\u043b\u0430\u0434\u0447\u0438\u043a\u0438 (\u0434\u0430 \u0438 \u0432\u0441\u0435 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u044b\u0435 \u0443\u0447\u0430\u0441\u0442\u043d\u0438\u043a\u0438 \u043a\u043e\u043d\u0444\u0435\u0440\u0435\u043d\u0446\u0438\u0438) \u2014 \u0432\u0441\u044f\u0447\u0435\u0441\u043a\u0438\u0445 \u043f\u043e\u0445\u0432\u0430\u043b \u0438 \u0431\u043b\u0430\u0433\u043e\u0434\u0430\u0440\u043d\u043e\u0441\u0442\u0435\u0439.<\/p>\n<p>  \u041e\u0434\u043d\u0430\u043a\u043e, \u043e\u0431\u0449\u0435\u0438\u0437\u0432\u0435\u0441\u0442\u043d\u043e, \u0447\u0442\u043e \u043a\u0440\u043e\u043c\u0435 \u043e\u0431\u044b\u0447\u043d\u044b\u0445 \u0447\u0435\u043b\u043e\u0432\u0435\u0447\u0435\u0441\u043a\u0438\u0445 \u0440\u0430\u0434\u043e\u0441\u0442\u0435\u0439 perl-\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u044b \u0441\u043a\u043b\u043e\u043d\u043d\u044b \u043a \u0440\u0430\u0437\u0432\u043b\u0435\u0447\u0435\u043d\u0438\u044f\u043c\u0438 \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u044b\u043c, \u043d\u043e\u0440\u043c\u0430\u043b\u044c\u043d\u044b\u043c \u00ab\u0445\u043e\u043c\u043e \u0441\u0430\u043f\u0438\u0435\u043d\u0441\u0430\u043c\u00bb \u043d\u0435 \u0432\u0441\u0435\u0433\u0434\u0430 \u043f\u043e\u043d\u044f\u0442\u043d\u044b\u043c \u0438 \u0431\u043b\u0438\u0437\u043a\u0438\u043c.<\/p>\n<p>  \u0418\u0442\u0430\u043a, \u043a\u0430\u043a \u043c\u044b \u0443\u0441\u0442\u0440\u043e\u0438\u043b\u0438 Perl Golf \u043d\u0430 YAPC, \u0438 \u0447\u0442\u043e \u0438\u0437 \u044d\u0442\u043e\u0433\u043e \u0432\u044b\u0448\u043b\u043e.  <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-191704","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/191704","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=191704"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/191704\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=191704"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=191704"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=191704"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}