25 lines
680 B
Plaintext
25 lines
680 B
Plaintext
examples=: 1+I.isArith 1+i.2e6
|
|
10 10$examples
|
|
1 3 5 6 7 11 13 14 15 17
|
|
19 20 21 22 23 27 29 30 31 33
|
|
35 37 38 39 41 42 43 44 45 46
|
|
47 49 51 53 54 55 56 57 59 60
|
|
61 62 65 66 67 68 69 70 71 73
|
|
77 78 79 83 85 86 87 89 91 92
|
|
93 94 95 96 97 99 101 102 103 105
|
|
107 109 110 111 113 114 115 116 118 119
|
|
123 125 126 127 129 131 132 133 134 135
|
|
137 138 139 140 141 142 143 145 147 149
|
|
(1e3-1){examples NB. 0 is first
|
|
1361
|
|
(1e4-1){examples
|
|
12953
|
|
+/0=1 p: (1e3 {. examples) -. 1
|
|
782
|
|
+/0=1 p: (1e4 {. examples) -. 1
|
|
8458
|
|
+/0=1 p: (1e5 {. examples) -. 1
|
|
88219
|
|
+/0=1 p: (1e6 {. examples) -. 1
|
|
905043
|