comment on

an interesting alternative for those to whom slices are less natural is:

map {$list[$_]} @newOrder;
[download]

What is more interesting is that the time for each version is essentially the same:

            Rate   toOrder  mapOrder fromOrder
toOrder   4292/s        --       -1%       -1%
mapOrder  4334/s        1%        --       -1%
fromOrder 4357/s        1%        1%        --
[download]

use strict;
use warnings;
use Benchmark qw(cmpthese);

use constant n => 1000;

my @list = (1..n);
my @newOrder = reverse (0..n-1);

my @newList = toOrder ();
print "@newList\n";

@newList = fromOrder ();
print "@newList\n";

@newList = mapOrder ();
print "@newList\n";

cmpthese (-10,
        {
        toOrder => \&toOrder,
        fromOrder => \&toOrder,
        mapOrder => \&toOrder,
        }
    );
    

sub toOrder {
    my @newList;
    @newList[@newOrder] = @list;
    return @newList;
}

sub fromOrder {
    return @list[@newOrder];
}

sub mapOrder {
    return map {$list[$_]} @newOrder;
}


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

DWIM is Perl's answer to Gödel

In reply to Re: Reordering Arrays? by GrandFather
in thread Reordering Arrays? by willyyam

Are you posting in the right place? Check out Where do I post X? to know for sure.
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>
Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
Want more info? How to link or How to display code and escape characters are good places to start.


There's more than one way to do things
	PerlMonks