2つの入力の間のすべての数値の合計をとる関数を書く

Question

Help！私は2つの入力の間のすべての数の合計を取る関数を書くことを試みている。

これまでのところ、私が持っている、

(define (sum-between x y)  
    (cond  
    [(= x y) x] 
    [((- x y) 0) 0] 
    [else (+ (+ x y) (sum-between (sub1 x) (sub1 y)))])) 

これは返す必要があります：

(check-expect (sum-between 0 2) 3) 

(check-expect (sum-between -1 1) 0) 

(check-expect (sum-between 7 7) 7) 

(check-expect (sum-between 1 10) 55) 

私はそれが無限ループで実行されないように、再帰的なケースを呼び出すするかどうかはわかりません。助言がありますか？ありがとう！

Answer 1

組み込みプロシージャの使用はどうですか？これは簡単です：

(define (sum-between x y) 
    (apply + (range x (add1 y)))) 

しかし、私は、あなたが最初からこれを実装したいと思います。ここでの主なアイデアは、一方の値がもう一方の値に近づくようにしなければならないということです。エラーは、の両方ともです。代わりにこれを試してみてください：用/合計

(define (sum-between x y)  
    (cond  
    [(= x y) x] 
    [else (+ x (sum-between (add1 x) y))])) 

Answer 2

も、ここで使用することができます。

(define (sum-between x y) 
    (for/sum ((i (in-range x (add1 y)))) 
    i)) 

(sum-between 0 2) 
(sum-between -1 1) 
(sum-between 7 7) 
(sum-between 1 10) 

出力：

は

3 
0 
7 
55