ラケットの引数として関数の単一整数を固定する方法

Question

私はこのことを行う方法を私に説明する必要がありますしてください、

割り切れるか？

引数として1つの整数をとるラケット関数を定義し、その数値が7で割り切れるかどうかを示すブール値を返します。入力に対してエラーチェックを行う必要はありません。

入力：整数。

出力：ブール値。

Example: 

> (divisible-by-7? 14) 
#t 
> (divisible-by-7? 31) 
#f 
> (divisible-by-7? 56) 
#t 

私が持っているものこれが、私はdivisibleはラケットのライブラリ手続きではないと思われるエラー

(define (divisible-by-7) 
(divisible 7)) 

Answer 1

を受け続けます。

(define (divisible k) 
    (lambda (x) 
    (= (remainder x k) 0))) 

とそれを使用する：

(define divide-by-7? 
    (divisible 7))