fork download
  1. (defun g(n m)(if(= n m)(list n)(if(< m n)(cons m(reverse(cons n(g(- n 1)(+ m 1))))))))
  2.  
  3. (defun sq (c)
  4. (apply #'+ (mapcar #'(lambda(x y) (* (- x y) (- x y))) c (append (cdr c) (list (car c))))))
  5.  
  6. (format t "N~20TSequence~50TSquared Difference~%")
  7. (mapcar #'(lambda (x)(format t "~S~20T~S~50T~S~%" x (g x 1) (sq (g x 1)))) '(1 2 3 4 5 6 7 8 9 10 33 100 333 1000))
Success #stdin #stdout 0.05s 11672KB
stdin
Standard input is empty
stdout
N                   Sequence                      Squared Difference
1                   (1)                           0
2                   (1 2)                         2
3                   (1 2 3)                       6
4                   (1 3 2 4)                     18
5                   (1 4 3 2 5)                   36
6                   (1 5 3 4 2 6)                 66
7                   (1 6 3 4 5 2 7)               106
8                   (1 7 3 5 4 6 2 8)             162
9                   (1 8 3 6 5 4 7 2 9)           232
10                  (1 9 3 7 5 6 4 8 2 10)        322
33                  
(1 32 3 30 5 28 7 26 9 24 11 22 13 20 15 18 17 16 19 14 21 12 23 10 25 8 27 6
 29 4 31 2 33)                                    11936
100                 
(1 99 3 97 5 95 7 93 9 91 11 89 13 87 15 85 17 83 19 81 21 79 23 77 25 75 27 73
 29 71 31 69 33 67 35 65 37 63 39 61 41 59 43 57 45 55 47 53 49 51 50 52 48 54
 46 56 44 58 42 60 40 62 38 64 36 66 34 68 32 70 30 72 28 74 26 76 24 78 22 80
 20 82 18 84 16 86 14 88 12 90 10 92 8 94 6 96 4 98 2 100) 333202
333                 
(1 332 3 330 5 328 7 326 9 324 11 322 13 320 15 318 17 316 19 314 21 312 23 310
 25 308 27 306 29 304 31 302 33 300 35 298 37 296 39 294 41 292 43 290 45 288
 47 286 49 284 51 282 53 280 55 278 57 276 59 274 61 272 63 270 65 268 67 266
 69 264 71 262 73 260 75 258 77 256 79 254 81 252 83 250 85 248 87 246 89 244
 91 242 93 240 95 238 97 236 99 234 101 232 103 230 105 228 107 226 109 224 111
 222 113 220 115 218 117 216 119 214 121 212 123 210 125 208 127 206 129 204
 131 202 133 200 135 198 137 196 139 194 141 192 143 190 145 188 147 186 149
 184 151 182 153 180 155 178 157 176 159 174 161 172 163 170 165 168 167 166
 169 164 171 162 173 160 175 158 177 156 179 154 181 152 183 150 185 148 187
 146 189 144 191 142 193 140 195 138 197 136 199 134 201 132 203 130 205 128
 207 126 209 124 211 122 213 120 215 118 217 116 219 114 221 112 223 110 225
 108 227 106 229 104 231 102 233 100 235 98 237 96 239 94 241 92 243 90 245 88
 247 86 249 84 251 82 253 80 255 78 257 76 259 74 261 72 263 70 265 68 267 66
 269 64 271 62 273 60 275 58 277 56 279 54 281 52 283 50 285 48 287 46 289 44
 291 42 293 40 295 38 297 36 299 34 301 32 303 30 305 28 307 26 309 24 311 22
 313 20 315 18 317 16 319 14 321 12 323 10 325 8 327 6 329 4 331 2 333) 12308236
1000                
(1 999 3 997 5 995 7 993 9 991 11 989 13 987 15 985 17 983 19 981 21 979 23 977
 25 975 27 973 29 971 31 969 33 967 35 965 37 963 39 961 41 959 43 957 45 955
 47 953 49 951 51 949 53 947 55 945 57 943 59 941 61 939 63 937 65 935 67 933
 69 931 71 929 73 927 75 925 77 923 79 921 81 919 83 917 85 915 87 913 89 911
 91 909 93 907 95 905 97 903 99 901 101 899 103 897 105 895 107 893 109 891 111
 889 113 887 115 885 117 883 119 881 121 879 123 877 125 875 127 873 129 871
 131 869 133 867 135 865 137 863 139 861 141 859 143 857 145 855 147 853 149
 851 151 849 153 847 155 845 157 843 159 841 161 839 163 837 165 835 167 833
 169 831 171 829 173 827 175 825 177 823 179 821 181 819 183 817 185 815 187
 813 189 811 191 809 193 807 195 805 197 803 199 801 201 799 203 797 205 795
 207 793 209 791 211 789 213 787 215 785 217 783 219 781 221 779 223 777 225
 775 227 773 229 771 231 769 233 767 235 765 237 763 239 761 241 759 243 757
 245 755 247 753 249 751 251 749 253 747 255 745 257 743 259 741 261 739 263
 737 265 735 267 733 269 731 271 729 273 727 275 725 277 723 279 721 281 719
 283 717 285 715 287 713 289 711 291 709 293 707 295 705 297 703 299 701 301
 699 303 697 305 695 307 693 309 691 311 689 313 687 315 685 317 683 319 681
 321 679 323 677 325 675 327 673 329 671 331 669 333 667 335 665 337 663 339
 661 341 659 343 657 345 655 347 653 349 651 351 649 353 647 355 645 357 643
 359 641 361 639 363 637 365 635 367 633 369 631 371 629 373 627 375 625 377
 623 379 621 381 619 383 617 385 615 387 613 389 611 391 609 393 607 395 605
 397 603 399 601 401 599 403 597 405 595 407 593 409 591 411 589 413 587 415
 585 417 583 419 581 421 579 423 577 425 575 427 573 429 571 431 569 433 567
 435 565 437 563 439 561 441 559 443 557 445 555 447 553 449 551 451 549 453
 547 455 545 457 543 459 541 461 539 463 537 465 535 467 533 469 531 471 529
 473 527 475 525 477 523 479 521 481 519 483 517 485 515 487 513 489 511 491
 509 493 507 495 505 497 503 499 501 500 502 498 504 496 506 494 508 492 510
 490 512 488 514 486 516 484 518 482 520 480 522 478 524 476 526 474 528 472
 530 470 532 468 534 466 536 464 538 462 540 460 542 458 544 456 546 454 548
 452 550 450 552 448 554 446 556 444 558 442 560 440 562 438 564 436 566 434
 568 432 570 430 572 428 574 426 576 424 578 422 580 420 582 418 584 416 586
 414 588 412 590 410 592 408 594 406 596 404 598 402 600 400 602 398 604 396
 606 394 608 392 610 390 612 388 614 386 616 384 618 382 620 380 622 378 624
 376 626 374 628 372 630 370 632 368 634 366 636 364 638 362 640 360 642 358
 644 356 646 354 648 352 650 350 652 348 654 346 656 344 658 342 660 340 662
 338 664 336 666 334 668 332 670 330 672 328 674 326 676 324 678 322 680 320
 682 318 684 316 686 314 688 312 690 310 692 308 694 306 696 304 698 302 700
 300 702 298 704 296 706 294 708 292 710 290 712 288 714 286 716 284 718 282
 720 280 722 278 724 276 726 274 728 272 730 270 732 268 734 266 736 264 738
 262 740 260 742 258 744 256 746 254 748 252 750 250 752 248 754 246 756 244
 758 242 760 240 762 238 764 236 766 234 768 232 770 230 772 228 774 226 776
 224 778 222 780 220 782 218 784 216 786 214 788 212 790 210 792 208 794 206
 796 204 798 202 800 200 802 198 804 196 806 194 808 192 810 190 812 188 814
 186 816 184 818 182 820 180 822 178 824 176 826 174 828 172 830 170 832 168
 834 166 836 164 838 162 840 160 842 158 844 156 846 154 848 152 850 150 852
 148 854 146 856 144 858 142 860 140 862 138 864 136 866 134 868 132 870 130
 872 128 874 126 876 124 878 122 880 120 882 118 884 116 886 114 888 112 890
 110 892 108 894 106 896 104 898 102 900 100 902 98 904 96 906 94 908 92 910 90
 912 88 914 86 916 84 918 82 920 80 922 78 924 76 926 74 928 72 930 70 932 68
 934 66 936 64 938 62 940 60 942 58 944 56 946 54 948 52 950 50 952 48 954 46
 956 44 958 42 960 40 962 38 964 36 966 34 968 32 970 30 972 28 974 26 976 24
 978 22 980 20 982 18 984 16 986 14 988 12 990 10 992 8 994 6 996 4 998 2 1000) 333332002