球拍：用於內部

Question

在Haskell詞彙範圍，在列表解析裏，我可以綁定表達式每次迭代變量：

[a | x <- xs, let a = x^2, a >= 25] 

如何綁定詞法變量在球拍的for理解？

目前，我有這樣的代碼：

(define (euler4) 
    (apply max 
     (for*/list ([i (in-range 100 1000)] 
        [j (in-range i 1000)] 
        #:when (string=? (number->string (* i j)) 
             (string-reverse (number->string (* i j))))) 
      (* i j)))) 

我想綁定(* i j)一個變量，並且在功能上處處代替表達它。

Answer 1

使用in-value窗體有一個循環變量綁定到單個值。

在您的例子：

(define (euler4) 
    (apply max 
     (for*/list ([i (in-range 100 1000)] 
        [j (in-range i 1000)] 
        [ij (in-value (* i j))] 
        #:when (string=? (number->string ij) 
             (string-reverse (number->string ij)))) 
      (* i j))))