output.clj

<pppaul> (take 100 (for [x (range 100000000) y (range 1000000) :while
(< (* y y) x)] [x y]))
<sexpbot> ⟹ ([1 0] [2 0] [2 1] [3 0] [3 1] [4 0] [4 1] [5 0] [5 1] [5
2] [6 0] [6 1] [6 2] [7 0] [7 1] [7 2] [8 0] [8 1] [8 2] [9 0] [9 1]
[9 2] [10 0] [10 1] [10 2] [10 3] [11 0] [11 1] [11 2] [11 3] [12 0]
[12 1] [12 2] [12 3] [13 0] [13 1] [13 2] [13 3] [14 0] [14 1] [14 2]
[14 3] [15 0] [15 1] [15 2] [15 3] [16 0] [16 1] [16 2] [16 3] [17 0]
[17 1] [17 2] [17 3] [17 4] [18 0] [18 1] [18 2] [18 3] [18 4] [19 0]
[19 1] [19 2] [19 3] [19 4] [20 0] [20 1] [20 2] [20 3] [20 4] [21 0]
[21 1] [21 2] [21 3] [21 4] [22 0] [22 1] [22 2] [22 3] [22 4] [23 0]
[23 1] [23 2] [23 3] [23 4] [24 0] [24 1] [24 2] [24 3] [24 4] [25 0]
[25 1] [25 2] [25 3] [25 4] [26 0] [26 1] [26 2] [26 3] [26
4])