Python風ジェãƒãƒ¬ãƒ¼ã‚¿ã‚’é™å®šç¶™ç¶šã§ - Homoiconic Daysã“ã“ã§ã„ã‚ã„ã‚è°è«–ã•ã‚Œã¦ã‚‹ã€call/ccを使ã£ãŸã‚¸ã‚§ãƒãƒ¬ãƒ¼ã‚¿ã‚’勉強ãŒã¦ã‚‰ã«é™å®šç¶™ç¶šã§æ›¸ãç›´ã—ã¦ã¿ã‚‹ã€‚トリッã‚ーãªéƒ¨åˆ†ãŒãªããªã£ã¦ã€ã‹ãªã‚Šç´ ç›´ã«æ›¸ã‘る。 (define (make-generator f) (let ((cont #f)) (lambda () (reset (if cont (cont #f) (f (lambda (v) (shift k (set! cont k) v)))))))) (define (fib-generator) (make-generator (lambda (yield) (let loop ((a 1) (b 1)) (yield a) (loop b (+ a b)))))) 動作ã¯ä»¥ä¸‹ã®ã¨ãŠã‚Šã€‚ > (define fib (fib-generator)) > (list (fib) (fib) (fib) (fib) (fib)) (1
CXTERM's UnOfficial Homepage on SourceForge.net
Pythonプãƒã‚°ãƒ©ãƒ ãŒãƒ¡ãƒ¢ãƒªã‚’大é‡ã«ä½¿ã£ã¦ã„ã‚‹ã¨ã - methaneã®ãƒ–ãƒã‚°
{{#tags}}- {{label}}
{{/tags}}