scheme - リターン機能を実装する

Question

returnScheme R6RS で関数を実装しようとしています。私はそのようなものが欲しい：

(lambda ()
  (do-some-job-before)
  (return some-value)
  (do-some-job-after))

を実行し(do-some-job-before)、実行しない (do-some-job-after)で、ラムダ関数の最終的な値をsome-value.

私は継続を使用する必要があると思います。私は試した：

(define return #f)
(call/cc (lambda (k)
           (set! return k)))

しかし、うまくいきません。例えば

(+ 2 (return 3)) ; -> 3 (and not 5 as I expected)

これどうやってするの？

score 5 · Accepted Answer

編集：質問を読み間違えました。

実際、非常に簡単です:)

(call/cc 
  (lambda (return)
    (printf "before\n")
    (return 3)
    (printf "after\n")))

注:非衛生的なマクロからの構文でラップする場合を除き、これを一般化することはできません。

1 に答える 1