Scheme 언어 내 do-loop에서 카운터를 늘리는 방법은 무엇입니까?

Question

Scheme 언어의 do-loop 내에서 간단한 카운터 증가를 원하지만 언어에 익숙하지 않고 많은 스크립트를 성공하지 못했습니다.

(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 값을 전달하는 방법

: 코드는 여러 사건 파일을 읽을 수 Ansys의 유창함 구현 될 것입니다

을

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

나는 (set! j (+ j 1))이 올바른 일은 아니지만 내가하려는 일에 대한 아이디어를 제공한다는 것을 알고 있습니다. 변수를 변경했을 때 변수를 호출하는 것이 어려워야한다고 생각하지 않습니까? 당신은 단지 사람 같아 용어를 추가 바르와 목록에서

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, 그것을 확장하여 입력 변수 등을 취하십시오.