scheme - ローカル イン スキーム

Question

ランダムなプログラムを作成して、使用できるかどうかを調べていますlocal。これに使用できる方法はありlocalますか？-

(define (filt n)
  (filter number? n))

(define (mapn n)
 (map add1 (filt n)))

(define (mapl n)
  (map list (mapn n)))

    (check-expect (mapl(list 1 2 false "true" "b" 'b true 4 9)) (list (list 2) (list 3) (list 5) (list 10)))

最初のプログラムは、出力が数値のみであることを確認します。2 番目のプログラムは各数値に 1 を追加し、3 番目のプログラムはリスト内の各要素のリストを作成します。

試してみましたが、答えが得られず、ユーザーブレークになります。

(define (mapit n)
  (local [(define (filt l)
          (filter number? l))]
    (local [(define (mapn b)
             (map add1 b))]
      (mapit (map list n)))))