solution k = [ (a `div` d, b `div` d, n) | n <- [k+1 ..],
let { a = (n - k);
b = (n*k - 1);
d = gcd a b },
d > k ]
main = do
print (take 5 (solution 2))
print (take 5 (solution 3))
print (take 5 (solution 4))
print (take 5 (solution 5))
Выдает по пять первых решений для каждой из задач:
Страшная месть 2 :)
Date: 2007-05-15 16:11 (UTC)509 407 101
514 137 34
514 274 68
514 411 102
519 415 103
524 419 104
529 141 35
529 282 70
529 423 105
534 427 106
539 431 107
544 145 36
544 290 72
544 435 108
549 439 109
554 443 110
559 149 37
559 298 74
559 447 111
564 451 112
569 455 113
574 153 38
574 306 76
574 459 114
579 463 115
584 467 116
589 157 39
589 314 78
589 471 117
594 475 118
599 479 119
604 161 40
604 322 80
604 483 120
609 487 121
614 491 122
619 165 41
619 330 82
619 495 123
624 499 124
629 503 125
634 169 42
634 338 84
634 507 126
639 511 127
644 515 128
649 173 43
649 346 86
649 519 129
654 523 130
659 527 131
664 177 44
664 354 88
664 531 132
669 535 133
674 539 134
679 181 45
679 362 90
679 543 135
684 547 136
689 551 137
694 185 46
694 370 92
694 555 138
699 559 139
704 563 140
709 189 47
709 378 94
709 567 141
714 571 142
719 575 143
724 193 48
724 386 96
724 579 144
729 583 145
734 587 146
739 197 49
739 394 98
739 591 147
744 595 148
749 599 149
754 201 50
754 402 100
754 603 150
759 607 151
764 611 152
769 205 51
769 410 102
769 615 153
774 619 154
779 623 155
784 209 52
784 418 104
784 627 156
789 631 157
794 635 158
799 213 53
799 426 106
799 639 159
804 643 160
809 647 161
814 217 54
814 434 108
814 651 162
819 655 163
824 659 164
829 221 55
829 442 110
829 663 165
834 667 166
839 671 167
844 225 56
844 450 112
844 675 168
849 679 169
854 683 170
859 229 57
859 458 114
859 687 171
864 691 172
869 695 173
874 233 58
874 466 116
874 699 174
879 703 175
884 707 176
889 237 59
889 474 118
889 711 177
894 715 178
899 719 179
904 241 60
904 482 120
904 723 180
909 727 181
914 731 182
919 245 61
919 490 122
919 735 183
924 739 184
929 743 185
934 249 62
934 498 124
934 747 186
939 751 187
944 755 188
949 253 63
949 506 126
949 759 189
954 763 190
959 767 191
964 257 64
964 514 128
964 771 192
969 775 193
974 779 194
979 261 65
979 522 130
979 783 195
984 787 196
989 791 197
994 265 66
994 530 132
994 795 198
999 799 199
Страшная месть 3 :)
Date: 2007-05-15 16:13 (UTC)no subject
Date: 2007-05-15 18:31 (UTC)Вот так это выглядит на Хаскеле
Date: 2007-05-15 20:32 (UTC)solution k = [ (a `div` d, b `div` d, n) | n <- [k+1 ..], let { a = (n - k); b = (n*k - 1); d = gcd a b }, d > k ] main = do print (take 5 (solution 2)) print (take 5 (solution 3)) print (take 5 (solution 4)) print (take 5 (solution 5))Выдает по пять первых решений для каждой из задач: