Scheme言語のdo-loopでカウンタを増やすには？

Question

私は、Scheme言語のdo-loop内で単純に1つずつカウンタを増やしたいと思っていますが、私はその言語に精通しておらず、成功していない多くのスクリプトを試しています。コードが複数の場合はファイルを読み取るためにANSYSの流暢で実装されようとしている：

(define j 5) 
(Do ((i 10 (+ i 1))) ((>= i 20)) 
(ti-menu-load-string (format #f "/file/read-case \"C:/DataProcessing/Case~a-time~a-sec/test/Case~a-time~a-sec.cas\"" i j i j)) 
(set! j (+ j 1)) 
) 

私は次のように変更したフォルダとファイル名を取得するようにDOループに新しいj値を渡す方法：

します

Case10-time5-sec 
Case11-time6-sec 
... 

(set! j (+ j 1))は正しい方法ではなく、自分が何をしようとしているのかを知ることができます。値を変更したときに変数を呼び出すのは難しいはずがないと思いますか？あなただけNotherの項を追加しVARSと一覧で

Answer 1

：

(do ((i 10 (+ i 1)) 
    (j 5 (+ j 1))) 
    ((>= i 20) 'my-return-value) 
    (ti-menu-load-string 
    (format #f "/file/read-case \"C:/DataProcessing/Case~a-time~a-sec/test/Case~a-time~a-sec.cas\"" i j i j))) 
; ==> my-return-value (and as side effect prints some strings) 

が doは、再帰関数のためだけの構文糖であることを知っています。生産および印刷割ることによって

(let function-name ((i 10) (j 5)) 
    (if (>= i 20) 
     'my-return-value 
     (begin 
     (ti-menu-load-string 
     (format #f "/file/read-case \"C:/DataProcessing/Case~a-time~a-sec/test/Case~a-time~a-sec.cas\"" i j i j)) 
     (function-name (+ i 1) (+ j 1))))) 

を実際にその後、あなたはそれを機能させることもできます：あなたはletという名前で、このようにそれなしでこれを行うことができます

(define (make-strings) 
    (let function-name ((i 10) (j 5) (result '())) 
    (if (>= i 20) 
     (reverse result) 
     (function-name 
     (+ i 1) 
     (+ j 1) 
     (cons (format #f "/file/read-case \"C:/DataProcessing/Case~a-time~a-sec/test/Case~a-time~a-sec.cas\"" i j i j) 
       result))))) 

(for-each ti-menu-load-string (make-strings)) 

この程度

いいところがあるということができますユニットテストmake-strings、入力変数などを取るためにそれを拡張します。