{"version":"1.0","blog_url":"https://boxnos.hatenablog.com/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fboxnos.hatenablog.com%2Fentry%2F20080422%2F1208863688\" title=\" SICP\u3092\u8aad\u3080(91) 3.1.2 - \u4e71\u6570 - \u30dc\u30af\u30ce\u30b9\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","image_url":null,"author_url":"https://blog.hatena.ne.jp/tanakaBox/","provider_url":"https://hatena.blog","type":"rich","categories":["Scheme"],"provider_name":"Hatena Blog","width":"100%","url":"https://boxnos.hatenablog.com/entry/20080422/1208863688","title":" SICP\u3092\u8aad\u3080(91) 3.1.2 - \u4e71\u6570","blog_title":"\u30dc\u30af\u30ce\u30b9","height":"190","published":"2008-04-22 20:28:08","author_name":"tanakaBox","description":"rand\u306e\u89e3\u8aac\u304c\u3042\u308b\u3051\u3069\u3001rand\u306e\u30bd\u30fc\u30b9\u304c\u66f8\u3044\u3066\u306a\u304f\u3066\u30cf\u30de\u3063\u305f\u3002 (define random-init 12345) (define rand (let ((x random-init)) (lambda () (set! x (rand-update x)) x))) (define (rand-update x) (modulo (+ (* 214013 x) 253011) 32767)) (rand) ; 10917 \u7dda\u5f62\u5408\u540c\u6cd5\u306a\u3089\u3001ax + b\u306e\u4f59\u308a\u3092\u53d6\u308b\u3002\u6570\u5024\u306f\u9069\u5f53\u306b\u3084\u308b\u3068\u3001\u504f\u308a\u304c\u304b\u306a\u308a\u51fa\u308b\u306e\u3067\u3001\u6570\u5024\u306b\u95a2\u3057\u3066\u306fC\u306e\u4ed5\u69d8\u3092\u4f7f\u3046\u3068\u3044\u3044\u3068\u601d\u3046\u3002\u3068\u308a\u3042\u3048\u305a\u9032\u3081\u305d\u3046\u3060\u3002 \u4ed6\u306e\u30a2\u30eb\u30b4\u30ea\u30ba\u30e0\u2026"}