Numbers with equal rises and falls: Difference between revisions
Numbers with equal rises and falls (view source)
Revision as of 11:52, 4 December 2020
, 3 years agoAdd MAD
Thundergnat (talk | contribs) m (Thundergnat moved page Numbers With Equal Rises and Falls to Numbers with equal rises and falls: Follow normal task title capitalization policy) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 682:
The 10000000-th number in sequence A296712 is 41909002.
</pre>
=={{header|MAD}}==
<lang MAD> NORMAL MODE IS INTEGER
VECTOR VALUES FMT = $I8,1H:,I9*$
INTERNAL FUNCTION(NUM)
ENTRY TO RISFAL.
N=NUM
DEPTH = 0
DIGA = N-(N/10)*10
N = N/10
LOOP WHENEVER N.E.0, FUNCTION RETURN DEPTH.E.0
DIGB = DIGA
DIGA = N-(N/10)*10
N = N/10
WHENEVER DIGA.L.DIGB, DEPTH=DEPTH-1
WHENEVER DIGA.G.DIGB, DEPTH=DEPTH+1
TRANSFER TO LOOP
END OF FUNCTION
I=0
J=0
LOOP J=J+1
WHENEVER .NOT.RISFAL.(J), TRANSFER TO LOOP
I=I+1
WHENEVER I.LE.200, PRINT FORMAT FMT, I, J
WHENEVER I.L.10000000, TRANSFER TO LOOP
PRINT FORMAT FMT, I, J
END OF PROGRAM</lang>
{{out}}
<pre style="height: 50ex;"> 1: 1
2: 2
3: 3
4: 4
5: 5
6: 6
7: 7
8: 8
9: 9
10: 11
11: 22
12: 33
13: 44
14: 55
15: 66
16: 77
17: 88
18: 99
19: 101
20: 102
21: 103
22: 104
23: 105
24: 106
25: 107
26: 108
27: 109
28: 111
29: 120
30: 121
31: 130
32: 131
33: 132
34: 140
35: 141
36: 142
37: 143
38: 150
39: 151
40: 152
41: 153
42: 154
43: 160
44: 161
45: 162
46: 163
47: 164
48: 165
49: 170
50: 171
51: 172
52: 173
53: 174
54: 175
55: 176
56: 180
57: 181
58: 182
59: 183
60: 184
61: 185
62: 186
63: 187
64: 190
65: 191
66: 192
67: 193
68: 194
69: 195
70: 196
71: 197
72: 198
73: 201
74: 202
75: 203
76: 204
77: 205
78: 206
79: 207
80: 208
81: 209
82: 212
83: 213
84: 214
85: 215
86: 216
87: 217
88: 218
89: 219
90: 222
91: 230
92: 231
93: 232
94: 240
95: 241
96: 242
97: 243
98: 250
99: 251
100: 252
101: 253
102: 254
103: 260
104: 261
105: 262
106: 263
107: 264
108: 265
109: 270
110: 271
111: 272
112: 273
113: 274
114: 275
115: 276
116: 280
117: 281
118: 282
119: 283
120: 284
121: 285
122: 286
123: 287
124: 290
125: 291
126: 292
127: 293
128: 294
129: 295
130: 296
131: 297
132: 298
133: 301
134: 302
135: 303
136: 304
137: 305
138: 306
139: 307
140: 308
141: 309
142: 312
143: 313
144: 314
145: 315
146: 316
147: 317
148: 318
149: 319
150: 323
151: 324
152: 325
153: 326
154: 327
155: 328
156: 329
157: 333
158: 340
159: 341
160: 342
161: 343
162: 350
163: 351
164: 352
165: 353
166: 354
167: 360
168: 361
169: 362
170: 363
171: 364
172: 365
173: 370
174: 371
175: 372
176: 373
177: 374
178: 375
179: 376
180: 380
181: 381
182: 382
183: 383
184: 384
185: 385
186: 386
187: 387
188: 390
189: 391
190: 392
191: 393
192: 394
193: 395
194: 396
195: 397
196: 398
197: 401
198: 402
199: 403
200: 404
10000000: 41909002</pre>
=={{header|Phix}}==
| |||