{"id":190184,"date":"2013-08-15T15:12:06","date_gmt":"2013-08-15T11:12:06","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=190184"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=190184","title":{"rendered":"<span class=\"post_title\">\u041d\u0435 \u043f\u0438\u0448\u0435\u043c quicksort \u043d\u0430 Common Lisp<\/span>"},"content":{"rendered":"<div class=\"content html_format\">   \t\u041f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u043d\u0435\u0437\u0430\u0447\u0435\u043c. \u0412\u043e-\u043f\u0435\u0440\u0432\u044b\u0445, \u0432\u0441\u0435 \u0443\u0436\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043e \u0438 \u043d\u0435 \u0440\u0430\u0437. \u0412\u043e-\u0432\u0442\u043e\u0440\u044b\u0445, \u0448\u0442\u0430\u0442\u043d\u044b\u0439 sort \u0432 \u043e\u0431\u0449\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043d\u0435 \u0445\u0443\u0436\u0435. \u0412-\u0442\u0440\u0435\u0442\u044c\u0438\u0445, \u0432 \u043c\u043e\u0434\u0443 \u0432\u0445\u043e\u0434\u044f\u0442 \u0437\u0430\u0434\u0430\u0447\u043a\u0438, \u0442\u0440\u0435\u0431\u0443\u044e\u0449\u0438\u0435 \u043d\u0435 \u0441\u0442\u043e\u043b\u044c\u043a\u043e \u0443\u043c\u0435\u043d\u0438\u044f \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u043e\u0439, \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043e\u0431\u0445\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u0432\u043e\u043e\u0431\u0449\u0435 \u0431\u0435\u0437 \u043d\u0435\u0435. \u0412\u0437\u044f\u0442\u044c, \u043a \u043f\u0440\u0438\u043c\u0435\u0440\u0443, \u0432\u043e\u0442 \u044d\u0442\u0443 \u0441 \u0441\u043e\u0431\u0435\u0441\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f \u0432 Microsoft.<\/p>\n<h5>1. \u0410\u043d\u0430\u0433\u0440\u0430\u043c\u043c\u044b<\/h5>\n<p>  \u0418\u043c\u0435\u0435\u0442\u0441\u044f \u043c\u0430\u0441\u0441\u0438\u0432 \u0447\u0435\u043b\u043e\u0432\u0435\u0447\u0435\u0441\u043a\u0438\u0445 \u0441\u043b\u043e\u0432. \u041d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0441\u043b\u043e\u0432\u0430 \u043c\u043e\u0433\u0443\u0442 \u044f\u0432\u043b\u044f\u0442\u044c\u0441\u044f \u0430\u043d\u0430\u0433\u0440\u0430\u043c\u043c\u0430\u043c\u0438 \u043f\u043e \u043e\u0442\u043d\u043e\u0448\u0435\u043d\u0438\u044e \u0434\u0440\u0443\u0433 \u0443 \u0434\u0440\u0443\u0433\u0443. \u041d\u0430\u0434\u043e \u043d\u0430\u0439\u0442\u0438 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0442\u0430\u043a\u0438\u0445 \u0441\u043b\u043e\u0432, \u043f\u0440\u0438\u0447\u0435\u043c \u0441\u043b\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0430 \u0434\u043e\u043b\u0436\u043d\u0430 \u0431\u044b\u0442\u044c \u043b\u0438\u043d\u0435\u0439\u043d\u043e\u0439.<\/p>\n<p>  \u041e\u0447\u0435\u0432\u0438\u0434\u043d\u043e\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u2014 \u043e\u0442\u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0441\u0430\u043c\u0438 \u0441\u043b\u043e\u0432\u0430, \u043f\u043e\u0442\u043e\u043c \u043e\u0442\u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043c\u0430\u0441\u0441\u0438\u0432, \u043f\u0440\u043e\u0439\u0442\u0438\u0441\u044c \u043f\u043e \u043d\u0435\u043c\u0443 \u0438 \u043f\u043e\u0441\u0447\u0438\u0442\u0430\u0442\u044c \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u043b\u043e\u0432 \u0441 \u0441\u0430\u043c\u043e\u043f\u043e\u0434\u043e\u0431\u043d\u044b\u043c\u0438 \u0441\u043e\u0441\u0435\u0434\u044f\u043c\u0438.<\/p>\n<p>  \u041d\u0430 CL \u044d\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0442\u0430\u043a:<\/p>\n<pre><code class=\"lisp\">(defvar *words* (list &quot;thore&quot; &quot;ganamar&quot; &quot;notanagram&quot; &quot;anagram&quot; &quot;other&quot;))  ((lambda (words)      (loop for (a b c) in                  (mapcar #'list words (append '(&quot;&quot;) words) (append '(&quot;&quot; &quot;&quot;) words))         count (or (equal a b) (equal b c))))     (sort (mapcar (lambda (one-word) (sort one-word #'char-lessp)) *words*) #'string-lessp)) <\/code><\/pre>\n<p>  <a name=\"habracut\"><\/a><br \/>  \u0421\u0440\u0430\u0437\u0443 \u0441\u0442\u043e\u0438\u0442 \u043e\u0433\u043e\u0432\u043e\u0440\u0438\u0442\u044c, \u0447\u0442\u043e sort \u0432 CL \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f destructive, \u0442\u043e \u0435\u0441\u0442\u044c \u043c\u043e\u0436\u0435\u0442 \u043c\u0435\u043d\u044f\u0442\u044c \u0432\u0445\u043e\u0434\u043d\u044b\u0435 \u0434\u0430\u043d\u043d\u044b\u0435. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u043c\u044b \u0438 \u043d\u0435 \u043c\u043e\u0436\u0435\u043c \u043e\u0431\u044a\u044f\u0432\u0438\u0442\u044c \u0442\u0435\u0441\u0442\u043e\u0432\u044b\u0439 \u043d\u0430\u0431\u043e\u0440 \u0441\u043b\u043e\u0432 \u043a\u043e\u043d\u0441\u0442\u0430\u043d\u0442\u043e\u0439, \u043f\u0440\u0438\u0434\u0435\u0442\u0441\u044f \u0434\u043e\u0432\u043e\u043b\u044c\u0441\u0442\u0432\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0433\u043b\u043e\u0431\u0430\u043b\u044c\u043d\u043e\u0439 \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439.<\/p>\n<p>  \u0422\u0435\u043f\u0435\u0440\u044c \u043a \u0440\u0435\u0448\u0435\u043d\u0438\u044e. \u041d\u0430\u0447\u043d\u0435\u043c \u0441 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u0430 \u0433\u043b\u0430\u0432\u043d\u043e\u0439 \u043b\u044f\u043c\u0431\u0434\u044b. <code>(sort one-word #'char-lessp)<\/code> \u043e\u0442\u0441\u043e\u0440\u0442\u0438\u0440\u0443\u0435\u0442 \u0431\u0443\u043a\u0432\u044b \u0432 \u043e\u0434\u043d\u043e\u043c \u0441\u043b\u043e\u0432\u0435 \u043f\u043e \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u043c\u0443 \u043f\u0440\u0435\u0434\u0438\u043a\u0430\u0442\u0443. \u0412 CL \u0431\u0443\u043a\u0432\u044b, \u0441\u0442\u0440\u043e\u043a\u0438 \u0438 \u0447\u0438\u0441\u043b\u0430 \u2014 \u0441\u043e\u0432\u0435\u0440\u0448\u0435\u043d\u043d\u043e \u0440\u0430\u0437\u043d\u044b\u0435 \u0442\u0438\u043f\u044b, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0433\u043e \u0442\u0438\u043f\u0430 \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u0443\u043a\u0430\u0437\u044b\u0432\u0430\u0442\u044c \u0441\u0432\u043e\u0439 \u043f\u0440\u0435\u0434\u0438\u043a\u0430\u0442. \u0412 \u043d\u0430\u0448\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0434\u043b\u044f \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u0438 \u0431\u0443\u043a\u0432 \u043f\u043e \u0432\u043e\u0437\u0440\u0430\u0441\u0442\u0430\u043d\u0438\u044e \u043c\u044b \u0432\u043e\u0437\u044c\u043c\u0435\u043c \u043e\u0431\u044b\u0447\u043d\u044b\u0439 <code>char-lessp<\/code>, \u043d\u043e \u043c\u043e\u0436\u043d\u043e, \u043a\u043e\u043d\u0435\u0447\u043d\u043e, \u0438 \u043f\u0438\u0441\u0430\u0442\u044c \u0441\u0432\u043e\u0438 \u0441\u043a\u043e\u043b\u044c \u0443\u0433\u043e\u0434\u043d\u043e \u0441\u043b\u043e\u0436\u043d\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438.<\/p>\n<p>  \u041d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u043e\u0431\u0435\u0440\u043d\u0443\u0442\u044c \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u0443 \u0432 <code>(lambda (one-word) (sort one-word #'char-lessp))<\/code>, \u0447\u0442\u043e\u0431\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0444\u0443\u043d\u043a\u0446\u0438\u044e \u0434\u043b\u044f <code>marcar<\/code>. \u0417\u0430\u043f\u0443\u0441\u0442\u0438\u0432 \u0441\u0430\u043c <code>mapcar <\/code>\u043d\u0430 <code>*words*<\/code>, \u043c\u044b \u043f\u043e\u043b\u0443\u0447\u0438\u043c \u043c\u0430\u0441\u0441\u0438\u0432 \u043e\u0442\u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u0441\u043b\u043e\u0432. \u0410 \u043e\u0442\u0434\u0430\u0432 \u0435\u0433\u043e \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0449\u0438\u043a\u0443 \u0441 \u043f\u0440\u0435\u0434\u0438\u043a\u0430\u0442\u043e\u043c <code>string-lessp<\/code> \u2014 \u043e\u0442\u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 \u043e\u0442\u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0445 \u0441\u043b\u043e\u0432.<\/p>\n<p>  \u0422\u0435\u043f\u0435\u0440\u044c \u043f\u043e\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u0432 \u0442\u0435\u043b\u043e \u043b\u044f\u043c\u0431\u0434\u044b. \u0422\u0430\u043c \u043c\u044b \u0441\u0448\u0438\u0432\u0430\u0435\u043c \u0442\u0440\u0438 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u0432 \u043e\u0434\u0438\u043d \u043c\u0430\u0441\u0441\u0438\u0432 3-\u0441\u043f\u0438\u0441\u043a\u043e\u0432:<code> (mapcar #'list words (append '(&quot;&quot;) words) (append '(&quot;&quot; &quot;&quot;) words))<\/code>. \u0412\u043e\u043e\u0431\u0449\u0435-\u0442\u043e \u0442\u0443\u0442 \u0436\u0435\u043b\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u0431\u044b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043a\u043e\u0440\u0442\u0435\u0436\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043d\u0435\u0442, \u043d\u043e \u044d\u0442\u043e \u0432\u043a\u0443\u0441\u043e\u0432\u0449\u0438\u043d\u0430. \u0422\u0440\u0438 \u043c\u0430\u0441\u0441\u0438\u0432\u0430 \u2014 \u044d\u0442\u043e \u0442\u043e, \u0447\u0442\u043e \u043c\u044b \u043d\u0430\u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u043b\u0438 \u0432 \u0430\u0440\u0433\u0443\u043c\u0435\u043d\u0442\u0435, \u043d\u043e \u043e\u0434\u0438\u043d \u0438\u0437 \u043d\u0438\u0445 \u0441\u0434\u0432\u0438\u043d\u0443\u0442 \u043d\u0430 \u043e\u0434\u043d\u043e \u043f\u0443\u0441\u0442\u043e\u0435 \u0441\u043b\u043e\u0432\u043e, \u0430 \u0434\u0440\u0443\u0433\u043e\u0439 \u2014 \u043d\u0430 \u0434\u0432\u0430. \u0422\u0430\u043a\u043e\u0435 \u00ab\u0440\u0430\u0437\u043c\u043d\u043e\u0436\u0435\u043d\u0438\u0435\u00bb \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442 \u0431\u0435\u0437 \u0433\u043b\u0443\u0431\u043e\u043a\u043e\u0433\u043e \u043a\u043e\u043f\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u0432\u0435\u0434\u044c \u043c\u044b \u043d\u0435 \u043c\u043d\u043e\u0436\u0438\u043c \u0434\u0430\u043d\u043d\u044b\u0435 \u0442\u0440\u0438 \u0440\u0430\u0437\u0430, \u0430 \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u0435\u0440\u0435\u0440\u0438\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u043c \u0441\u043f\u0438\u0441\u043a\u0438. \u0412 \u0438\u0442\u043e\u0433\u0435 \u0432 \u043a\u043e\u043d\u0435\u0447\u043d\u043e\u043c \u0441\u043f\u0438\u0441\u043a\u0435 \u043b\u0435\u0436\u0438\u0442 3-\u0441\u043f\u0438\u0441\u043e\u043a \u0438\u0437: \u0441\u043b\u043e\u0432\u0430 \u043e\u0442\u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u043e\u0433\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0430, \u0435\u0433\u043e \u0441\u043e\u0441\u0435\u0434\u0430 \u0441\u043f\u0440\u0430\u0432\u0430, \u0441\u043e\u0441\u0435\u0434\u0430 \u0441\u043e\u0441\u0435\u0434\u0430 \u0441\u043f\u0440\u0430\u0432\u0430. <\/p>\n<p>  \u0426\u0438\u043a\u043b, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043f\u0440\u043e\u0445\u043e\u0434\u0438\u0442 \u043f\u043e \u044d\u0442\u043e\u043c\u0443 \u0441\u043f\u0438\u0441\u043a\u0443 \u0441\u043f\u0438\u0441\u043a\u043e\u0432, \u043d\u0430\u043f\u0438\u0441\u0430\u043d \u0442\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c, \u0447\u0442\u043e \u043a\u0430\u0436\u0434\u044b\u0439 3-\u0441\u043f\u0438\u0441\u043e\u043a \u0432 \u0442\u0435\u043b\u0435 \u0446\u0438\u043a\u043b\u0430 \u043f\u0440\u0435\u0432\u0440\u0430\u0449\u0430\u0435\u0442\u0441\u044f \u0432 <code>(a b c)<\/code>. \u0410 \u0432 \u0442\u0435\u043b\u0435 \u0432\u0441\u0435 \u043f\u0440\u043e\u0441\u0442\u043e: \u0435\u0441\u043b\u0438 b \u0438\u043c\u0435\u0435\u0442 \u0441\u0430\u043c\u043e\u043f\u043e\u0434\u043e\u0431\u043d\u043e\u0433\u043e \u0441\u043e\u0441\u0435\u0434\u0430 \u0441\u043f\u0440\u0430\u0432\u0430 \u00a9, \u0438\u043b\u0438 \u0441\u043b\u0435\u0432\u0430 (a) \u2014 \u044d\u0442\u043e \u043d\u0430\u0432\u0435\u0440\u043d\u044f\u043a\u0430 \u0430\u043d\u0430\u0433\u0440\u0430\u043c\u043c\u0430 \u0438 \u0435\u0435 \u043d\u0430\u0434\u043e \u0443\u0447\u0435\u0441\u0442\u044c. <\/p>\n<p>  \u041c\u0430\u043a\u0440\u043e\u0441 loop \u0432 Common Lisp \u043f\u0440\u0435\u0434\u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u0441\u0432\u043e\u0439 \u043f\u043e\u0434\u044a\u044f\u0437\u044b\u043a \u0441 \u0448\u0438\u0440\u043e\u0447\u0430\u0439\u0448\u0438\u043c\u0438 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044f\u043c\u0438. \u0422\u0443\u0442, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043d\u0430\u043c \u043d\u0435 \u043d\u0430\u0434\u043e \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u0441\u0447\u0435\u0442\u0447\u0438\u043a \u0434\u043b\u044f \u043f\u043e\u0434\u0441\u0447\u0435\u0442\u0430, \u043e\u043d \u0441\u043e\u0437\u0434\u0430\u0435\u0442\u0441\u044f \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u0441\u043b\u043e\u0432\u043e\u043c <code>count<\/code> \u0438 \u0435\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u0438 \u0432\u044b\u0445\u043e\u0434\u0435 \u0438\u0437 \u0446\u0438\u043a\u043b\u0430.<\/p>\n<p>  \u0421\u0430\u043c\u044b\u0439 \u0433\u043b\u0430\u0432\u043d\u044b\u0439 \u0432\u043e\u043f\u0440\u043e\u0441 \u2014 \u0437\u0430\u0447\u0435\u043c \u0432\u043e\u043e\u0431\u0449\u0435 \u043d\u0443\u0436\u043d\u0430 \u0433\u043b\u0430\u0432\u043d\u0430\u044f \u043b\u044f\u043c\u0431\u0434\u0430. \u0424\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u043c\u044b \u043e\u0431\u044a\u044f\u0432\u043b\u044f\u0435\u043c \u0444\u0443\u043d\u043a\u0446\u0438\u044e \u0438 \u0442\u0443\u0442 \u0436\u0435 \u0435\u0435 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c. \u0420\u0430\u0437\u0432\u0435 \u043c\u044b \u043d\u0435 \u043c\u043e\u0433\u043b\u0438 \u0431\u044b \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u043e\u0442\u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u0441\u043f\u0438\u0441\u043e\u043a \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u043e \u0447\u0435\u0440\u0435\u0437 <code>let <\/code>\u0438 \u043e\u0431\u043e\u0439\u0442\u0438\u0441\u044c \u0431\u0435\u0437 \u043b\u044f\u043c\u0431\u0434\u044b. \u041e\u0442\u0432\u0435\u0442 \u043d\u0430 \u043d\u0435\u0433\u043e \u043f\u0440\u043e\u0441\u0442: \u043a\u043e\u043d\u0435\u0447\u043d\u043e \u0436\u0435 \u043c\u043e\u0433\u043b\u0438 \u0431\u044b. \u0417\u0434\u0435\u0441\u044c \u043b\u044f\u043c\u0431\u0434\u0430 \u2014 \u044d\u0442\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u0435\u0449\u0435 \u043e\u0434\u0438\u043d \u0441\u043f\u043e\u0441\u043e\u0431 \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u044b\u0439 \u043a\u043e\u043d\u0442\u0435\u043a\u0441\u0442.<\/p>\n<p>  \u0412\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u044f\u0441\u044c \u043a \u0442\u0435\u043c\u0435. \u0428\u0442\u0430\u0442\u043d\u0430\u044f \u0441\u0440\u0430\u0432\u043d\u0438\u0432\u0430\u044e\u0449\u0430\u044f \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u0430 \u0432 \u043e\u0431\u0449\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0441\u043e \u0441\u043b\u043e\u0436\u043d\u043e\u0441\u0442\u044c\u044e O(n log n). \u0427\u0442\u043e \u043e\u0447\u0435\u043d\u044c \u043d\u0435\u043f\u043b\u043e\u0445\u043e, \u043d\u043e \u043d\u0430\u043c \u043d\u0435 \u043f\u043e\u0434\u0445\u043e\u0434\u0438\u0442. \u0421 \u043b\u0438\u043d\u0435\u0439\u043d\u043e\u0439 \u0441\u043b\u043e\u0436\u043d\u043e\u0441\u0442\u044c\u044e \u043c\u044b \u043c\u043e\u0433\u043b\u0438 \u0431\u044b \u043f\u0440\u043e\u0439\u0442\u0438\u0441\u044c, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u043f\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0443, \u043f\u043e\u0441\u0447\u0438\u0442\u0430\u0442\u044c \u0435\u0433\u043e \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0435 \u0441\u043b\u043e\u0432\u0430 \u0432 \u0445\u0435\u0448-\u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0438 \u043f\u043e\u0442\u043e\u043c \u0441\u043b\u043e\u0436\u0438\u0442\u044c \u0432\u043c\u0435\u0441\u0442\u0435 \u0442\u0435 \u0435\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0431\u043e\u043b\u044c\u0448\u0435 \u0435\u0434\u0438\u043d\u0438\u0446\u044b. \u041e\u0434\u043d\u0430\u043a\u043e \u043e\u043f\u044f\u0442\u044c \u0436\u0435 \u043d\u0430\u0434\u043e \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0441\u043b\u043e\u0432\u0430. \u041d\u0430 \u0441\u0430\u043c\u043e\u043c \u0434\u0435\u043b\u0435, \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u0430 \u0441\u043b\u043e\u0432 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u0441\u0434\u0435\u043b\u0430\u043d\u0430 \u0441 \u043b\u0438\u043d\u0435\u0439\u043d\u043e\u0439 \u0441\u043b\u043e\u0436\u043d\u043e\u0441\u0442\u044c\u044e. \u0411\u0443\u043a\u0432\u044b \u2014 \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u043d\u0435\u043c\u043e\u0449\u043d\u044b\u0439 \u043a\u043b\u044e\u0447, \u0442\u043e \u0435\u0441\u0442\u044c \u043a\u0430\u043a\u0430\u044f-\u043d\u0438\u0431\u0443\u0434\u044c \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u0430 \u043f\u043e\u0434\u0441\u0447\u0435\u0442\u043e\u043c \u0441 \u0442\u0430\u043a\u043e\u0439 \u0437\u0430\u0434\u0430\u0447\u0435\u0439 \u0441\u043f\u0440\u0430\u0432\u0438\u0442\u0441\u044f \u0437\u0430\u043c\u0435\u0447\u0430\u0442\u0435\u043b\u044c\u043d\u043e. \u041d\u043e \u0431\u0443\u0434\u0435\u043c \u043f\u0440\u0438\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0442\u044c\u0441\u044f.<\/p>\n<p>  \u0412 Common Lisp \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u0430\u0440\u0438\u0444\u043c\u0435\u0442\u0438\u043a\u0430 \u0441 \u0431\u0435\u0441\u043a\u043e\u043d\u0435\u0447\u043d\u044b\u043c\u0438 \u0447\u0438\u0441\u043b\u0430\u043c\u0438. \u0422\u043e \u0435\u0441\u0442\u044c \u0443 \u043d\u0430\u0441 \u043d\u0435\u0442 \u043f\u0435\u0440\u0435\u043f\u043e\u043b\u043d\u0435\u043d\u0438\u0439, \u043f\u0440\u043e\u0441\u0442\u043e \u0441 \u0440\u043e\u0441\u0442\u043e\u043c \u0447\u0438\u0441\u043b\u0430 \u0442\u0440\u0430\u0442\u0438\u0442\u0441\u044f \u043f\u0430\u043c\u044f\u0442\u044c \u0438 \u043f\u0430\u0434\u0430\u0435\u0442 \u0441\u043a\u043e\u0440\u043e\u0441\u0442\u044c \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0439. \u0412 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0435, \u0434\u043b\u044f \u0440\u0430\u0441\u0447\u0435\u0442\u0430 \u0441\u043b\u043e\u0436\u043d\u043e\u0441\u0442\u0438 \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0430 \u044d\u0442\u0438\u043c \u043c\u043e\u0436\u043d\u043e \u0438 \u043f\u0440\u0435\u043d\u0435\u0431\u0440\u0435\u0447\u044c. \u0410\u043d\u0430\u0433\u0440\u0430\u043c\u043c\u0443 \u043e\u0434\u043d\u043e\u0437\u043d\u0430\u0447\u043d\u043e \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u0446\u0438\u0440\u0443\u0435\u0442 \u0442\u043e, \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043a\u0430\u043a\u0438\u0445 \u0431\u0443\u043a\u0432 \u0432 \u043d\u0435\u0435 \u0432\u0445\u043e\u0434\u0438\u0442. \u0418\u0445 \u043c\u043e\u0436\u043d\u043e \u0434\u0432\u0438\u0433\u0430\u0442\u044c \u043a\u0430\u043a \u0443\u0433\u043e\u0434\u043d\u043e, \u043d\u043e \u043d\u0435\u043b\u044c\u0437\u044f \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0442\u044c \u0438 \u0443\u0431\u0430\u0432\u043b\u044f\u0442\u044c. \u0422\u043e \u0436\u0435 \u0441\u0430\u043c\u043e\u0435 \u043c\u043e\u0436\u043d\u043e \u0441\u043a\u0430\u0437\u0430\u0442\u044c \u0438 \u043f\u0440\u043e \u0447\u0438\u0441\u043b\u0430 \u0441 \u0438\u0445 \u043f\u0440\u043e\u0441\u0442\u044b\u043c\u0438 \u043c\u043d\u043e\u0436\u0438\u0442\u0435\u043b\u044f\u043c\u0438. 2*3 = 3*2 \u0442\u043e\u0447\u043d\u043e \u0442\u0430\u043a \u0436\u0435, \u043a\u0430\u043a \u0438 \u00ab\u0430\u0431\u00bb \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0430\u043d\u0430\u0433\u0440\u0430\u043c\u043c\u043e\u0439 \u00ab\u0431\u0430\u00bb. \u0420\u0430\u0437 \u0442\u0430\u043a, \u0442\u043e \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u0438\u0434\u0435\u043d\u0442\u0438\u0444\u0438\u0446\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043a\u0430\u0436\u0434\u043e\u0435 \u0441\u043b\u043e\u0432\u043e \u0447\u0438\u0441\u043b\u043e\u043c, \u043d\u0430\u0439\u0434\u0435\u043d\u043d\u044b\u043c \u043a\u0430\u043a \u043f\u0440\u043e\u0438\u0437\u0432\u0435\u0434\u0435\u043d\u0438\u0435 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0438\u0445 \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u043c\u043d\u043e\u0436\u0438\u0442\u0435\u043b\u0435\u0439.<\/p>\n<p>  \u0421\u0442\u043e\u0438\u0442 \u043d\u0430\u043f\u043e\u043c\u043d\u0438\u0442\u044c, \u0447\u0442\u043e \u0432 CL \u0447\u0438\u0441\u043b\u0430 \u0438 \u0441\u0438\u043c\u0432\u043e\u043b\u044b \u2014 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0438\u0430\u043b\u044c\u043d\u043e \u0440\u0430\u0437\u043d\u044b\u0435 \u0442\u0438\u043f\u044b. \u041d\u0435\u043b\u044c\u0437\u044f \u0441\u0447\u0438\u0442\u0430\u0442\u044c, \u0447\u0442\u043e a = 65, \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u044d\u0442\u043e \u0442\u0430\u043a \u0432\u043e \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0435 \u043a\u043e\u0434\u043e\u0432\u044b\u0445 \u0442\u0430\u0431\u043b\u0438\u0446. \u0422\u0430\u043a \u0447\u0442\u043e \u043d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u043e\u0435 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0438\u0437 \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432 \u0432 \u0447\u0438\u0441\u043b\u0430. \u041f\u043e\u0447\u0435\u043c\u0443 \u0431\u044b \u043d\u0435 \u0441\u0434\u0435\u043b\u0430\u0442\u044c \u0435\u0433\u043e \u0445\u0435\u0448-\u0442\u0430\u0431\u043b\u0438\u0446\u0435\u0439?<\/p>\n<pre><code class=\"lisp\">(defconstant +letters-26+ '(#\\a #\\b #\\c #\\d #\\e #\\f #\\g #\\h #\\i #\\j #\\k #\\l #\\m #\\n #\\o #\\p #\\q #\\r #\\s #\\t #\\u #\\v #\\w #\\x #\\y #\\z)) (defconstant +primes-26+ '(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101)) (defparameter *letter-to-prime* (make-hash-table)) (loop for (l p) in (mapcar #'list +letters-26+ +primes-26+)     do (setf (gethash l *letter-to-prime*) p)) <\/code><\/pre>\n<p>  \u0422\u0443\u0442 \u0432\u0441\u0435 \u0434\u043e\u0432\u043e\u043b\u044c\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e. \u041e\u0431\u044a\u044f\u0432\u043b\u044f\u0435\u043c \u0441\u043f\u0438\u0441\u043e\u043a \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432, \u043f\u0440\u043e\u0441\u0442\u044b\u0445 \u0447\u0438\u0441\u0435\u043b, \u0441\u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u043c \u0442\u0430\u0431\u043b\u0438\u0446\u0443, \u0432 \u043a\u043e\u0442\u043e\u0440\u043e\u0439 \u043a\u0430\u0436\u0434\u043e\u043c\u0443 \u0441\u0438\u043c\u0432\u043e\u043b\u0443 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u0435\u0442 \u0447\u0438\u0441\u043b\u043e. \u0412 Common Lisp \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u043d\u0435\u043e\u0431\u044b\u0447\u043d\u044b\u0439 \u0441\u043f\u043e\u0441\u043e\u0431 \u043a\u043b\u0430\u0441\u0442\u044c \u0447\u0442\u043e-\u043b\u0438\u0431\u043e \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0443. \u0414\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u043c\u044b \u0431\u0435\u0440\u0435\u043c \u043e\u0442\u0442\u0443\u0434\u0430 \u0435\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0438 \u043a\u0430\u043a \u0431\u044b \u043a\u043b\u0430\u0434\u0435\u043c \u00ab\u0432 \u044d\u0442\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u00bb \u043d\u043e\u0432\u043e\u0435. \u0411\u0435\u0440\u0435\u043c \u043a\u043e\u043c\u0430\u043d\u0434\u043e\u0439 <code>gethash<\/code>, \u043a\u043b\u0430\u0434\u0435\u043c <code>setf<\/code>. <\/p>\n<p>  \u0422\u0435\u043f\u0435\u0440\u044c \u043d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u043e\u0446\u0435\u043d\u043e\u0447\u043d\u0430\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044f \u0434\u043b\u044f \u0441\u043b\u043e\u0432\u0430-\u0430\u043d\u0430\u0433\u0440\u0430\u043c\u043c\u044b.<\/p>\n<pre><code class=\"lisp\">(defun evaluate-word (word)     (apply #'*          (loop for letter across word             collect (gethash letter *letter-to-prime*)))) <\/code><\/pre>\n<p>  \u0414\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e. \u0421\u043e\u0431\u0438\u0440\u0430\u0435\u043c \u0432\u0441\u0435 \u043f\u0440\u043e\u0441\u0442\u044b\u0435 \u043c\u043d\u043e\u0436\u0438\u0442\u0435\u043b\u0438 \u0447\u0435\u0440\u0435\u0437 \u0445\u0435\u0448-\u0442\u0430\u0431\u043b\u0438\u0446\u0443 \u0432 \u043e\u0434\u0438\u043d \u0441\u043f\u0438\u0441\u043e\u0432 \u0438 \u043f\u0440\u0438\u043c\u0435\u043d\u044f\u0435\u043c \u043a \u043d\u0435\u043c\u0443 \u043e\u043f\u0435\u0440\u0430\u0442\u043e\u0440 <code>*<\/code>. \u0412\u0441\u0435 \u043c\u043d\u043e\u0436\u0438\u0442\u0441\u044f. \u041e\u0434\u0438\u043d \u043d\u044e\u0430\u043d\u0441. \u0421\u0442\u0440\u043e\u043a\u0430 \u0442\u0443\u0442 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u043d\u0435 \u0441\u043e\u0432\u0441\u0435\u043c \u0441\u043f\u0438\u0441\u043a\u043e\u043c. \u042d\u0442\u043e \u0432\u0435\u043a\u0442\u043e\u0440, \u0442\u043e \u0435\u0441\u0442\u044c \u043f\u0440\u0430\u043a\u0442\u0438\u0447\u0435\u0441\u043a\u0438 \u043c\u0430\u0441\u0441\u0438\u0432. \u0414\u043b\u044f \u0442\u0430\u043a\u0438\u0445 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u043f\u0440\u0435\u0434\u043b\u043e\u0433 <code>across<\/code>, \u0430 \u043d\u0435 <code>in<\/code>.<\/p>\n<p>  \u0422\u0435\u043f\u0435\u0440\u044c \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u043f\u0440\u043e\u0445\u043e\u0434 \u043f\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0443 \u0438 \u043f\u0440\u043e\u0445\u043e\u0434 \u043f\u043e \u0442\u0430\u0431\u043b\u0438\u0446\u0435.<\/p>\n<pre><code class=\"lisp\">(let ((word-count (make-hash-table)))     (loop          for word in *words* do              (let ((wordn (evaluate-word word)))                  (let ((cnt (gethash wordn word-count)))                     (if cnt                         (setf (gethash wordn word-count) (+ cnt 1))                         (setf (gethash wordn word-count) 1)))))      (loop for v being the hash-values of word-count            when (&gt; v 1) sum v)) <\/code><\/pre>\n<p>  \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043b\u043e\u043a\u0430\u043b\u044c\u043d\u043e \u0442\u0430\u0431\u043b\u0438\u0446\u0443, \u043f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u043f\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0443, \u0432\u044b\u0447\u0438\u0442\u044b\u0432\u0430\u0435\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0434\u043b\u044f \u043a\u0430\u0436\u0434\u043e\u0439 \u0430\u043d\u0430\u0433\u0440\u0430\u043c\u043c\u044b: \u0435\u0441\u043b\u0438 \u043e\u043d\u043e \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0435\u0441\u0442\u044c, \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u043a \u043d\u0435\u043c\u0443 \u0435\u0434\u0438\u043d\u0438\u0446\u0443; \u0435\u0441\u043b\u0438 \u043d\u0435\u0442 \u2014 \u043a\u043b\u0430\u0434\u0435\u043c \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0443 \u0435\u0434\u0438\u043d\u0438\u0446\u0443, \u0447\u0442\u043e\u0431\u044b \u0431\u044b\u043b\u043e. \u041f\u043e\u0442\u043e\u043c \u043f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u043f\u043e \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u0438 \u0441\u043a\u043b\u0430\u0434\u044b\u0432\u0430\u0435\u043c \u0442\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0431\u043e\u043b\u044c\u0448\u0435 \u0435\u0434\u0438\u043d\u0438\u0446\u044b. \u041e\u0447\u0435\u043d\u044c \u0432\u044b\u0440\u0430\u0437\u0438\u0442\u0435\u043b\u044c\u043d\u044b\u0439 \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441 \u0443 \u0446\u0438\u043a\u043b\u043e\u0432, \u0442\u0443\u0442 \u0434\u0430\u0436\u0435 \u0438 \u043e\u0431\u044a\u044f\u0441\u043d\u044f\u0442\u044c \u043d\u0438\u0447\u0435\u0433\u043e \u043d\u0435 \u043d\u0430\u0434\u043e. <\/p>\n<p>  \u0415\u0434\u0438\u043d\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0435, \u0441\u0442\u043e\u0438\u0442 \u0437\u043d\u0430\u0442\u044c, \u0447\u0442\u043e <code>gethash<\/code> \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u0442 \u043f\u0435\u0440\u0432\u044b\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435\u043c <code>nil<\/code>, \u0435\u0441\u043b\u0438 \u0432 \u0442\u0430\u0431\u043b\u0438\u0446\u0435 \u043d\u0435\u0442 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u0433\u043e \u043a\u043b\u044e\u0447\u0430. \u0410 <code>if <\/code>\u0441\u0447\u0438\u0442\u0430\u0435\u0442 \u043b\u044e\u0431\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u043a\u0440\u043e\u043c\u0435 <code>nil <\/code>\u043f\u0440\u0430\u0432\u0434\u043e\u0439. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 <code>if cnt<\/code> \u0438 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0442\u0430\u043a \u043f\u0440\u043e\u0441\u0442\u043e.<\/p>\n<p>  \u0422\u0430\u043a\u043e\u0439 \u0441\u043f\u043e\u0441\u043e\u0431 \u0432\u044b\u0433\u043b\u044f\u0434\u0438\u0442 \u0431\u043e\u043b\u0435\u0435 \u0433\u0440\u043e\u043c\u043e\u0437\u0434\u043a\u0438\u043c, \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e, \u043e\u043d \u0442\u0430\u043a\u0438\u043c \u0438 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f, \u0437\u0430\u0442\u043e \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u0431\u044b\u0441\u0442\u0440\u043e.<\/p>\n<h5>2. \u041a\u043b\u044e\u0447 \u0432 \u043c\u0443\u0441\u043e\u0440\u0435<\/h5>\n<p>  \u0415\u0441\u0442\u044c \u043c\u0430\u0441\u0441\u0438\u0432 \u0441\u0442\u0440\u043e\u043a \u0432\u0438\u0434\u0430:<\/p>\n<pre><code class=\"lisp\">&quot;key1=blah key2=something key4=else sequence=3&quot; &quot;sequence=1 key2=xlde key7=eldl&quot; &quot;blahkey=xxx sequence=2 keyx=adada&quot; <\/code><\/pre>\n<p>  \u041d\u0430\u0434\u043e \u0435\u0433\u043e \u043e\u0442\u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043f\u043e sequence. \u0417\u043d\u0430\u0447\u0435\u043d\u0438\u0435 sequence \u0443\u043d\u0438\u043a\u0430\u043b\u044c\u043d\u043e \u0438 \u043f\u043e\u043a\u0440\u044b\u0432\u0430\u0435\u0442 1..n.<\/p>\n<p>  \u042d\u0442\u043e \u043c\u043e\u0439 \u043b\u044e\u0431\u0438\u043c\u044b\u0439 \u0441\u043b\u0443\u0447\u0430\u0439 \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u0438 \u2014 \u043a\u043b\u0430\u0441\u0441\u0438\u0447\u0435\u0441\u043a\u0438\u0439 pigeonhole. \u0422\u0430\u043a \u043a\u0430\u043a \u043a\u043b\u044e\u0447 \u0443\u043d\u0438\u043a\u0430\u043b\u044c\u043d\u044b\u0439 \u0438 \u043f\u043e\u043a\u0440\u044b\u0432\u0430\u0435\u0442 \u043f\u043e\u043b\u043d\u043e\u0441\u0442\u044c\u044e \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u0434\u0438\u0430\u043f\u0430\u0437\u043e\u043d, \u0442\u043e \u0432\u043c\u0435\u0441\u0442\u043e \u0432\u0441\u044f\u043a\u0438\u0445 \u043f\u0435\u0440\u0435\u0441\u0442\u0430\u043d\u043e\u0432\u043e\u043a \u0441\u043e \u0441\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u044f\u043c\u0438 \u043d\u0430\u043c \u0434\u043e\u0441\u0442\u0430\u0442\u043e\u0447\u043d\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u0437\u0430\u0433\u043e\u0442\u043e\u0432\u0438\u0442\u044c \u043c\u0430\u0441\u0441\u0438\u0432, \u043f\u0440\u043e\u0439\u0442\u0438\u0441\u044c \u043f\u043e \u0438\u0441\u0445\u043e\u0434\u043d\u043e\u043c\u0443 \u0438 \u043f\u043e\u043b\u043e\u0436\u0438\u0442\u044c \u043a\u0430\u0436\u0434\u043e\u0435 \u0435\u0433\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0432 \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0443\u044e \u044f\u0447\u0435\u0439\u043a\u0443 \u043d\u043e\u0432\u043e\u0433\u043e. \u0421\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0438\u0435 \u0442\u0440\u0438\u0432\u0438\u0430\u043b\u044c\u043d\u043e. \u0412 \u0434\u0430\u043d\u043d\u043e\u043c \u0441\u043b\u0443\u0447\u0430\u0435: i = s-1, \u0433\u0434\u0435 i \u2014 \u0438\u043d\u0434\u0435\u043a\u0441 \u0432 \u043d\u043e\u0432\u043e\u043c \u043c\u0430\u0441\u0441\u0438\u0432\u0435, \u0430 s \u2014 \u0447\u0438\u0441\u043b\u043e \u0441\u043f\u0440\u0430\u0432\u0430 \u043e\u0442 sequence.<\/p>\n<p>  \u041d\u043e \u0434\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430\u0434\u043e \u0431\u044b \u044d\u0442\u043e \u0447\u0438\u0441\u043b\u043e \u043a\u0430\u043a-\u0442\u043e \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c. \u0412 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u0435 \u043c\u043e\u0436\u043d\u043e \u043d\u0430\u0439\u0442\u0438 \u043f\u043e\u043b\u043e\u0436\u0435\u043d\u0438\u0435 sequence \u0438 \u043e\u0442 \u043d\u0435\u0433\u043e \u0443\u0436\u0435 \u043f\u043e\u0441\u0447\u0438\u0442\u0430\u0442\u044c \u0442\u043e, \u043e\u0442\u043a\u0443\u0434\u0430 \u0431\u0440\u0430\u0442\u044c \u043a\u043b\u044e\u0447. \u041d\u043e \u0432\u043e\u043e\u0431\u0449\u0435 \u0434\u043b\u044f \u0442\u0430\u043a\u043e\u0439 \u0440\u0430\u0431\u043e\u0442\u044b \u0443\u0434\u043e\u0431\u043d\u0435\u0439 \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0441\u0442\u0430\u043d\u0434\u0430\u0440\u0442\u043d\u044b\u043c \u0438\u043d\u0441\u0442\u0440\u0443\u043c\u0435\u043d\u0442\u043e\u043c, \u0442\u0430\u043a\u0438\u043c \u043a\u0430\u043a split \u0438\u043b\u0438, \u0447\u0442\u043e \u0442\u043e \u0436\u0435 \u0441\u0430\u043c\u043e\u0435, explode. \u041e\u0431\u044b\u0447\u043d\u043e \u043e\u043d \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043a\u0430\u043a-\u0442\u043e \u0442\u0430\u043a: split(\u00ababcdef\u00bb, \u00abcd\u00bb) -&gt; [\u00abab\u00bb, \u00abef\u00bb]. \u0412 Common Lisp, \u043f\u0440\u0430\u0432\u0434\u0430, \u043f\u043e\u0447\u0435\u043c\u0443-\u0442\u043e \u0442\u0430\u043a\u0438\u0445 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u0438\u0437 \u043a\u043e\u0440\u043e\u0431\u043a\u0438 \u043d\u0435\u0442. \u041f\u0440\u0438\u0434\u0435\u0442\u0441\u044f \u043f\u0438\u0441\u0430\u0442\u044c.<\/p>\n<pre><code class=\"lisp\">(defun split (str spc)     (let ((p (search spc str)))         (if p             (append (list (subseq str 0 p)) (split (subseq str (+ p (length spc))) spc))             (list str)))) <\/code><\/pre>\n<p>  \u0417\u0434\u0435\u0441\u044c <code>str <\/code> \u2014 \u0441\u0442\u0440\u043e\u043a\u0430, \u0430 <code>spc <\/code> \u2014 \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c, \u043f\u043e \u043a\u043e\u0442\u043e\u0440\u043e\u043c\u0443 \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u00ab\u0432\u0437\u0440\u044b\u0432\u0430\u0442\u044c\u00bb \u0441\u0442\u0440\u043e\u043a\u0443. \u0414\u043b\u044f \u043d\u0430\u0447\u0430\u043b\u0430 \u043d\u0430\u0445\u043e\u0434\u0438\u043c \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044c \u0432 \u0441\u0442\u0440\u043e\u043a\u0435. \u0415\u0441\u043b\u0438 \u043d\u0430\u0448\u043b\u0438, \u043e\u0442\u0440\u0435\u0437\u0430\u0435\u043c \u043e\u0442 \u043d\u0435\u0435 \u0447\u0430\u0441\u0442\u044c \u0434\u043e \u0440\u0430\u0437\u0434\u0435\u043b\u0438\u0442\u0435\u043b\u044f, \u0437\u0430\u043f\u0430\u043a\u043e\u0432\u044b\u0432\u0430\u0435\u043c \u0435\u0435 \u0432 \u0441\u043f\u0438\u0441\u043e\u043a, \u043f\u0440\u0438\u043a\u043b\u0435\u0438\u0432\u0430\u0435\u043c \u043a \u043d\u0435\u0439 \u00ab\u0432\u0437\u043e\u0440\u0432\u0430\u043d\u043d\u044b\u0439\u00bb \u043e\u0441\u0442\u0430\u0442\u043e\u043a \u0438 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c. \u0415\u0441\u043b\u0438 \u043d\u0435 \u043d\u0430\u0448\u043b\u0438, \u0437\u0430\u043f\u0430\u043a\u043e\u0432\u044b\u0432\u0430\u0435\u043c \u0438 \u0432\u043e\u0437\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443 \u0446\u0435\u043b\u0438\u043a\u043e\u043c. \u0424\u0443\u043d\u043a\u0446\u0438\u044f \u043e\u0447\u0435\u0432\u0438\u0434\u043d\u043e \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0432\u043d\u0430\u044f, \u0442\u0443\u0442 \u044d\u0442\u043e \u0432\u043f\u043e\u043b\u043d\u0435 \u0443\u0434\u043e\u0431\u043d\u043e \u0438 \u0443\u043c\u0435\u0441\u0442\u043d\u043e.<\/p>\n<pre><code class=\"lisp\">(let ((strings-array (make-array (length *strings*))))     (loop for str in *strings* do         (let ((i (parse-integer (first (split (second (split str &quot;sequence=&quot;)) &quot; &quot;)))))             (setf (aref strings-array (- i 1)) str)))     (loop for str across strings-array do         (print str))) <\/code><\/pre>\n<p>  \u0421\u043e\u0437\u0434\u0430\u0435\u043c \u043d\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 \u0441\u0442\u0440\u043e\u043a. \u041f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u043f\u043e \u0441\u0442\u0430\u0440\u043e\u043c\u0443. \u0420\u0435\u0436\u0435\u043c \u0435\u0435 \u043d\u0430 \u0447\u0430\u0441\u0442\u044c \u0434\u043e \u0438 \u043f\u043e\u0441\u043b\u0435 \u00absequence=\u00bb, \u0431\u0435\u0440\u0435\u043c \u0442\u043e \u0447\u0442\u043e \u043f\u043e\u0441\u043b\u0435, \u0440\u0435\u0436\u0435\u043c \u0435\u0435 \u043f\u043e \u043f\u0440\u043e\u0431\u0435\u043b\u0430\u043c, \u0431\u0435\u0440\u0435\u043c \u043f\u0435\u0440\u0432\u044b\u0439 \u043a\u0443\u0441\u043e\u0447\u0435\u043a. \u042d\u0442\u043e \u0438 \u0435\u0441\u0442\u044c \u0438\u043d\u0434\u0435\u043a\u0441 \u0441\u0442\u0440\u043e\u043a\u0438 \u0432 \u043d\u043e\u0432\u043e\u043c \u043c\u0430\u0441\u0441\u0438\u0432\u0435. \u041f\u0440\u0435\u0432\u0440\u0430\u0449\u0430\u0435\u043c \u0435\u0433\u043e \u0438\u0437 \u0441\u0442\u0440\u043e\u043a\u0438 \u0432 \u0447\u0438\u0441\u043b\u043e \u0444\u0443\u043d\u043a\u0446\u0438\u0435\u0439 parse-integer, \u043a\u043b\u0430\u0434\u0435\u043c \u0441\u0442\u0440\u043e\u043a\u0443 \u0432 \u043d\u043e\u0432\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432. \u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435 \u043d\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 first \u0438 second. \u041a\u043e\u043d\u0435\u0447\u043d\u043e \u0436\u0435 \u044d\u0442\u043e \u0437\u0430\u043c\u0430\u0441\u043a\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0435 car \u0438 car cdr, \u043d\u043e \u0432\u0435\u0434\u044c \u043a\u0440\u0430\u0441\u0438\u0432\u043e \u0437\u0430\u043c\u0430\u0441\u043a\u0438\u0440\u043e\u0432\u0430\u043d\u043d\u044b\u0435.<\/p>\n<p>  Common Lisp \u0432\u043e\u043e\u0431\u0449\u0435 \u043e\u0442\u043b\u0438\u0447\u0430\u0435\u0442\u0441\u044f \u043e\u0442 \u0431\u043e\u043b\u0435\u0435 \u0442\u0440\u0430\u0434\u0438\u0446\u0438\u043e\u043d\u043d\u044b\u0445 \u0434\u0438\u0430\u043b\u0435\u043a\u0442\u043e\u0432 \u043d\u0430\u043b\u0438\u0447\u0438\u0435\u043c \u0442\u0430\u043a\u0438\u0445 \u0432\u043e\u0442 \u0432\u043a\u0443\u0441\u043d\u043e\u0441\u0442\u0435\u0439.<\/p>\n<p>  3. \u041f\u0440\u0435\u0444\u0438\u043a\u0441\u044b<\/p>\n<p>  \u0415\u0441\u0442\u044c \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043c\u0430\u0441\u0441\u0438\u0432 \u0441\u043b\u043e\u0432. \u041d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0441\u043b\u043e\u0432\u0430 \u044f\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u043f\u0440\u0435\u0444\u0438\u043a\u0441\u0430\u043c\u0438 \u0434\u0440\u0443\u0433\u0438\u0445 \u0441\u043b\u043e\u0432. \u041d\u0430\u0434\u043e \u043d\u0430\u0439\u0442\u0438 \u0432\u0441\u0435 \u0442\u0430\u043a\u0438\u0435 \u0441\u043b\u043e\u0432\u0430.<\/p>\n<p>  \u041e\u0447\u0435\u0432\u0438\u0434\u043d\u043e, \u044d\u0442\u0430 \u0437\u0430\u0434\u0430\u0447\u0430 \u0442\u0430\u043a\u0436\u0435 \u043b\u0435\u0433\u043a\u043e \u0440\u0435\u0448\u0430\u0435\u0442\u0441\u044f \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u043e\u0439 \u0438 \u0431\u0430\u043d\u0430\u043b\u044c\u043d\u044b\u043c \u0441\u0440\u0430\u0432\u043d\u0435\u043d\u0438\u0435\u043c \u0441 \u0441\u043e\u0441\u0435\u0434\u043e\u043c \u0441\u043f\u0440\u0430\u0432\u0430. \u0411\u043e\u043b\u0435\u0435 \u0442\u043e\u0433\u043e, \u0441\u044e\u0434\u0430 \u044f\u0432\u043d\u043e \u043f\u0440\u043e\u0441\u0438\u0442\u0441\u044f \u0440\u0430\u0434\u0438\u043a\u0441\u043d\u0430\u044f, \u0430 \u043e\u043d\u0430 \u0438\u043c\u0435\u0435\u0442 \u0441\u043b\u043e\u0436\u043d\u043e\u0441\u0442\u044c O(n*k), \u0433\u0434\u0435 k \u2014 \u043c\u043e\u0449\u043d\u043e\u0441\u0442\u044c \u043a\u043b\u044e\u0447\u0430, \u0442\u043e \u0435\u0441\u0442\u044c \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044c\u043d\u043e n \u0442\u0430\u043a\u0438 O(n). \u041d\u043e \u0432\u0435\u0434\u044c \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u043f\u0440\u0438\u043d\u0446\u0438\u043f \u0440\u0430\u0434\u0438\u043a\u0441\u043d\u043e\u0439 \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u0438 \u043d\u0438\u0447\u0435\u0433\u043e \u043d\u0435 \u0441\u043e\u0440\u0442\u0438\u0440\u0443\u044f. \u042d\u0442\u0438\u043c \u0438 \u0437\u0430\u0439\u043c\u0435\u043c\u0441\u044f.<\/p>\n<p>  \u041d\u0430 \u043a\u0430\u0436\u0434\u043e\u0439 \u0438\u0442\u0435\u0440\u0430\u0446\u0438\u0438 \u0431\u0443\u0434\u0435\u043c \u0440\u0430\u0441\u043a\u043b\u0430\u0434\u044b\u0432\u0430\u0442\u044c \u0441\u043b\u043e\u0432\u0430 \u043f\u043e \u0440\u0430\u0437\u043d\u044b\u043c \u044f\u0447\u0435\u0439\u043a\u0430\u043c \u0438\u0441\u0445\u043e\u0434\u044f \u0438\u0437 \u0438\u0445 \u043f\u0435\u0440\u0432\u043e\u0439 \u0431\u0443\u043a\u0432\u044b. \u0422\u0430\u043a, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440, \u0441\u043b\u043e\u0432\u0430 \u00abqwert\u00bb, \u00abqwe\u00bb, \u00abasdf\u00bb \u0440\u0430\u0437\u043e\u0439\u0434\u0443\u0442\u0441\u044f \u043f\u043e \u0434\u0432\u0443\u043c \u044f\u0447\u0435\u0439\u043a\u0430\u043c: [\u00abqwert\u00bb, \u00abqwe\u00bb] \u0438 [\u00abasdf\u00bb]. \u0412\u0442\u043e\u0440\u0430\u044f \u044f\u0447\u0435\u0439\u043a\u0430 \u043d\u0430\u043c \u043d\u0435 \u0438\u043d\u0442\u0435\u0440\u0435\u0441\u043d\u0430, \u043f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u043e\u0434\u043d\u043e \u0441\u0430\u043c\u043e \u0441\u043b\u043e\u0432\u043e \u043d\u0438\u043a\u0430\u043a \u043d\u0435 \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u043f\u0440\u0435\u0444\u0438\u043a\u0441\u043e\u043c, \u0430 \u043f\u0435\u0440\u0432\u0443\u044e \u0437\u0430\u043f\u0443\u0441\u0442\u0438\u043c \u043d\u0430 \u043d\u043e\u0432\u0443\u044e \u0438\u0442\u0435\u0440\u0430\u0446\u0438\u044e, \u043e\u0442\u0440\u0435\u0437\u0430\u0432 \u043f\u0435\u0440\u0432\u0443\u044e \u0431\u0443\u043a\u0432\u0443. \u041a\u043e\u0433\u0434\u0430 \u0434\u043e\u0439\u0434\u0435\u043c \u0434\u043e \u00abrt\u00bb \u0438 &quot;&quot;, \u043f\u043e\u0439\u043c\u0435\u043c, \u0447\u0442\u043e \u0442\u0430\u043c \u0433\u0434\u0435 \u0441\u0435\u0439\u0447\u0430\u0441 &quot;&quot; \u0440\u0430\u043d\u044c\u0448\u0435 \u0431\u044b\u043b \u043f\u0440\u0435\u0444\u0438\u043a\u0441.<\/p>\n<p>  \u0421\u043d\u043e\u0432\u0430 \u0442\u0430\u043a\u0438 \u043d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0441\u0438\u043c\u0432\u043e\u043b\u0430 \u043d\u0430 \u0438\u043d\u0434\u0435\u043a\u0441.<\/p>\n<pre><code class=\"lisp\">(defconstant +letters-26+ '(#\\a #\\b #\\c #\\d #\\e #\\f #\\g #\\h #\\i #\\j #\\k #\\l #\\m #\\n #\\o #\\p #\\q #\\r #\\s #\\t #\\u #\\v #\\w #\\x #\\y #\\z)) (defparameter *letter-to-index* (make-hash-table)) (loop for i from 0 to 25     do (setf (gethash (nth i +letters-26+) *letter-to-index*) i)) <\/code><\/pre>\n<p>  \u041d\u0438\u043a\u0430\u043a\u043e\u0433\u043e \u0441\u043c\u044b\u0441\u043b\u0430 \u0434\u0435\u043b\u0430\u0442\u044c \u0441\u043f\u0438\u0441\u043e\u043a \u0438\u0437 \u043d\u0430\u0442\u0443\u0440\u0430\u043b\u044c\u043d\u044b\u0445 \u0447\u0438\u0441\u0435\u043b \u043d\u0435\u0442, \u043d\u0430\u043c \u0435\u0433\u043e \u0441\u0434\u0435\u043b\u0430\u0435\u0442 \u0441\u0430\u043c \u0437\u0430\u043c\u0435\u0447\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0439 loop.<\/p>\n<pre><code class=\"lisp\">(defparameter *lines* '(&quot;qwerty&quot; &quot;qwe&quot; &quot;asddsa&quot; &quot;zxcvb&quot; &quot;zxcvbn&quot; &quot;zxcvbnm&quot;))  (defun find-sub (ine-lines)     (let ((cells (make-array 26 :initial-element '() )))         (loop for (ine line) in ine-lines do             (if (equal ine &quot;&quot;)                 (print line)                 (let ((i (gethash (char ine 0) *letter-to-index*)))                     (setf (aref cells i)                          (append (list (list (subseq ine 1) line)) (aref cells i))))))         (loop for cell across cells do             (when (&gt; (length cell) 1) (find-sub cell)))))  (find-sub (mapcar #'list *lines* *lines*)) <\/code><\/pre>\n<p>  \u041d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u0435\u0442\u0441\u044f \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u0438\u043c\u0435\u043d\u043e\u0432\u0430\u043d\u043d\u0443\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u044e, \u043f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u0434\u043b\u044f \u0440\u0435\u043a\u0443\u0440\u0441\u0438\u0438 \u043a\u0440\u0430\u0439\u043d\u0435 \u0436\u0435\u043b\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u0438\u043c\u0435\u0442\u044c \u0445\u043e\u0442\u044c \u043a\u0430\u043a\u043e\u0435-\u043d\u0438\u0431\u0443\u0434\u044c \u0438\u043c\u044f. \u0422\u0430\u043a\u0436\u0435 \u043d\u0430\u043c \u043f\u043e\u0442\u0440\u0435\u0431\u0443\u044e\u0442\u0441\u044f \u043a\u043e\u0440\u0442\u0435\u0436\u0438, \u0430 \u0442\u043e\u0447\u043d\u0435\u0435 \u043e\u043f\u044f\u0442\u044c 2-\u0441\u043f\u0438\u0441\u043a\u0438 \u0438\u0437 \u0441\u043b\u043e\u0432\u0430 \u0438 \u0435\u0433\u043e \u043e\u0441\u0442\u0430\u0442\u043a\u0430 \u043f\u0440\u0438 \u043e\u0431\u0440\u0435\u0437\u0430\u043d\u0438\u0438. \u0427\u0442\u043e\u0431\u044b \u043d\u0435 \u043f\u0435\u0440\u0435\u043f\u0443\u0442\u0430\u0442\u044c, \u0442\u0443\u0442 \u043e\u043d \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u0442\u0441\u044f <code>ine-lines<\/code>, \u0442\u043e \u0435\u0441\u0442\u044c \u043f\u0435\u0440\u0432\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 2-\u0441\u043f\u0438\u0441\u043a\u0430 \u2014 \u0443\u043a\u043e\u0440\u043e\u0447\u0435\u043d\u043d\u043e\u0435 \u0441\u043b\u043e\u0432\u043e, \u0432\u0442\u043e\u0440\u043e\u0435 \u2014 \u043f\u043e\u043b\u043d\u043e\u0435. \u0412\u043e\u043e\u0431\u0449\u0435-\u0442\u043e \u0434\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u043d\u0435 \u043f\u0443\u0442\u0430\u0442\u044c\u0441\u044f \u0432 \u043a\u043e\u0440\u0442\u0435\u0436\u0430\u0445, \u0446\u0435\u043b\u0443\u044e \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u0443\u044e \u0441\u0438\u0441\u0442\u0435\u043c\u0443 \u043f\u0440\u0438\u0434\u0443\u043c\u0430\u043b\u0438, \u043d\u043e \u0434\u043e \u043d\u0435\u0435 \u0434\u043e\u0431\u0435\u0440\u0435\u043c\u0441\u044f \u043a\u0430\u043a-\u043d\u0438\u0431\u0443\u0434\u044c \u043f\u043e\u0442\u043e\u043c.<\/p>\n<p>  \u0412 \u0442\u0435\u043b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u043c \u043c\u0430\u0441\u0441\u0438\u0432. \u0422\u0430\u043a \u043a\u0430\u043a \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u043d\u0435 \u043a\u043b\u0430\u0441\u0442\u044c \u0432 \u043d\u0435\u0433\u043e \u043d\u0435\u043f\u043e\u0441\u0440\u0435\u0434\u0441\u0442\u0432\u0435\u043d\u043d\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f, \u0430 \u0442\u043e\u043b\u044c\u043a\u043e \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0442\u044c \u0441\u043f\u0438\u0441\u043a\u0438 \u043a \u0438\u043c\u0435\u044e\u0449\u0438\u043c\u0441\u044f, \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u0443\u0435\u043c \u0435\u0433\u043e \u043f\u0443\u0441\u0442\u044b\u0448\u043a\u0430\u043c\u0438. <\/p>\n<p>  \u041f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u043f\u043e 2-\u0441\u043f\u0438\u0441\u043a\u0430\u043c \u0438\u0437 <code>ine-lines<\/code>. \u0415\u0441\u043b\u0438 \u043f\u0435\u0440\u0432\u0430\u044f \u0447\u0430\u0441\u0442\u044c \u043f\u0443\u0441\u0442\u0430\u044f \u0441\u0442\u0440\u043e\u043a\u0430, \u0432\u044b\u0432\u043e\u0434\u0438\u043c \u043f\u0440\u0438\u043d\u0442\u043e\u043c \u0432\u0442\u043e\u0440\u0443\u044e. \u0412\u043e\u043e\u0431\u0449\u0435-\u0442\u043e \u044d\u0442\u043e \u043d\u0435 \u0441\u043e\u0432\u0441\u0435\u043c \u043a\u0440\u0430\u0441\u0438\u0432\u043e, \u043b\u0443\u0447\u0448\u0435 \u0431\u044b \u043e\u0431\u043e\u0439\u0442\u0438\u0441\u044c \u0432\u043e\u043e\u0431\u0449\u0435 \u0431\u0435\u0437 \u0441\u0442\u043e\u0440\u043e\u043d\u043d\u0438\u0445 \u044d\u0444\u0444\u0435\u043a\u0442\u043e\u0432: \u0441\u043e\u0431\u0440\u0430\u0442\u044c \u0432\u0441\u0435 \u0432 \u043e\u0434\u0438\u043d \u0441\u043f\u0438\u0441\u043e\u043a \u0438 \u043e\u0442\u0434\u0430\u0442\u044c \u043d\u0430 \u0432\u044b\u0445\u043e\u0434\u0435. \u041d\u043e \u0442\u0430\u043a \u0442\u043e\u0436\u0435 \u043c\u043e\u0436\u043d\u043e. \u042f\u0437\u044b\u043a \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u0434\u0435\u043b\u0430\u0442\u044c \u043c\u043d\u043e\u0433\u043e \u0447\u0435\u0433\u043e, \u0432 \u0442\u043e\u043c \u0447\u0438\u0441\u043b\u0435 \u0438 \u0438\u0433\u043d\u043e\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0445\u043e\u0440\u043e\u0448\u0438\u0435 \u043f\u0440\u0430\u043a\u0442\u0438\u043a\u0438.<\/p>\n<p>  \u0415\u0441\u043b\u0438 \u0436\u0435 \u043f\u0435\u0440\u0432\u0430\u044f \u0447\u0430\u0441\u0442\u044c \u043d\u0435 \u043f\u0443\u0441\u0442\u0430\u044f, \u043d\u0430\u0445\u043e\u0434\u0438\u043c \u044f\u0447\u0435\u0439\u043a\u0443, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0443\u044e\u0449\u0443\u044e \u043f\u0435\u0440\u0432\u043e\u0439 \u0431\u0443\u043a\u0432\u0435, \u0434\u043e\u0431\u0430\u0432\u043b\u044f\u0435\u043c \u0442\u0443\u0434\u0430 2-\u0441\u043f\u0438\u0441\u043a\u043e\u043c \u0441\u0442\u0440\u043e\u043a\u0443 \u0431\u0435\u0437 \u043f\u0435\u0440\u0432\u043e\u0439 \u0431\u0443\u043a\u0432\u044b \u0438 \u043f\u043e\u043b\u043d\u0443\u044e. \u041e\u0431\u0440\u0430\u0442\u0438\u0442\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u0435, \u0443 \u0441\u0442\u0440\u043e\u043a\u0438 \u0435\u0441\u0442\u044c \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0439 \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441 \u0434\u043b\u044f \u043f\u043e\u043b\u0443\u0447\u0435\u043d\u0438\u044f \u0441\u0438\u043c\u0432\u043e\u043b\u043e\u0432: <code>char<\/code>. \u0421\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441 \u0445\u043e\u0440\u043e\u0448\u0438\u0439, \u043f\u0440\u043e\u0437\u0440\u0430\u0447\u043d\u044b\u0439, \u043d\u0430\u0434\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u043f\u043e\u043c\u043d\u0438\u0442\u044c, \u0447\u0442\u043e \u0441\u0442\u0440\u043e\u043a\u0430 \u2014 \u044d\u0442\u043e \u043d\u0435 \u0441\u043e\u0432\u0441\u0435\u043c \u0441\u043f\u0438\u0441\u043e\u043a \u0438 \u043d\u0435 \u0441\u043e\u0432\u0441\u0435\u043c \u043c\u0430\u0441\u0441\u0438\u0432.<\/p>\n<p>  \u041f\u043e\u0442\u043e\u043c \u043f\u0440\u043e\u0445\u043e\u0434\u0438\u043c \u043f\u043e \u043c\u0430\u0441\u0441\u0438\u0432\u0443, \u0441\u043d\u043e\u0432\u0430-\u0442\u0430\u043a\u0438 across, \u0438 \u0434\u043b\u044f \u0432\u0441\u0435\u0445 \u044f\u0447\u0435\u0435\u043a, \u0432 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u043f\u043e\u0442\u0435\u043d\u0446\u0438\u0430\u043b\u044c\u043d\u043e \u043c\u043e\u0436\u0435\u0442 \u0431\u044b\u0442\u044c \u043f\u0440\u0435\u0444\u0438\u043a\u0441, \u0437\u0430\u043f\u0443\u0441\u043a\u0430\u0435\u043c \u0435\u0449\u0435 \u0440\u0430\u0437 find-sub.<\/p>\n<p>  \u0420\u0430\u0431\u043e\u0442\u0430\u0435\u0442.<\/p>\n<h5>\u0412\u044b\u0432\u043e\u0434\u044b<\/h5>\n<p>  \u042f\u0437\u044b\u043a Common Lisp \u043e\u0442\u043b\u0438\u0447\u043d\u043e \u043f\u043e\u0434\u0445\u043e\u0434\u0438\u0442 \u0434\u043b\u044f \u0442\u043e\u0433\u043e, \u0447\u0442\u043e\u0431\u044b \u043d\u0435 \u043f\u0438\u0441\u0430\u0442\u044c \u043d\u0430 \u043d\u0435\u043c quicksort. \u041a\u043e\u043d\u0435\u0447\u043d\u043e, \u0441 \u043e\u0434\u043d\u043e\u0439 \u0441\u0442\u043e\u0440\u043e\u043d\u044b, \u043d\u0435 \u0445\u0432\u0430\u0442\u0430\u0435\u0442 \u043c\u043d\u043e\u0433\u0438\u0445 \u043f\u0440\u0438\u0432\u044b\u0447\u043d\u044b\u0445 \u0432\u0435\u0449\u0435\u0439: \u043a\u043e\u0440\u0442\u0435\u0436\u0435\u0439, \u0441\u043f\u043b\u0438\u0442\u0430, \u043b\u0430\u043a\u043e\u043d\u0438\u0447\u043d\u043e\u0433\u043e \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441\u0430 \u0434\u043b\u044f \u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432 \u0438 \u0445\u0435\u0448-\u0442\u0430\u0431\u043b\u0438\u0446. \u0421 \u0434\u0440\u0443\u0433\u043e\u0439 \u0441\u0442\u043e\u0440\u043e\u043d\u044b, \u0435\u0441\u0442\u044c \u043e\u0442\u043b\u0438\u0447\u043d\u0435\u0439\u0448\u0438\u0439 loop, \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u043d\u0435\u0442 \u0431\u043e\u043b\u044c\u0448\u0435 \u043d\u0438\u0433\u0434\u0435. \u0421\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441 \u0434\u043b\u044f \u043c\u0430\u0441\u0441\u0438\u0432\u043e\u0432 \u043c\u043e\u0436\u0435\u0442 \u043f\u043e\u043a\u0430\u0437\u0430\u0442\u044c\u0441\u044f \u0442\u044f\u0436\u0435\u043b\u043e\u0432\u0430\u0442\u044b\u043c, \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u043e, \u043e\u043d \u0438 \u0442\u044f\u0436\u0435\u043b\u043e\u0432\u0430\u0442, \u0437\u0430\u0442\u043e \u0438\u043d\u0438\u0446\u0438\u0430\u043b\u0438\u0437\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0438\u0445 \u043e\u0434\u043d\u043e \u0443\u0434\u043e\u0432\u043e\u043b\u044c\u0441\u0442\u0432\u0438\u0435. <\/p>\n<p>  \u0421\u0430\u043c\u043e\u0435 \u0433\u043b\u0430\u0432\u043d\u043e\u0435 \u0434\u043e\u0441\u0442\u043e\u0438\u043d\u0441\u0442\u0432\u043e CL \u2014 \u0433\u0438\u0431\u043a\u043e\u0441\u0442\u044c \u0438 \u043c\u043d\u043e\u0433\u043e\u0432\u0430\u0440\u0438\u0430\u043d\u0442\u043d\u043e\u0441\u0442\u044c \u0441\u0438\u043d\u0442\u0430\u043a\u0441\u0438\u0441\u0430. \u041e\u0434\u043d\u0438 \u0438 \u0442\u0435 \u0436\u0435 \u0432\u0435\u0449\u0438 \u043c\u043e\u0436\u043d\u043e \u0434\u0435\u043b\u0430\u0442\u044c \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u043e\u043c \u0440\u0430\u0437\u043d\u044b\u0445 \u0441\u043f\u043e\u0441\u043e\u0431\u043e\u0432. \u0418\u043d\u043e\u0433\u0434\u0430 \u044d\u0442\u043e \u043f\u043b\u043e\u0445\u043e, \u043f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u0431\u043e\u043b\u044c\u0448\u0435 \u0432\u043d\u0438\u043c\u0430\u043d\u0438\u044f \u0443\u0434\u0435\u043b\u044f\u0442\u044c \u0441\u043e\u0433\u043b\u0430\u0448\u0435\u043d\u0438\u044f\u043c\u0438 \u0438 \u0440\u0443\u043a\u043e\u0432\u043e\u0434\u0441\u0442\u0432\u0430\u043c, \u043d\u043e \u0432 \u043e\u0441\u043d\u043e\u0432\u043d\u043e\u043c \u0445\u043e\u0440\u043e\u0448\u043e. \u0412\u044b\u0440\u0430\u0437\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c \u044f\u0437\u044b\u043a\u0430 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u043f\u043e\u0434\u043e\u0439\u0442\u0438 \u043a \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0435 \u0441 \u043b\u044e\u0431\u043e\u0439 \u0443\u0434\u043e\u0431\u043d\u043e\u0439 \u0441\u0442\u043e\u0440\u043e\u043d\u044b \u0438 \u0441\u043f\u0440\u043e\u0441\u0438\u0442\u044c \u0434\u043e\u043a\u0443\u043c\u0435\u043d\u0442\u044b.    \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\/post\/190184\/\"> http:\/\/habrahabr.ru\/post\/190184\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<div class=\"content html_format\">   \t\u041f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u043d\u0435\u0437\u0430\u0447\u0435\u043c. \u0412\u043e-\u043f\u0435\u0440\u0432\u044b\u0445, \u0432\u0441\u0435 \u0443\u0436\u0435 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u043e \u0438 \u043d\u0435 \u0440\u0430\u0437. \u0412\u043e-\u0432\u0442\u043e\u0440\u044b\u0445, \u0448\u0442\u0430\u0442\u043d\u044b\u0439 sort \u0432 \u043e\u0431\u0449\u0435\u043c \u0441\u043b\u0443\u0447\u0430\u0435 \u0440\u0430\u0431\u043e\u0442\u0430\u0435\u0442 \u043d\u0435 \u0445\u0443\u0436\u0435. \u0412-\u0442\u0440\u0435\u0442\u044c\u0438\u0445, \u0432 \u043c\u043e\u0434\u0443 \u0432\u0445\u043e\u0434\u044f\u0442 \u0437\u0430\u0434\u0430\u0447\u043a\u0438, \u0442\u0440\u0435\u0431\u0443\u044e\u0449\u0438\u0435 \u043d\u0435 \u0441\u0442\u043e\u043b\u044c\u043a\u043e \u0443\u043c\u0435\u043d\u0438\u044f \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c\u0441\u044f \u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u043a\u043e\u0439, \u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043e\u0431\u0445\u043e\u0434\u0438\u0442\u044c\u0441\u044f \u0432\u043e\u043e\u0431\u0449\u0435 \u0431\u0435\u0437 \u043d\u0435\u0435. \u0412\u0437\u044f\u0442\u044c, \u043a \u043f\u0440\u0438\u043c\u0435\u0440\u0443, \u0432\u043e\u0442 \u044d\u0442\u0443 \u0441 \u0441\u043e\u0431\u0435\u0441\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f \u0432 Microsoft.<\/p>\n<h5>1. \u0410\u043d\u0430\u0433\u0440\u0430\u043c\u043c\u044b<\/h5>\n<p>  \u0418\u043c\u0435\u0435\u0442\u0441\u044f \u043c\u0430\u0441\u0441\u0438\u0432 \u0447\u0435\u043b\u043e\u0432\u0435\u0447\u0435\u0441\u043a\u0438\u0445 \u0441\u043b\u043e\u0432. \u041d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0441\u043b\u043e\u0432\u0430 \u043c\u043e\u0433\u0443\u0442 \u044f\u0432\u043b\u044f\u0442\u044c\u0441\u044f \u0430\u043d\u0430\u0433\u0440\u0430\u043c\u043c\u0430\u043c\u0438 \u043f\u043e \u043e\u0442\u043d\u043e\u0448\u0435\u043d\u0438\u044e \u0434\u0440\u0443\u0433 \u0443 \u0434\u0440\u0443\u0433\u0443. \u041d\u0430\u0434\u043e \u043d\u0430\u0439\u0442\u0438 \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0442\u0430\u043a\u0438\u0445 \u0441\u043b\u043e\u0432, \u043f\u0440\u0438\u0447\u0435\u043c \u0441\u043b\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0430 \u0434\u043e\u043b\u0436\u043d\u0430 \u0431\u044b\u0442\u044c \u043b\u0438\u043d\u0435\u0439\u043d\u043e\u0439.<\/p>\n<p>  \u041e\u0447\u0435\u0432\u0438\u0434\u043d\u043e\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u2014 \u043e\u0442\u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0441\u0430\u043c\u0438 \u0441\u043b\u043e\u0432\u0430, \u043f\u043e\u0442\u043e\u043c \u043e\u0442\u0441\u043e\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u043c\u0430\u0441\u0441\u0438\u0432, \u043f\u0440\u043e\u0439\u0442\u0438\u0441\u044c \u043f\u043e \u043d\u0435\u043c\u0443 \u0438 \u043f\u043e\u0441\u0447\u0438\u0442\u0430\u0442\u044c \u043a\u043e\u043b\u0438\u0447\u0435\u0441\u0442\u0432\u043e \u0441\u043b\u043e\u0432 \u0441 \u0441\u0430\u043c\u043e\u043f\u043e\u0434\u043e\u0431\u043d\u044b\u043c\u0438 \u0441\u043e\u0441\u0435\u0434\u044f\u043c\u0438.<\/p>\n<p>  \u041d\u0430 CL \u044d\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u043d\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0442\u0430\u043a:<\/p>\n<pre><code class=\"lisp\">(defvar *words* (list &quot;thore&quot; &quot;ganamar&quot; &quot;notanagram&quot; &quot;anagram&quot; &quot;other&quot;))  ((lambda (words)      (loop for (a b c) in                  (mapcar #'list words (append '(&quot;&quot;) words) (append '(&quot;&quot; &quot;&quot;) words))         count (or (equal a b) (equal b c))))     (sort (mapcar (lambda (one-word) (sort one-word #'char-lessp)) *words*) #'string-lessp)) <\/code><\/pre>\n<p>  <\/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-190184","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/190184","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=190184"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/190184\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=190184"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=190184"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=190184"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}