{"version":"1.0","provider_name":"Hatena Blog","type":"rich","blog_title":"sile\u306e\u30d6\u30ed\u30b0","categories":["common lisp","algorithm"],"description":"\u30af\u30a4\u30c3\u30af\u30bd\u30fc\u30c8\u306e\u5185\u90e8\u30eb\u30fc\u30d7\u306b\u306f(\u81ea\u5206\u304c\u77e5\u3063\u3066\u3044\u308b\u9650\u308a\u3067\u306f)\u4e8c\u7a2e\u985e\u3042\u308b\u306a\u3001\u3068\u3075\u3068\u601d\u3063\u305f\u306e\u3067\u3001\u601d\u3044\u51fa\u3057\u3066\u66f8\u3044\u3066\u307f\u305f\u3002 ;;; \u88dc\u52a9\u30de\u30af\u30ed/\u95a2\u6570 ;; while\u30eb\u30fc\u30d7 (defmacro while (exp &body body) `(loop WHILE ,exp DO (locally ,@body))) ;; \u914d\u5217\u3092\u30b7\u30e3\u30c3\u30d5\u30eb (defun shuffle (ary) (loop REPEAT 2 DO (loop FOR i FROM 0 BELOW (length ary) DO (rotatef (aref ary i) (aref ary (random (length ary))\u2026","image_url":null,"url":"https://sile.hatenablog.jp/entry/20100930/1285854911","provider_url":"https://hatena.blog","blog_url":"https://sile.hatenablog.jp/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fsile.hatenablog.jp%2Fentry%2F20100930%2F1285854911\" title=\" \u30af\u30a4\u30c3\u30af\u30bd\u30fc\u30c8\u306e\u5185\u90e8\u30eb\u30fc\u30d7 - sile\u306e\u30d6\u30ed\u30b0\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_url":"https://blog.hatena.ne.jp/sile/","width":"100%","published":"2010-09-30 22:55:11","title":" \u30af\u30a4\u30c3\u30af\u30bd\u30fc\u30c8\u306e\u5185\u90e8\u30eb\u30fc\u30d7","author_name":"sile","height":"190"}