{"id":305302,"date":"2020-06-14T03:00:21","date_gmt":"2020-06-14T03:00:21","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=305302"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=305302","title":{"rendered":"Logical FizzBuzz"},"content":{"rendered":"\n<div class=\"post__text post__text-html post__text_v1\" id=\"post-content-body\" data-io-article-url=\"https:\/\/habr.com\/ru\/post\/506586\/\">\n<p>\u041f\u0440\u0438\u0432\u0435\u0442, \u0430\u0431\u0441\u0442\u0440\u0430\u0433\u0438\u0440\u0443\u044e\u0449\u0438\u043c\u0441\u044f. \u041f\u0440\u043e\u0447\u0438\u0442\u0430\u0432 <a href=\"https:\/\/habr.com\/ru\/post\/506570\/\">\u044d\u0442\u0443<\/a> \u0441\u0442\u0430\u0442\u044c\u044e, \u0437\u0430\u0434\u0443\u043c\u0430\u043b\u0441\u044f, \u0430 \u043a\u0430\u043a \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0442\u044c \u044d\u0442\u0443 \u0437\u0430\u0434\u0430\u0447\u0443 \u044f\u0437\u044b\u043a\u043e\u043c \u041f\u0440\u043e\u043b\u043e\u0433? \u041f\u043e\u043f\u0440\u043e\u0431\u0443\u044e \u0432\u044b\u0440\u0430\u0437\u0438\u0442\u044c \u0441\u0432\u043e\u0435, \u0437\u0430\u0442\u044f\u043d\u0443\u0432\u0448\u0435\u0435\u0441\u044f, \u0441\u0443\u0431\u0431\u043e\u0442\u043d\u0435\u0435 \u043e\u0442\u043d\u043e\u0448\u0435\u043d\u0438\u0435 \u043a \u044d\u0442\u043e\u0439 \u043f\u044f\u0442\u043d\u0438\u0447\u043d\u043e\u0439 \u0437\u0430\u0434\u0430\u0447\u0435, \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b\u0445 \u0434\u0435\u043a\u043b\u0430\u0440\u0430\u0442\u0438\u0432\u043d\u044b\u0445 \u0444\u043e\u0440\u043c\u0443\u043b\u0438\u0440\u043e\u0432\u043e\u043a.<br \/>  \u0412 \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 \u043d\u0430 \u0421\u043a\u0430\u043b\u0430, \u044f \u0443\u0432\u0438\u0434\u0435\u043b \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u044e &quot;(value % n)&quot; \u0438 \u043f\u043e\u044f\u0441\u043d\u0435\u043d\u0438\u0435, \u0447\u0442\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f value,n -\u044d\u0442\u043e: <em>type class &quot;Integral&quot; \u0442\u0440\u0435\u0431\u0443\u044e\u0449\u0438\u0439 \u043e\u0442 \u0442\u0438\u043f\u0430 &quot;T&quot; \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0438 \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0442\u044c \u043e\u0441\u0442\u0430\u0442\u043e\u043a \u043e\u0442 \u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0438 \u0438\u043c\u0435\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 &quot;zero&quot;<\/em>.<br \/>  \u042d\u0442\u043e \u043c\u0435\u043d\u044f \u043f\u043e\u0434\u0442\u043e\u043b\u043a\u043d\u0443\u043b\u043e, \u043d\u0430 \u0442\u0430\u043a\u0443\u044e \u043c\u044b\u0441\u043b\u044c, \u0430 \u043c\u043e\u0436\u0435\u0442 \u0430\u0431\u0441\u0442\u0440\u0430\u0433\u0438\u0440\u0443\u0435\u043c\u0441\u044f \u0435\u0449\u0435 \u0431\u043e\u043b\u044c\u0448\u0435, \u0438 \u043e\u0442\u0431\u0440\u043e\u0441\u0438\u043c \u0430\u0440\u0438\u0444\u043c\u0435\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0435 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438 \u044d\u0442\u043e\u0433\u043e &quot;<em>\u0438\u043d\u0442\u044d\u0433\u0440\u0430\u043b<\/em>&quot;, \u043c\u043e\u0436\u0435\u0442 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u0433\u043b\u0443\u0431\u0436\u0435 \u0438\u0434\u0435\u044e \u043d\u0430\u0442\u0443\u0440\u0430\u043b\u044c\u043d\u044b\u0445 \u0447\u0438\u0441\u0435\u043b, \u0441\u0435\u0439\u0447\u0430\u0441 \u043f\u043e\u043f\u0440\u043e\u0431\u0443\u044e \u043f\u0440\u043e\u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0438 \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044e&#8230;<\/p>\n<p><a name=\"habracut\"><\/a>  <\/p>\n<p>\u042d\u0442\u043e \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u043b\u0438 \u0435\u0449\u0435 \u0432 \u0414\u0440\u0435\u0432\u043d\u0435\u0439 \u0413\u0440\u0435\u0446\u0438\u0438, \u043d\u0430\u0442\u0443\u0440\u0430\u043b\u044c\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e N \u2014 \u044d\u0442\u043e 0 \u0438\u043b\u0438 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0435 \u0437\u0430 \u043d\u0438\u043c \u043d\u0430\u0442\u0443\u0440\u0430\u043b\u044c\u043d\u043e\u0435 \u0447\u0438\u0441\u043b\u043e, \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 p(N).<br \/>  \u0417\u0430\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u043c\u043e\u0436\u043d\u043e \u0442\u0430\u043a N0= 0,<br \/>  \u043f\u043e\u0442\u043e\u043c N1=p(0), \u0438 \u0434\u0430\u043b\u0435\u0435 N2=p(p(0)) \u2014 \u0432\u043e\u0442 \u0442\u0430\u043a\u043e\u0439 \u0440\u044f\u0434 \u043d\u0430\u0442\u0443\u0440\u0430\u043b\u044c\u043d\u044b\u0445 \u0447\u0438\u0441\u0435\u043b, \u043e\u0442 0 \u0438 \u0434\u0430\u043b\u0435\u0435 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0435 \u0438 \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435:<\/p>\n<p>  <\/p>\n<p>\u0418\u0437\u043e\u0431\u0440\u0430\u0436\u0430\u044e \u044d\u0442\u043e \u043d\u0430 \u041f\u0440\u043e\u043b\u043e\u0433\u0435:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">natural(0). natural(N+1):-natural(N).<\/code><\/pre>\n<p>  <\/p>\n<p>\u0435\u0441\u043b\u0438 \u0432\u044b\u043f\u043e\u043b\u043d\u0438\u0442\u044c \u0442\u0430\u043a\u0443\u044e \u0446\u0435\u043b\u044c, \u043f\u043e\u043b\u0443\u0447\u0438\u043c \u0431\u0435\u0441\u043a\u043e\u043d\u0435\u0447\u043d\u043e\u0441\u0442\u044c \u043e\u0442\u0432\u0435\u0442\u043e\u0432: <\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?-natural(X). X=0; X=0+1; X=0+1+1: .... \u043d\u0443 \u0438 \u0442\u0434.<\/code><\/pre>\n<p>  <\/p>\n<p>\u041e\u0442 \u044d\u0442\u043e\u0433\u043e, \u043f\u043e\u043b\u044c\u0437\u044b \u0431\u043e\u043b\u044c\u0448\u043e\u0439 \u043d\u0435 \u0438\u0437\u0432\u043b\u0435\u0447\u044c, \u0430 \u043a\u0430\u043a \u0447\u0430\u0441\u0442\u044c \u043e\u0431\u044a\u044f\u0441\u043d\u0435\u043d\u0438\u044f \u0433\u043e\u0434\u0438\u0442\u0441\u044f, \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043f\u0435\u0440\u0435\u043c\u0435\u043d\u043d\u043e\u0439 X \u044f\u0432\u043b\u044f\u044e\u0442\u0441\u044f \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430\u043c\u0438, \u0432 \u041f\u0440\u043e\u043b\u043e\u0433\u0435 \u0435\u0441\u0442\u044c \u0438\u043d\u0444\u0438\u043a\u0441\u043d\u044b\u0435 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043c\u043e\u0433\u0443\u0442 \u0441\u043e\u0435\u0434\u0438\u043d\u0438\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u043c\u0435\u0436\u0434\u0443 \u0441\u043e\u0431\u043e\u0439, \u0432\u043c\u0435\u0441\u0442\u043e \u0433\u0440\u043e\u043c\u043e\u0437\u0434\u043a\u043e\u0439 \u0437\u0430\u043f\u0438\u0441\u0438 p(p(p..(p(0)..))), \u043f\u0440\u043e\u0441\u0442\u043e \u0441\u043e\u0435\u0434\u0438\u043d\u0438\u043c \u0441\u0438\u043c\u0432\u043e\u043b\u044b \u0437\u043d\u0430\u043a\u043e\u043c &quot;+&quot;: 0+1+1+1+1\u2026 \u044d\u0442\u043e \u043f\u0440\u043e\u0441\u0442\u043e \u0442\u0430\u043a\u043e\u0435 \u0441\u0438\u043c\u0432\u043e\u043b\u044c\u043d\u043e\u0435 \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u0435, \u043f\u043e\u0447\u0442\u0438 \u0441\u0442\u0440\u043e\u043a\u0430, \u0430 \u043c\u043e\u0436\u043d\u043e \u0431\u044b \u0437\u0430\u043f\u0438\u0441\u0430\u0442\u044c \u0438 \u043a\u0430\u043a: zero plus one plus one.<br \/>  \u0412\u043e\u0442 \u0442\u0430\u043a, \u043c\u043e\u0436\u043d\u043e \u043e\u0431\u044a\u044f\u0432\u043b\u044f\u0442\u044c \u0441\u0432\u043e\u0439 \u0437\u043d\u0430\u043a \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">:-op(600, yfx, plus). %op(+Precedence, +Type, :Name)  natural(zero). natural(N plus one):-natural(N).<\/code><\/pre>\n<p>  <\/p>\n<p>\u0411\u0443\u0434\u0443\u0442 \u0442\u0430\u043a\u0438\u0435 \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u0438\u044f \u0447\u0438\u0441\u0435\u043b:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- natural(X). X = zero ; X = zero plus one ; X = zero plus one plus one ; ...<\/code><\/pre>\n<p>  <\/p>\n<p>\u0414\u0430\u043b\u0435\u0435, \u043f\u043e\u043b\u0435\u0437\u043d\u043e \u0431\u0443\u0434\u0435\u0442 \u0441\u0444\u043e\u0440\u043c\u0443\u043b\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0443\u044e \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0443, \u043a\u0430\u043a \u0432\u044b\u0440\u0430\u0436\u0430\u0442\u044c \u0441\u043b\u043e\u0436\u0435\u043d\u0438\u0435 \u0438\u043b\u0438 \u0432\u044b\u0447\u0438\u0442\u0430\u043d\u0438\u0435 \u043d\u0430\u0434 \u0434\u0432\u0443\u043c\u044f \u0442\u0430\u043a\u0438\u043c\u0438 \u043d\u0430\u0442\u0443\u0440\u0430\u043b\u044c\u043d\u044b\u043c\u0438 \u0447\u0438\u0441\u043b\u0430\u043c\u0438?,<br \/>  \u0432\u043e\u0442 \u043e\u043d\u043e:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">add(0, X, X). add(X+1, Y, Z+1):- add(X, Y, Z).<\/code><\/pre>\n<p>  <\/p>\n<p>\u0422\u0435\u043f\u0435\u0440\u044c \u043c\u043e\u0436\u043d\u043e \u0440\u0435\u0448\u0438\u0442\u044c \u0432\u043e\u0442 \u0442\u0430\u043a\u0438\u0435 \u0446\u0435\u043b\u0438 \u0434\u043b\u044f \u0441\u043b\u043e\u0436\u0435\u043d\u0438\u044f:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- add(0+1,  0+1+1, X). X=0+1+1+1<\/code><\/pre>\n<p>  <\/p>\n<p>\u0418 \u0432\u043e\u0442 \u0442\u0430\u043a\u043e\u0439 \u0432\u043e\u043f\u0440\u043e\u0441, \u043f\u0440\u0435\u0432\u0440\u0430\u0442\u0438\u0442\u0441\u044f \u0432 \u0432\u044b\u0447\u0438\u0442\u0430\u043d\u0438\u0435 \u043d\u0430\u0442\u0443\u0440\u0430\u043b\u044c\u043d\u044b\u0445 \u0447\u0438\u0441\u0435\u043b:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- add(X,  0+1+1+1,  0+1+1+1+1). X=0+1<\/code><\/pre>\n<p>  <\/p>\n<p>\u041c\u043e\u0436\u043d\u043e \u043f\u043e\u043b\u0443\u0447\u0430\u0442\u044c \u0432\u0441\u0435 \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u044b\u0435 \u043d\u0430\u0442\u0443\u0440\u0430\u043b\u044c\u043d\u044b\u0435 \u0441\u043b\u0430\u0433\u0430\u0435\u043c\u044b\u0435, \u0441\u043e\u0441\u0442\u0430\u0432\u0438\u0432\u0448\u0438\u0435 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0435\u043d\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- add(X, Y, 0+1+1+1+1). X=0, Y=0+1+1+1+1; X=0+1, Y=0+1+1+1; X=0+1+1, Y=0+1+1;.. \u0438 \u0442\u0434.<\/code><\/pre>\n<p>  <\/p>\n<p>\u041f\u043e\u0434\u0431\u0438\u0440\u0430\u0435\u043c\u0441\u044f \u043a \u0441\u0443\u0442\u0438 \u044d\u0442\u043e\u0439 \u0437\u0430\u043f\u0438\u0441\u043a\u0438, \u0443\u043c\u0435\u043d\u0438\u0435 \u0430\u0431\u0441\u0442\u0440\u0430\u0433\u0438\u0440\u043e\u0432\u0430\u0442\u044c\u0441\u044f, \u0440\u0430\u0437\u0434\u0435\u043b\u044f\u0442\u044c \u043f\u043e\u043d\u044f\u0442\u0438\u044f \u043d\u0430 \u0431\u043e\u043b\u0435\u0435 \u043f\u0440\u0438\u043c\u0438\u0442\u0438\u0432\u043d\u044b\u0435, \u0434\u043e \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u044f \u0438\u0445 \u0442\u043e\u0447\u043d\u043e\u0433\u043e \u0438 \u043a\u0440\u0430\u0442\u043a\u043e\u0433\u043e \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u044f \u2014 \u044d\u0442\u043e \u0438 \u0435\u0441\u0442\u044c \u0432\u0430\u0436\u043d\u0430\u044f \u0447\u0430\u0441\u0442\u044c \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f, \u044d\u0442\u043e, \u0434\u0443\u043c\u0430\u044e, \u0440\u0430\u0434\u043e\u0441\u0442\u044c \u043b\u044e\u0431\u043e\u0439 \u0438\u043d\u0436\u0435\u043d\u0435\u0440\u0438\u0438\u2026 <\/p>\n<p>  <\/p>\n<p>\u0412 \u0437\u0430\u0434\u0430\u0447\u0435, \u043d\u0430 \u0432\u0445\u043e\u0434 \u043f\u043e\u0441\u0442\u0443\u043f\u044f\u0442 \u0447\u0438\u0441\u043b\u0430, \u0437\u0430\u043f\u0438\u0441\u0430\u043d\u043d\u044b\u0435 \u043a\u0430\u043a \u0446\u0435\u043b\u044b\u0435, \u0430\u0440\u0430\u0431\u0441\u043a\u0438\u0435, \u0438 \u0435\u0441\u043b\u0438 \u043d\u0435 \u043e\u0442\u043c\u0435\u043d\u044f\u0442\u044c \u044d\u0442\u043e \u0443\u0441\u043b\u043e\u0432\u0438\u0435 \u0438 \u043d\u0435 \u043f\u0440\u043e\u0441\u0438\u0442\u044c \u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u0435\u043b\u044f \u043f\u0435\u0440\u0435\u0434\u0430\u0432\u0430\u0442\u044c \u043d\u0430 \u0432\u0445\u043e\u0434, \u0442\u043e\u043b\u044c\u043a\u043e \u0447\u0442\u043e \u043f\u043e\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0435 \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u044b, \u0440\u0435\u0430\u043b\u0438\u0437\u0443\u044e \u0442\u0430\u043a\u043e\u0435 \u043f\u0440\u0430\u0432\u0438\u043b\u043e:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">int_natural(0,0). int_natural(X, Y+1):- X0 is X-1,  int_natural(X0, Y).<\/code><\/pre>\n<p>  <\/p>\n<p>\u043e\u043d\u043e \u0441\u043c\u043e\u0436\u0435\u0442 \u043a\u043e\u043d\u0432\u0435\u0440\u0442\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0446\u0435\u043b\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u0432 \u0435\u0433\u043e &quot;\u043d\u0430\u0442\u0443\u0440\u0430\u043b\u044c\u043d\u043e\u0435&quot; \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u0435\u043d\u0438\u0435:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- int_natural(6,X). X=0+1+1+1+1+1+1 <\/code><\/pre>\n<p>  <\/p>\n<p>\u041e\u043f\u0435\u0440\u0430\u0446\u0438\u044f <em>is<\/em> \u2014 \u044d\u0442\u043e \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u043e\u0435 \u0432\u044b\u0447\u0438\u0441\u043b\u0435\u043d\u0438\u0435 \u0430\u0440\u0438\u0444\u043c\u0435\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0445 \u0434\u0435\u0439\u0441\u0442\u0432\u0438\u0439.<br \/>  \u0422\u0435\u043f\u0435\u0440\u044c \u0431\u043b\u0438\u0436\u0435 \u043a \u0437\u0430\u0434\u0430\u0447\u0435, \u0442\u0430\u043c \u0431\u044b\u043b\u043e, \u043f\u0440\u043e \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u043e\u0441\u0442\u0430\u0442\u043e\u043a \u043e\u0442 \u0434\u0435\u043b\u0435\u043d\u0438\u044f. \u0421\u043d\u0430\u0447\u0430\u043b\u0430 \u043f\u0440\u043e\u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0438\u0440\u0443\u044e \u0443\u043c\u043d\u043e\u0436\u0435\u043d\u0438\u0435:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">mul(0, X, 0). mul(X+1, Y, Z):- mul(X, Y, Z1), add(Z1, Y, Z).<\/code><\/pre>\n<p>  <\/p>\n<p>\u044d\u0442\u043e \u043c\u043e\u0436\u043d\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u0442\u044c \u0438 \u0434\u043b\u044f \u043e\u0431\u0440\u0430\u0442\u043d\u043e\u0439 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438 \u2014 \u0434\u043b\u044f \u0434\u0435\u043b\u0435\u043d\u0438\u044f:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- mul(0+1+1, 0+1+1, X). X=0+1+1+1+1 ?- mul(0+1+1, X, 0+1+1+1+1). X=0+1+1<\/code><\/pre>\n<p>  <\/p>\n<p>\u0412\u043e\u0442 \u0442\u0430\u043a, \u0441\u0444\u043e\u0440\u043c\u0443\u043b\u0438\u0440\u0443\u044e \u043e\u0441\u0442\u0430\u0442\u043e\u043a \u043e\u0442 \u0434\u0435\u043b\u0435\u043d\u0438\u044f:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">rem(X, X, 0). rem(X, Y, R) :- add(X1,Y,X), rem(X1,Y,R),!. rem(X, _, X):-!.<\/code><\/pre>\n<p>  <\/p>\n<p>\u0442\u0443\u0442 \u0438 \u043e\u0442\u0441\u0435\u0447\u0435\u043d\u0438\u0435 (!) \u0437\u0430\u0440\u0430\u043d\u0435\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u043d\u043e, \u0447\u0442\u043e \u0431\u044b \u043d\u0435 <em>\u0448\u043e\u043a\u0438\u0440\u043e\u0432\u0430\u0442\u044c<\/em> \u0447\u0438\u0442\u0430\u0442\u0435\u043b\u0435\u0439 \u0444\u0443\u043d\u043a\u0446\u0438\u0435\u0439 \u043e\u0431\u0440\u0430\u0442\u043d\u043e\u0439 \u043a &quot;\u043e\u0441\u0442\u0430\u0442\u043a\u0443 \u043e\u0442 \u0434\u0435\u043b\u0435\u043d\u0438\u044f&quot;, \u044d\u0442\u043e, \u043d\u0430\u0432\u0435\u0440\u043d\u043e\u0435, \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u044f &quot;\u0441\u043b\u0435\u0434\u0443\u044e\u0449\u0435\u0435 \u0447\u0438\u0441\u043b\u043e, \u043d\u0435 \u043a\u0440\u0430\u0442\u043d\u043e\u0435 \u043d\u0430 \u043e\u0434\u043d\u0443 \u0432\u0435\u043b\u0438\u0447\u0438\u043d\u0443 \u043e\u0441\u0442\u0430\u0442\u043a\u0430&quot;, \u0442\u0438\u043f\u0430 \u0442\u0430\u043a:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- rem(X, 0+1+1+1, 0+1). X = 0+1+1+1+1 ; X = 0+1+1+1+1+1+1+1 ; X = ... + ... + 1+1+1+1+1+1+1+1+1 ... \u0438 \u0442\u0434.<\/code><\/pre>\n<p>  <\/p>\n<p>&quot;\u041f\u0440\u044f\u043c\u043e\u0435&quot; \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435 \u044d\u0442\u043e\u0433\u043e \u043f\u0440\u0430\u0432\u0438\u043b\u0430 \u0432\u043e\u0442:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- rem(0+1+1+1+1, 0+1+1, X). X = 0. ?- rem(0+1+1+1+1, 0+1+1+1, X). X = 0+1. <\/code><\/pre>\n<p>  <\/p>\n<h3 id=\"fizzbuzz\">FizzBuzz<\/h3>\n<p>  <\/p>\n<p>\u041e\u0442\u043b\u0438\u0447\u043d\u043e, \u0432\u0441\u044e \u0437\u0430\u0434\u0430\u0447\u0443 \u0441\u0444\u043e\u0440\u043c\u0443\u043b\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0442\u0435\u043f\u0435\u0440\u044c \u043c\u043e\u0436\u043d\u043e, \u0442\u0430\u043a\u0438\u043c \u0432\u0438\u0434\u043e\u043c:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">fizz_buzz(N, fizzbuzz) :- rem(N, 0+1+1+1, 0), rem(N, 0+1+1+1+1+1, 0),!. fizz_buzz(N, fizz) :- rem(N, 0+1+1+1, 0),!. fizz_buzz(N, buzz) :- rem(N, 0+1+1+1+1+1, 0),!. fizz_buzz(N, N).<\/code><\/pre>\n<p>  <\/p>\n<p>\u041f\u0440\u0438\u0445\u043e\u0434\u0438\u0442\u0441\u044f \u043e\u043f\u044f\u0442\u044c \u043f\u043e\u0441\u0442\u0430\u0432\u0438\u0442\u044c \u043e\u0442\u0441\u0435\u0447\u0435\u043d\u0438\u044f, \u0434\u043b\u044f \u043f\u043e\u0432\u044b\u0448\u0435\u043d\u0438\u044f \u043d\u0430\u0433\u043b\u044f\u0434\u043d\u043e\u0441\u0442\u0438, \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u043d\u0438\u0445, \u043d\u0435 \u043d\u0430\u0434\u043e \u0434\u0443\u043c\u0430\u0442\u044c \u043e \u043f\u0440\u043e\u0442\u0438\u0432\u043e\u043f\u043e\u043b\u043e\u0436\u043d\u044b\u0445 \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u0430\u0445 \u0440\u0435\u0448\u0435\u043d\u0438\u0439, \u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0435\u043c \u0442\u043e\u043b\u044c\u043a\u043e \u0438\u0441\u0442\u0438\u043d\u043d\u044b\u0435 \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u044b \u0441\u0432\u0435\u0440\u0445\u0443 \u0432\u043d\u0438\u0437, \u0430 \u043f\u043e\u0441\u043b\u0435\u0434\u043d\u0438\u0439 \u0432\u0430\u0440\u0438\u0430\u043d\u0442 \u2014 \u044d\u0442\u043e \u0438\u0441\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435 \u0438\u0437 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0438\u0445. \u0418 \u0432\u0445\u043e\u0434\u043e\u043c \u0442\u0443\u0442 \u044f\u0432\u043b\u044f\u0435\u0442\u0441\u044f \u0441\u0442\u0440\u0443\u043a\u0442\u0443\u0440\u0430, \u0441 \u0437\u0430\u043f\u0438\u0441\u044c\u044e \u043d\u0430\u0442\u0443\u0440\u0430\u043b\u044c\u043d\u043e\u0433\u043e \u0447\u0438\u0441\u043b\u0430, \u043f\u0440\u043e\u0432\u0435\u0440\u0438\u043c \u0432\u043e\u0442 \u0442\u0430\u043a:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- int_natural(5, N),!, fizz_buzz(N, X). N = 0+1+1+1+1+1, X = buzz. ?- int_natural(15, N),!, fizz_buzz(N, X). N = ... + ... + 1+1+1+1+1+1+1+1+1, X = fizzbuzz.<\/code><\/pre>\n<p>  <\/p>\n<p>\u0438\u043b\u0438 \u043f\u043e \u0443\u0441\u043b\u043e\u0432\u0438\u044e, \u043d\u0430 \u0432\u044b\u0445\u043e\u0434\u0435 \u043f\u043e\u043b\u0443\u0447\u0430\u0435\u043c \u0442\u043e\u0436\u0435 \u0447\u0438\u0441\u043b\u043e:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- int_natural(4, N),!, fizz_buzz(N, X). N = X, X = 0+1+1+1+1.<\/code><\/pre>\n<p>  <\/p>\n<p>\u0418\u0441\u043a\u043b\u044e\u0447\u0438\u0432 \u043f\u0440\u0435\u0434\u044b\u0434\u0443\u0449\u0438\u0435 \u043d\u0435\u0434\u043e\u0441\u0442\u0430\u0442\u043a\u0438 \u0438 \u043d\u0435\u043c\u043d\u043e\u0433\u043e \u043f\u043e\u0434\u0443\u043c\u0430\u0432 \u043f\u0440\u043e \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u0435\u043b\u044c\u043d\u043e\u0441\u0442\u044c, \u0443\u043f\u0440\u043e\u0449\u0430\u044e \u0434\u043e \u0442\u0430\u043a\u043e\u0433\u043e &quot;\u0430\u043b\u0433\u043e\u0440\u0438\u0442\u043c\u0430&quot;:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">fizz_buzz2(IN, R) :-once(int_natural(IN,N)),                     once(rem(N, 0+1+1+1, 0) -&gt; F=fizz; F=''),                     once(rem(N, 0+1+1+1+1+1, 0) -&gt; B=buzz; (F\\='')-&gt;B=''),                     atom_concat(F,B,R),!. fizz_buzz2(N, N).<\/code><\/pre>\n<p>  <\/p>\n<p>\u0412 \u044d\u0442\u043e\u043c \u0432\u0430\u0440\u0438\u0430\u043d\u0442\u0435 \u0441\u0440\u0430\u0437\u0443 \u043f\u0435\u0440\u0435\u0432\u043e\u0434\u0438\u043c \u0432\u0445\u043e\u0434\u043d\u043e\u0435 \u0446\u0435\u043b\u043e\u0435 \u0447\u0438\u0441\u043b\u043e \u0438 \u043a\u043e\u043c\u043f\u043e\u043d\u0443\u0435\u043c \u0432\u044b\u0445\u043e\u0434\u043d\u043e\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0438\u0437 \u0447\u0430\u0441\u0442\u0435\u0439, \u0435\u0441\u043b\u0438 \u044d\u0442\u043e \u043f\u043e\u0442\u0440\u0435\u0431\u043e\u0432\u0430\u043b\u043e\u0441\u044c. \u0412\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u043e\u0435 \u043f\u0440\u0430\u0432\u0438\u043b\u043e <em>once(Goal)<\/em>, \u0432\u044b\u043f\u043e\u043b\u043d\u044f\u0435\u0442 \u0446\u0435\u043b\u044c \u0442\u043e\u043b\u044c\u043a\u043e \u043e\u0434\u0438\u043d \u0440\u0430\u0437, \u0434\u043b\u044f \u0438\u0441\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f \u0432\u043e\u0437\u0432\u0440\u0430\u0442\u043e\u0432 \u0438 \u0437\u0430\u0446\u0438\u043a\u043b\u0438\u0432\u0430\u043d\u0438\u0439.<br \/>  \u0412\u043e\u0442 \u0442\u0430\u043a\u0438\u0435 \u043f\u0440\u0438\u043c\u0435\u0440\u044b:<\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- fizz_buzz2(2, X). X = 2. ?- fizz_buzz2(15, X). X = fizzbuzz.<\/code><\/pre>\n<p>  <\/p>\n<p>\u041e\u0431\u0440\u0430\u0431\u043e\u0442\u043a\u0443 \u0440\u044f\u0434\u0430 \u0447\u0438\u0441\u0435\u043b, \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c <del>\u043e\u0442\u043e\u0431\u0440\u0430\u0437\u0438\u0432<\/del> \u0441\u043e\u0431\u0440\u0430\u0432 \u0432\u0441\u0435 \u0440\u0435\u0448\u0435\u043d\u0438\u044f, \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u0439 \u0446\u0435\u043b\u0438 \u0432 \u043e\u0434\u0438\u043d \u0441\u043f\u0438\u0441\u043e\u043a, \u0434\u043b\u044f \u044d\u0442\u043e\u0433\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0439 \u043c\u0435\u0442\u0430-\u043f\u0440\u0435\u0434\u0438\u043a\u0430\u0442 <em>findall():<\/em><\/p>\n<p>  <\/p>\n<pre><code class=\"erlang\">?- findall(X, (between(1, 10, N), fizz_buzz2(N, X)), Result). Result = [1, 2, fizz, 4, buzz, fizz, 7, 8, fizz|...].<\/code><\/pre>\n<p>  <\/p>\n<p><a href=\"https:\/\/swish.swi-prolog.org\/p\/fizz.pl\" rel=\"nofollow\">\u0412\u043e\u0442 \u0442\u0443\u0442<\/a>, \u043c\u043e\u0436\u043d\u043e \u043f\u043e\u043f\u0440\u043e\u0431\u043e\u0432\u0430\u0442\u044c.<\/p>\n<p>  <\/p>\n<h3 id=\"dlya-zaklyucheniya\">\u0414\u043b\u044f \u0437\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u044f<\/h3>\n<p>  <\/p>\n<p>\u041f\u0440\u043e\u043b\u043e\u0433, \u044d\u0442\u043e \u043b\u044e\u0431\u043e\u043f\u044b\u0442\u043d\u0430\u044f \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u044c \u043f\u0435\u0440\u0435\u043d\u043e\u0441\u0438\u0442\u044c \u0432 &quot;\u0441\u0438\u043c\u0432\u043e\u043b\u044b&quot; \u0443\u0441\u043b\u043e\u0432\u0438\u044f \u0437\u0430\u0434\u0430\u0447, \u044d\u0442\u043e \u0441\u0438\u0441\u0442\u0435\u043c\u0430 \u043e\u043f\u0438\u0440\u0430\u044e\u0449\u0430\u044f\u0441\u044f \u043d\u0430 \u043b\u043e\u0433\u0438\u043a\u0443 \u043f\u0440\u0435\u0434\u0438\u043a\u0430\u0442\u043e\u0432 \u0438 \u0432\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0435 \u043f\u0440\u043e\u0446\u0435\u0434\u0443\u0440\u044b \u0430\u0432\u0442\u043e\u043c\u0430\u0442\u0438\u0447\u0435\u0441\u043a\u043e\u0433\u043e \u0434\u043e\u043a\u0430\u0437\u0430\u0442\u0435\u043b\u044c\u0441\u0442\u0432\u0430 \u0442\u0435\u043e\u0440\u0435\u043c. \u0424\u043e\u0440\u043c\u0443\u043b\u0438\u0440\u043e\u0432\u043a\u0430 \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u044b, \u043f\u0440\u0438 \u0443\u0434\u0430\u0447\u043d\u043e\u043c \u0432\u044b\u0440\u0430\u0436\u0435\u043d\u0438\u0438, \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u043d\u0430\u0445\u043e\u0434\u0438\u0442\u044c \u0440\u0435\u0448\u0435\u043d\u0438\u0435 \u0434\u043b\u044f \u0441\u0430\u043c\u043e\u0439 \u0437\u0430\u0434\u0430\u0447\u0438, \u0430 \u0442\u0430\u043a\u0436\u0435 \u0441\u0440\u0430\u0437\u0443 \u0438\u043c\u0435\u0442\u044c \u0440\u0435\u0448\u0435\u043d\u0438\u0435 &quot;\u043e\u0431\u0440\u0430\u0442\u043d\u043e\u0439&quot; \u043a \u043d\u0435\u0439 \u043f\u0440\u043e\u0431\u043b\u0435\u043c\u0435. \u0410 \u043c\u043e\u0436\u0435\u0442 \u0432\u043e\u0442 \u0442\u0430\u043a\u0438\u043c \u0432\u043e\u043f\u0440\u043e\u0441\u043e\u043c, \u0443\u0432\u0438\u0434\u0438\u043c, \u043a\u0430\u043a\u0438\u0435 \u0447\u0438\u0441\u043b\u0430, \u043f\u0440\u0438\u0432\u043e\u0434\u044f\u0442 \u043a fizz: <em>?- fizz_buzz(N, fizz).<\/em><\/p>\n<\/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=\"https:\/\/habr.com\/ru\/post\/506586\/\"> https:\/\/habr.com\/ru\/post\/506586\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"\n<div class=\"post__text post__text-html post__text_v1\" id=\"post-content-body\" data-io-article-url=\"https:\/\/habr.com\/ru\/post\/506586\/\">\n<p>\u041f\u0440\u0438\u0432\u0435\u0442, \u0430\u0431\u0441\u0442\u0440\u0430\u0433\u0438\u0440\u0443\u044e\u0449\u0438\u043c\u0441\u044f. \u041f\u0440\u043e\u0447\u0438\u0442\u0430\u0432 <a href=\"https:\/\/habr.com\/ru\/post\/506570\/\">\u044d\u0442\u0443<\/a> \u0441\u0442\u0430\u0442\u044c\u044e, \u0437\u0430\u0434\u0443\u043c\u0430\u043b\u0441\u044f, \u0430 \u043a\u0430\u043a \u043f\u0440\u0435\u0434\u0441\u0442\u0430\u0432\u043b\u044f\u0442\u044c \u044d\u0442\u0443 \u0437\u0430\u0434\u0430\u0447\u0443 \u044f\u0437\u044b\u043a\u043e\u043c \u041f\u0440\u043e\u043b\u043e\u0433? \u041f\u043e\u043f\u0440\u043e\u0431\u0443\u044e \u0432\u044b\u0440\u0430\u0437\u0438\u0442\u044c \u0441\u0432\u043e\u0435, \u0437\u0430\u0442\u044f\u043d\u0443\u0432\u0448\u0435\u0435\u0441\u044f, \u0441\u0443\u0431\u0431\u043e\u0442\u043d\u0435\u0435 \u043e\u0442\u043d\u043e\u0448\u0435\u043d\u0438\u0435 \u043a \u044d\u0442\u043e\u0439 \u043f\u044f\u0442\u043d\u0438\u0447\u043d\u043e\u0439 \u0437\u0430\u0434\u0430\u0447\u0435, \u0441 \u043f\u043e\u043c\u043e\u0449\u044c\u044e \u0434\u043e\u0441\u0442\u0443\u043f\u043d\u044b\u0445 \u0434\u0435\u043a\u043b\u0430\u0440\u0430\u0442\u0438\u0432\u043d\u044b\u0445 \u0444\u043e\u0440\u043c\u0443\u043b\u0438\u0440\u043e\u0432\u043e\u043a.<br \/>  \u0412 \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u0438 \u043d\u0430 \u0421\u043a\u0430\u043b\u0430, \u044f \u0443\u0432\u0438\u0434\u0435\u043b \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u044e &quot;(value % n)&quot; \u0438 \u043f\u043e\u044f\u0441\u043d\u0435\u043d\u0438\u0435, \u0447\u0442\u043e \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f value,n -\u044d\u0442\u043e: <em>type class &quot;Integral&quot; \u0442\u0440\u0435\u0431\u0443\u044e\u0449\u0438\u0439 \u043e\u0442 \u0442\u0438\u043f\u0430 &quot;T&quot; \u0432\u043e\u0437\u043c\u043e\u0436\u043d\u043e\u0441\u0442\u0438 \u0432\u044b\u0447\u0438\u0441\u043b\u044f\u0442\u044c \u043e\u0441\u0442\u0430\u0442\u043e\u043a \u043e\u0442 \u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0438 \u0438\u043c\u0435\u0442\u044c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 &quot;zero&quot;<\/em>.<br \/>  \u042d\u0442\u043e \u043c\u0435\u043d\u044f \u043f\u043e\u0434\u0442\u043e\u043b\u043a\u043d\u0443\u043b\u043e, \u043d\u0430 \u0442\u0430\u043a\u0443\u044e \u043c\u044b\u0441\u043b\u044c, \u0430 \u043c\u043e\u0436\u0435\u0442 \u0430\u0431\u0441\u0442\u0440\u0430\u0433\u0438\u0440\u0443\u0435\u043c\u0441\u044f \u0435\u0449\u0435 \u0431\u043e\u043b\u044c\u0448\u0435, \u0438 \u043e\u0442\u0431\u0440\u043e\u0441\u0438\u043c \u0430\u0440\u0438\u0444\u043c\u0435\u0442\u0438\u0447\u0435\u0441\u043a\u0438\u0435 \u043e\u043f\u0435\u0440\u0430\u0446\u0438\u0438 \u044d\u0442\u043e\u0433\u043e &quot;<em>\u0438\u043d\u0442\u044d\u0433\u0440\u0430\u043b<\/em>&quot;, \u043c\u043e\u0436\u0435\u0442 \u0440\u0430\u0441\u0441\u043c\u043e\u0442\u0440\u0438\u043c \u0433\u043b\u0443\u0431\u0436\u0435 \u0438\u0434\u0435\u044e \u043d\u0430\u0442\u0443\u0440\u0430\u043b\u044c\u043d\u044b\u0445 \u0447\u0438\u0441\u0435\u043b, \u0441\u0435\u0439\u0447\u0430\u0441 \u043f\u043e\u043f\u0440\u043e\u0431\u0443\u044e \u043f\u0440\u043e\u0434\u0435\u043c\u043e\u043d\u0441\u0442\u0440\u0438\u0440\u043e\u0432\u0430\u0442\u044c \u0438 \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0440\u0435\u0430\u043b\u0438\u0437\u0430\u0446\u0438\u044e&#8230;<\/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-305302","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/305302","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=305302"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/305302\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=305302"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=305302"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=305302"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}