mzp https://blog.hatena.ne.jp/mzp/ みずぴー日記 https://mzp.hatenadiary.org/ Scheme 30分プログラム 30分プログラム、その741。回文素数を求めてみる。 旅先の宿からこんにちは。ただいま旅行中につき、ほとんどネットワークにつなげません。というわけで、今日の30分プログラムは一切ぐぐらずに書いてます。かなりつらいですが、なんとかなるものですね。 Twitterのだれかの発言で知ったのだけれども、回文素数なるものがあるらしい。詳しくは調べてないけど、きっと素数+回文数なんでしょうね。 回文数の判定も素数の計算もやったことあるので、さくさくっと書いちゃいましょう。 使い方 gosh> (take-kaibun-primes 20) (2 3 5 7 11 101 131 151 181 191 3… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmzp.hatenadiary.org%2Fentry%2F20100311%2Fkaibun" title="回文素数 - みずぴー日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2010-03-11 00:00:00 rich https://mzp.hatenadiary.org/entry/20100311/kaibun 1.0 100%