1

Gimp Script-Fu スクリプトを作成していて、ネストされた while ループを使用しようとしています。にx設定されています。に設定されています。までループしますが、 にとどまり、ループが終了します。ここで何が問題なのですか？の値が変更されないのはなぜですか?15y30y35x15x

(while (< x 20)
  (while (< y 35)    
    (gimp-message (string-append (number->string x) "-" (number->string y)))
    (set! y (+ y 1)))
  (set! x (+ x 1)))
4

1 に答える 1

2

yにリセットされることはありません0。コードは までインクリメントyし35、次にx20 回インクリメントしますが、その後の各インクリメントでx yは は に設定されたまま35です。

と の値の各組み合わせを調べたい場合はx、y次のようなコードが必要になります。

(while (< x 20)
    (set! y 0)
    (while (< y 35)    
            (gimp-message (string-append (number->string x) "-" (number->string y)))
             (set! y (+ y 1))
            )
    (set! x (+ x 1))
)

Gimp でこの質問に取り組む時間があったので、より完全な例を次に示します (コンソールで作業しているため、print代わりに を使用していますが、交換可能である必要があります)。gimp-messageまず、最小値と最大値のペアを表す引数をSO受け入れるという関数を定義しています。xy

(define (SO x y)
  (let* ((x! (car x)) (y! (car y)))
    (while (< x! (car (cdr x)))
      (set! y! (car y))
      (while (< y! (car (cdr y)))
        (print (string-append (number->string x!) "-" (number->string y!)))
        (set! y! (+ y! 1))
      )
      (set! x! (+ x! 1))
    )
  )
)

この関数内では、 andの最初と最後の値を取り出しています(xそして、関数が呼び出された後にx! y! x y` の変更を使用しています)。この関数を次のように呼び出す場合:y(car x)(car (cdr x))let* to create two inner variables calledandthat I will be altering the value of (to remove side effects of havingand

(SO '(15 20) '(30 35))

次の出力が得られます。

"15-30"
"15-31"
"15-32"
"15-33"
"15-34"
"16-30"
"16-31"
"16-32"
"16-33"
"16-34"
"17-30"
"17-31"
"17-32"
"17-33"
"17-34"
"18-30"
"18-31"
"18-32"
"18-33"
"18-34"
"19-30"
"19-31"
"19-32"
"19-33"
"19-34"
于 2014-07-15T21:53:54.323 に答える