Pocket7878_dev https://blog.hatena.ne.jp/Pocket7878_dev/ Let's write β https://tech-blog.pocket7878.com/ 続き。 ちょっと修正して、10000桁でやってみました200x200の画像になってます。 (defun filter-numchar (str) (coerce (remove-if-not (lambda (x) (<= (char-code #\0) (char-code x) (char-code #\9))) (coerce str 'list)) 'string)) (defvar *pi-str* (filter-numchar "1415926535 8979323846 2643383279 5028841971 6939937510 5820974944 5923078164… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftech-blog.pocket7878.com%2Fentry%2F20120712%2F1342113170" title="円周率を画像に...続 - Let&#39;s write β" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> http://cdn-ak.f.st-hatena.com/images/fotolife/P/Pocket7878_dev/20120713/20120713021421.png Hatena Blog https://hatena.blog 2012-07-12 02:12:50 rich https://tech-blog.pocket7878.com/entry/20120712/1342113170 1.0 100%