ç´ å› æ•°åˆ†è§£ 英語ã§ã„ã†ã¨ãƒ•ã‚¡ã‚¯ã‚¿ãƒ©ã‚¤ã‚¼ãƒ¼ã‚·ãƒ§ãƒ³ - Gemmaã®æ—¥è¨˜ã¿ãšã´ãƒ¼æ—¥è¨˜ ç´ å› æ•°åˆ†è§£ãŒãƒŠãƒ¡ãŸã‚³ãƒ¼ãƒ‰ã‚’書ãã“ã¨ã§ãŠã‚Œã®æ€’ã‚ŠãŒæœ‰é ‚天 Gaucheã§ã‚¨ãƒ©ãƒˆã‚¹ãƒ†ãƒã‚¹ã®ç¯©ã§ç´ 数ストリーム(世間一般ã®ã‚„ã¤ã‚ˆã‚Šé€Ÿã„)ã§ç ´å£ŠåŠ›ã°ã¤ç‰›ï¾ (use util.stream) (define (composites s) (stream-delay (let1 p (stream-car s) (stream-cons (expt p 2) (xor (stream-map (pa$ * p) (xor (stream-cdr s) (composites s))) (composites (stream-cdr s))))))) (define (xor s0 s1) (stream-delay (let ((x (stream-car s0)) (y (stream-car s1))) (cond ((= x y) (xor (stream-cdr s0) (st
ã¯ã¦ãªã‚ˆã†ã›ã„ã¨ã¾ãªã¶ Schemeã®å½¢å¼çš„æ„味論
最もタメã«ãªã‚‹ã€Œåˆå¿ƒè€…用言語ã€ã¯Scheme! - 日記を書ã [・w・] ã¯ã‚„ã¿ãšã•ã‚“![最もタメã«ãªã‚‹ã€Œåˆå¿ƒè€…用言語ã€ã¯Scheme! - 日記を書ã [・w・] ã¯ã‚„ã¿ãšã•ã‚“](https://cdn-ak-scissors.b.st-hatena.com/image/square/0bec45a4f4583d173142878d07d744d12b90e304/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F17680117127128184977%2F17680117127128197024%2F1557447405)
ã‚ーㄠ＼（＾oï¼¾ï¼‰ï¼ Scheme ã‚‚ã©ãã‚’ JS ã§æ›¸ã„ãŸã‚ˆãƒ¼ï¼ - IT戦記
よã†ã“ãã€â„ƒ-ute 㪠Lisp ã®ä¸–ç•Œã¸
{{#tags}}- {{label}}
{{/tags}}