なんか Prolog で解きやすそうな問題が転がっていたので解いてみる。 問題文 引用元: http://anago.2ch.sc/test/read.cgi/ghard/1437182679/#ghard/1437182679/218 Prolog による解法 コード 2015/07/21: 考慮漏れがあったので修正しました。なお、結果は変わりませんでした。 count(List, X, Count) :- count_sub(List, X, 0, Count). count_sub([], _, N, N). count_sub([Head | Xs], X, N, Count) :- (Head == X -> N1 is N + 1; N1 is N), count_sub(Xs, X, N1, Count). % トランプの数は1〜13まで。 card(X) :- betwee
![「これが解けるような秀才は募集しておりません^^」Prolog「まかせろ」 - Qiita](https://cdn-ak-scissors.b.st-hatena.com/image/square/8330aaccfb90ab52e8f3af47730198601bd98838/height=288;version=1;width=512/https%3A%2F%2Fqiita-user-contents.imgix.net%2Fhttps%253A%252F%252Fcdn.qiita.com%252Fassets%252Fpublic%252Farticle-ogp-background-9f5428127621718a910c8b63951390ad.png%3Fixlib%3Drb-4.0.0%26w%3D1200%26mark64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTkxNiZoPTMzNiZ0eHQ9JUUzJTgwJThDJUUzJTgxJTkzJUUzJTgyJThDJUUzJTgxJThDJUU4JUE3JUEzJUUzJTgxJTkxJUUzJTgyJThCJUUzJTgyJTg4JUUzJTgxJTg2JUUzJTgxJUFBJUU3JUE3JTgwJUU2JTg5JThEJUUzJTgxJUFGJUU1JThCJTlGJUU5JTlCJTg2JUUzJTgxJTk3JUUzJTgxJUE2JUUzJTgxJThBJUUzJTgyJThBJUUzJTgxJUJFJUUzJTgxJTlCJUUzJTgyJTkzJTVFJTVFJUUzJTgwJThEUHJvbG9nJUUzJTgwJThDJUUzJTgxJUJFJUUzJTgxJThCJUUzJTgxJTlCJUUzJTgyJThEJUUzJTgwJThEJnR4dC1jb2xvcj0lMjMyMTIxMjEmdHh0LWZvbnQ9SGlyYWdpbm8lMjBTYW5zJTIwVzYmdHh0LXNpemU9NTYmdHh0LWNsaXA9ZWxsaXBzaXMmdHh0LWFsaWduPWxlZnQlMkN0b3Amcz1mYzE0OWIxNmZiNDg0M2ExZDkxNDkxN2RkZjExMzM2ZQ%26mark-x%3D142%26mark-y%3D112%26blend64%3DaHR0cHM6Ly9xaWl0YS11c2VyLWNvbnRlbnRzLmltZ2l4Lm5ldC9-dGV4dD9peGxpYj1yYi00LjAuMCZ3PTYxNiZ0eHQ9JTQwS3VuaXdhayZ0eHQtY29sb3I9JTIzMjEyMTIxJnR4dC1mb250PUhpcmFnaW5vJTIwU2FucyUyMFc2JnR4dC1zaXplPTM2JnR4dC1hbGlnbj1sZWZ0JTJDdG9wJnM9MzEyNTkxN2FhYTI5M2NiYWNmYTg4YTFjMTllNWIzZjE%26blend-x%3D142%26blend-y%3D491%26blend-mode%3Dnormal%26s%3Da91d43c584fdd52f49c347d296399922)