如何替换Clojure中嵌套的Java循环？ [英] How do you replace Java nested for loops in Clojure?

问题描述

我创建了一个非常简单的嵌套循环示例，并努力编写等效的Clojure代码。我一直在尝试通过列表理解来做到这一点，但无法获得相同的答案。

I have created a very simple nested loop example and am struggling to write the equivalent Clojure code. I've been trying to do it by list comprehensions but cannot get the same answer. Any help appreciated.

public class Toy {

    public static void main(String[] args) {
        int maxMod = 0;
        for (int i=0;i<1000;i++) {
            for (int j=i;j<1000;j++) {
                if ((i * j) % 13 == 0 && i % 7 == 0) maxMod = i * j;
            }
        }
        System.out.println(maxMod);
    }
}

推荐答案

列表理解解决方案：

(last 
  (for [i (range 1000) 
        j (range 1000)
        :let [n (* i j)] 
        :when (and (= (mod n 13) 0) 
                   (= (mod i 7) 0))] 
    n))

这篇关于如何替换Clojure中嵌套的Java循环？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！