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