Hm. Hvis et ciffer optræder i både tæller og nævner, reducerer vi det ud.
library(tidyverse)
tibble(tæller = c(49, 39), nævner = c(98, 98))## # A tibble: 2 × 2
## tæller nævner
## <dbl> <dbl>
## 1 49 98
## 2 39 98det er også gældende at tæller skal være større end nævner
a <- c(2,8)
b <- c(3, 2)
a[!(a %in% b)]## [1] 8men det vil fjerne for meget.
expand.grid(t = 10:99, n = 10:99) |>
filter(t<n) |>
mutate(t_s = str_split(t, ""),
n_s = str_split(n, "")) ## t n t_s n_s
## 1 10 11 1, 0 1, 1
## 2 10 12 1, 0 1, 2
## 3 11 12 1, 1 1, 2
## 4 10 13 1, 0 1, 3
## 5 11 13 1, 1 1, 3
## 6 12 13 1, 2 1, 3
## 7 10 14 1, 0 1, 4
## 8 11 14 1, 1 1, 4
## 9 12 14 1, 2 1, 4
## 10 13 14 1, 3 1, 4
## 11 10 15 1, 0 1, 5
## 12 11 15 1, 1 1, 5
## 13 12 15 1, 2 1, 5
## 14 13 15 1, 3 1, 5
## 15 14 15 1, 4 1, 5
## 16 10 16 1, 0 1, 6
## 17 11 16 1, 1 1, 6
## 18 12 16 1, 2 1, 6
## 19 13 16 1, 3 1, 6
## 20 14 16 1, 4 1, 6
## 21 15 16 1, 5 1, 6
## 22 10 17 1, 0 1, 7
## 23 11 17 1, 1 1, 7
## 24 12 17 1, 2 1, 7
## 25 13 17 1, 3 1, 7
## 26 14 17 1, 4 1, 7
## 27 15 17 1, 5 1, 7
## 28 16 17 1, 6 1, 7
## 29 10 18 1, 0 1, 8
## 30 11 18 1, 1 1, 8
## 31 12 18 1, 2 1, 8
## 32 13 18 1, 3 1, 8
## 33 14 18 1, 4 1, 8
## 34 15 18 1, 5 1, 8
## 35 16 18 1, 6 1, 8
## 36 17 18 1, 7 1, 8
## 37 10 19 1, 0 1, 9
## 38 11 19 1, 1 1, 9
## 39 12 19 1, 2 1, 9
## 40 13 19 1, 3 1, 9
## 41 14 19 1, 4 1, 9
## 42 15 19 1, 5 1, 9
## 43 16 19 1, 6 1, 9
## 44 17 19 1, 7 1, 9
## 45 18 19 1, 8 1, 9
## 46 10 20 1, 0 2, 0
## 47 11 20 1, 1 2, 0
## 48 12 20 1, 2 2, 0
## 49 13 20 1, 3 2, 0
## 50 14 20 1, 4 2, 0
## 51 15 20 1, 5 2, 0
## 52 16 20 1, 6 2, 0
## 53 17 20 1, 7 2, 0
## 54 18 20 1, 8 2, 0
## 55 19 20 1, 9 2, 0
## 56 10 21 1, 0 2, 1
## 57 11 21 1, 1 2, 1
## 58 12 21 1, 2 2, 1
## 59 13 21 1, 3 2, 1
## 60 14 21 1, 4 2, 1
## 61 15 21 1, 5 2, 1
## 62 16 21 1, 6 2, 1
## 63 17 21 1, 7 2, 1
## 64 18 21 1, 8 2, 1
## 65 19 21 1, 9 2, 1
## 66 20 21 2, 0 2, 1
## 67 10 22 1, 0 2, 2
## 68 11 22 1, 1 2, 2
## 69 12 22 1, 2 2, 2
## 70 13 22 1, 3 2, 2
## 71 14 22 1, 4 2, 2
## 72 15 22 1, 5 2, 2
## 73 16 22 1, 6 2, 2
## 74 17 22 1, 7 2, 2
## 75 18 22 1, 8 2, 2
## 76 19 22 1, 9 2, 2
## 77 20 22 2, 0 2, 2
## 78 21 22 2, 1 2, 2
## 79 10 23 1, 0 2, 3
## 80 11 23 1, 1 2, 3
## 81 12 23 1, 2 2, 3
## 82 13 23 1, 3 2, 3
## 83 14 23 1, 4 2, 3
## 84 15 23 1, 5 2, 3
## 85 16 23 1, 6 2, 3
## 86 17 23 1, 7 2, 3
## 87 18 23 1, 8 2, 3
## 88 19 23 1, 9 2, 3
## 89 20 23 2, 0 2, 3
## 90 21 23 2, 1 2, 3
## 91 22 23 2, 2 2, 3
## 92 10 24 1, 0 2, 4
## 93 11 24 1, 1 2, 4
## 94 12 24 1, 2 2, 4
## 95 13 24 1, 3 2, 4
## 96 14 24 1, 4 2, 4
## 97 15 24 1, 5 2, 4
## 98 16 24 1, 6 2, 4
## 99 17 24 1, 7 2, 4
## 100 18 24 1, 8 2, 4
## 101 19 24 1, 9 2, 4
## 102 20 24 2, 0 2, 4
## 103 21 24 2, 1 2, 4
## 104 22 24 2, 2 2, 4
## 105 23 24 2, 3 2, 4
## 106 10 25 1, 0 2, 5
## 107 11 25 1, 1 2, 5
## 108 12 25 1, 2 2, 5
## 109 13 25 1, 3 2, 5
## 110 14 25 1, 4 2, 5
## 111 15 25 1, 5 2, 5
## 112 16 25 1, 6 2, 5
## 113 17 25 1, 7 2, 5
## 114 18 25 1, 8 2, 5
## 115 19 25 1, 9 2, 5
## 116 20 25 2, 0 2, 5
## 117 21 25 2, 1 2, 5
## 118 22 25 2, 2 2, 5
## 119 23 25 2, 3 2, 5
## 120 24 25 2, 4 2, 5
## 121 10 26 1, 0 2, 6
## 122 11 26 1, 1 2, 6
## 123 12 26 1, 2 2, 6
## 124 13 26 1, 3 2, 6
## 125 14 26 1, 4 2, 6
## 126 15 26 1, 5 2, 6
## 127 16 26 1, 6 2, 6
## 128 17 26 1, 7 2, 6
## 129 18 26 1, 8 2, 6
## 130 19 26 1, 9 2, 6
## 131 20 26 2, 0 2, 6
## 132 21 26 2, 1 2, 6
## 133 22 26 2, 2 2, 6
## 134 23 26 2, 3 2, 6
## 135 24 26 2, 4 2, 6
## 136 25 26 2, 5 2, 6
## 137 10 27 1, 0 2, 7
## 138 11 27 1, 1 2, 7
## 139 12 27 1, 2 2, 7
## 140 13 27 1, 3 2, 7
## 141 14 27 1, 4 2, 7
## 142 15 27 1, 5 2, 7
## 143 16 27 1, 6 2, 7
## 144 17 27 1, 7 2, 7
## 145 18 27 1, 8 2, 7
## 146 19 27 1, 9 2, 7
## 147 20 27 2, 0 2, 7
## 148 21 27 2, 1 2, 7
## 149 22 27 2, 2 2, 7
## 150 23 27 2, 3 2, 7
## 151 24 27 2, 4 2, 7
## 152 25 27 2, 5 2, 7
## 153 26 27 2, 6 2, 7
## 154 10 28 1, 0 2, 8
## 155 11 28 1, 1 2, 8
## 156 12 28 1, 2 2, 8
## 157 13 28 1, 3 2, 8
## 158 14 28 1, 4 2, 8
## 159 15 28 1, 5 2, 8
## 160 16 28 1, 6 2, 8
## 161 17 28 1, 7 2, 8
## 162 18 28 1, 8 2, 8
## 163 19 28 1, 9 2, 8
## 164 20 28 2, 0 2, 8
## 165 21 28 2, 1 2, 8
## 166 22 28 2, 2 2, 8
## 167 23 28 2, 3 2, 8
## 168 24 28 2, 4 2, 8
## 169 25 28 2, 5 2, 8
## 170 26 28 2, 6 2, 8
## 171 27 28 2, 7 2, 8
## 172 10 29 1, 0 2, 9
## 173 11 29 1, 1 2, 9
## 174 12 29 1, 2 2, 9
## 175 13 29 1, 3 2, 9
## 176 14 29 1, 4 2, 9
## 177 15 29 1, 5 2, 9
## 178 16 29 1, 6 2, 9
## 179 17 29 1, 7 2, 9
## 180 18 29 1, 8 2, 9
## 181 19 29 1, 9 2, 9
## 182 20 29 2, 0 2, 9
## 183 21 29 2, 1 2, 9
## 184 22 29 2, 2 2, 9
## 185 23 29 2, 3 2, 9
## 186 24 29 2, 4 2, 9
## 187 25 29 2, 5 2, 9
## 188 26 29 2, 6 2, 9
## 189 27 29 2, 7 2, 9
## 190 28 29 2, 8 2, 9
## 191 10 30 1, 0 3, 0
## 192 11 30 1, 1 3, 0
## 193 12 30 1, 2 3, 0
## 194 13 30 1, 3 3, 0
## 195 14 30 1, 4 3, 0
## 196 15 30 1, 5 3, 0
## 197 16 30 1, 6 3, 0
## 198 17 30 1, 7 3, 0
## 199 18 30 1, 8 3, 0
## 200 19 30 1, 9 3, 0
## 201 20 30 2, 0 3, 0
## 202 21 30 2, 1 3, 0
## 203 22 30 2, 2 3, 0
## 204 23 30 2, 3 3, 0
## 205 24 30 2, 4 3, 0
## 206 25 30 2, 5 3, 0
## 207 26 30 2, 6 3, 0
## 208 27 30 2, 7 3, 0
## 209 28 30 2, 8 3, 0
## 210 29 30 2, 9 3, 0
## 211 10 31 1, 0 3, 1
## 212 11 31 1, 1 3, 1
## 213 12 31 1, 2 3, 1
## 214 13 31 1, 3 3, 1
## 215 14 31 1, 4 3, 1
## 216 15 31 1, 5 3, 1
## 217 16 31 1, 6 3, 1
## 218 17 31 1, 7 3, 1
## 219 18 31 1, 8 3, 1
## 220 19 31 1, 9 3, 1
## 221 20 31 2, 0 3, 1
## 222 21 31 2, 1 3, 1
## 223 22 31 2, 2 3, 1
## 224 23 31 2, 3 3, 1
## 225 24 31 2, 4 3, 1
## 226 25 31 2, 5 3, 1
## 227 26 31 2, 6 3, 1
## 228 27 31 2, 7 3, 1
## 229 28 31 2, 8 3, 1
## 230 29 31 2, 9 3, 1
## 231 30 31 3, 0 3, 1
## 232 10 32 1, 0 3, 2
## 233 11 32 1, 1 3, 2
## 234 12 32 1, 2 3, 2
## 235 13 32 1, 3 3, 2
## 236 14 32 1, 4 3, 2
## 237 15 32 1, 5 3, 2
## 238 16 32 1, 6 3, 2
## 239 17 32 1, 7 3, 2
## 240 18 32 1, 8 3, 2
## 241 19 32 1, 9 3, 2
## 242 20 32 2, 0 3, 2
## 243 21 32 2, 1 3, 2
## 244 22 32 2, 2 3, 2
## 245 23 32 2, 3 3, 2
## 246 24 32 2, 4 3, 2
## 247 25 32 2, 5 3, 2
## 248 26 32 2, 6 3, 2
## 249 27 32 2, 7 3, 2
## 250 28 32 2, 8 3, 2
## [ reached 'max' / getOption("max.print") -- omitted 3755 rows ]