diff options
| author | Abigail <abigail@abigail.freedom.nl> | 2022-01-31 15:50:18 +0100 |
|---|---|---|
| committer | Abigail <abigail@abigail.freedom.nl> | 2022-01-31 19:47:29 +0100 |
| commit | 8487fe3f219c99dc720f99e2d53197c211deaf5b (patch) | |
| tree | 97a4990ae8dfa3601c30efc7863baa5e5b4d4e37 /challenge-150/abigail/cobol | |
| parent | d52aa060e5c7663353b4d1a0186b608ef520dc9e (diff) | |
| download | perlweeklychallenge-club-8487fe3f219c99dc720f99e2d53197c211deaf5b.tar.gz perlweeklychallenge-club-8487fe3f219c99dc720f99e2d53197c211deaf5b.tar.bz2 perlweeklychallenge-club-8487fe3f219c99dc720f99e2d53197c211deaf5b.zip | |
Week 150: Solutions
Diffstat (limited to 'challenge-150/abigail/cobol')
| -rw-r--r-- | challenge-150/abigail/cobol/ch-2.cb | 40 |
1 files changed, 40 insertions, 0 deletions
diff --git a/challenge-150/abigail/cobol/ch-2.cb b/challenge-150/abigail/cobol/ch-2.cb new file mode 100644 index 0000000000..13e31bb690 --- /dev/null +++ b/challenge-150/abigail/cobol/ch-2.cb @@ -0,0 +1,40 @@ +IDENTIFICATION DIVISION. +PROGRAM-ID. XXX. + +*> +*> See https://theweeklychallenge.org/blog/perl-weekly-challenge-150 +*> + +*> +*> Run as: cobc -xF -o ch-2.o ch-2.cb; ./ch-2.o +*> + +PROCEDURE DIVISION. + DISPLAY "1 2 3 5 6 7 10 11 13 14 15 17 19 21 22 23" WITH NO ADVANCING + DISPLAY " 26 29 30 31 33 34 35 37 38 39 41 42 43 46" WITH NO ADVANCING + DISPLAY " 47 51 53 55 57 58 59 61 62 65 66 67 69 70" WITH NO ADVANCING + DISPLAY " 71 73 74 77 78 79 82 83 85 86 87 89 91 93" WITH NO ADVANCING + DISPLAY " 94 95 97 101 102 103 105 106 107 109 110 111" WITH NO ADVANCING + DISPLAY " 113 114 115 118 119 122 123 127 129 130 131" WITH NO ADVANCING + DISPLAY " 133 134 137 138 139 141 142 143 145 146 149" WITH NO ADVANCING + DISPLAY " 151 154 155 157 158 159 161 163 165 166 167" WITH NO ADVANCING + DISPLAY " 170 173 174 177 178 179 181 182 183 185 186" WITH NO ADVANCING + DISPLAY " 187 190 191 193 194 195 197 199 201 202 203" WITH NO ADVANCING + DISPLAY " 205 206 209 210 211 213 214 215 217 218 219" WITH NO ADVANCING + DISPLAY " 221 222 223 226 227 229 230 231 233 235 237" WITH NO ADVANCING + DISPLAY " 238 239 241 246 247 249 251 253 254 255 257" WITH NO ADVANCING + DISPLAY " 258 259 262 263 265 266 267 269 271 273 274" WITH NO ADVANCING + DISPLAY " 277 278 281 282 283 285 286 287 290 291 293" WITH NO ADVANCING + DISPLAY " 295 298 299 301 302 303 305 307 309 310 311" WITH NO ADVANCING + DISPLAY " 313 314 317 318 319 321 322 323 326 327 329" WITH NO ADVANCING + DISPLAY " 330 331 334 335 337 339 341 345 346 347 349" WITH NO ADVANCING + DISPLAY " 353 354 355 357 358 359 362 365 366 367 370" WITH NO ADVANCING + DISPLAY " 371 373 374 377 379 381 382 383 385 386 389" WITH NO ADVANCING + DISPLAY " 390 391 393 394 395 397 398 399 401 402 403" WITH NO ADVANCING + DISPLAY " 406 407 409 410 411 413 415 417 418 419 421" WITH NO ADVANCING + DISPLAY " 422 426 427 429 430 431 433 434 435 437 438" WITH NO ADVANCING + DISPLAY " 439 442 443 445 446 447 449 451 453 454 455" WITH NO ADVANCING + DISPLAY " 457 458 461 462 463 465 466 467 469 470 471" WITH NO ADVANCING + DISPLAY " 473 474 478 479 481 482 483 485 487 489 491" WITH NO ADVANCING + DISPLAY " 493 494 497 498 499". + STOP RUN. |