Conversation

Notices

1. Embed this notice
   DJ月経少年野崎くんA.K.A杜仲茶またの名を立花いづみ (tochu_cha@mstdn.jp)'s status on Sunday, 29-Jan-2023 03:17:31 JST DJ月経少年野崎くんA.K.A杜仲茶またの名を立花いづみ

   月刊ラムダノート Vol.3 の「継続のひみつ」にあった Ruby コードをそのまま Scheme にしたらそのままに動いたんでビビった。

   (define (foo)
   (begin
   (print "foo-start")
   (let/cc k (set! foo k)
   (bar)))
   (begin
   (print "foo-end")
   (exit)))

   (define (bar)
   (begin
   (print "bar-start")
   (let/cc k (set! bar k)
   (foo)))
   (begin
   (print "bar-end")
   (exit)))

   (let/cc k (set! exit k)
   (foo))

   • Embed this notice
     DJ月経少年野崎くんA.K.A杜仲茶またの名を立花いづみ (tochu_cha@mstdn.jp)'s status on Sunday, 29-Jan-2023 03:20:39 JST DJ月経少年野崎くんA.K.A杜仲茶またの名を立花いづみ

     in reply to

     リファクタリングするとこう。

     (define (foo)
     (begin
     (print "foo-start")
     (let/cc k (set! foo k)
     (bar))
     (print "foo-end")
     (exit)))

     (define (bar)
     (begin
     (print "bar-start")
     (let/cc k (set! bar k)
     (foo))
     (print "bar-end")
     (exit)))

     (let/cc k (set! exit k)
     (foo))

     gosh> foo-start
     bar-start
     foo-end

     すみませんでした。リファクタリングって言ってみたかっただけです。

   • Embed this notice
     DJ月経少年野崎くんA.K.A杜仲茶またの名を立花いづみ (tochu_cha@mstdn.jp)'s status on Sunday, 29-Jan-2023 03:22:11 JST DJ月経少年野崎くんA.K.A杜仲茶またの名を立花いづみ

     in reply to

     何故こうなるのか現時点では分かっていない。