1 files changed, 4 insertions, 111 deletions

diff --git a/challenge-051/yet-ebreo/perl/ch-2.pl b/challenge-051/yet-ebreo/perl/ch-2.pl
index 1642d3b8c6..1782dfc4b0 100644
--- a/challenge-051/yet-ebreo/perl/ch-2.pl
+++ b/challenge-051/yet-ebreo/perl/ch-2.pl
@@ -7,7 +7,7 @@ use feature 'say';
 
 sub is_colorful {
     my @digits = pop =~ /./g;
-    my @seq = (@digits, $digits[0] * $digits[1], $digits[1]* $digits[2], $digits[0] * $digits[1] * $digits[2]);
+    my @seq = sort {$a - $b } (@digits, $digits[0] * $digits[1], $digits[1]* $digits[2], $digits[0] * $digits[1] * $digits[2]);
     return "@seq "!~ /(\d+ )\1/
 }
 
@@ -19,74 +19,51 @@ for my $n (100..999) {
 =begin
 perl .\ch-2.pl
 List of 3-digit colorful numbers:
-213
-214
-215
-216
-217
-218
-219
-231
 234
 235
 237
 238
 239
-241
 243
 245
 246
 247
 249
-251
 253
 254
 256
 257
 258
 259
-261
 263
 264
 265
 267
 268
 269
-271
 273
 274
 275
 276
 278
 279
-281
 283
 284
 285
 286
 287
 289
-291
 293
 294
 295
 296
 297
 298
-312
-314
-315
-316
-317
-318
-319
-321
 324
 325
 327
 328
 329
-341
 342
 345
 346
@@ -99,160 +76,118 @@ List of 3-digit colorful numbers:
 357
 358
 359
-361
 362
 364
 365
 367
 368
 369
-371
 372
 374
 375
 376
 378
 379
-381
 382
 384
 385
 386
 387
 389
-391
 392
 394
 395
 396
 397
 398
-412
-413
-415
-416
-417
-418
-419
-421
 423
 425
 426
 427
 429
-431
 432
 435
 436
 437
 438
 439
-451
 452
 453
 456
 457
 458
 459
-461
 462
 463
 465
 467
 468
 469
-471
 472
 473
 475
 476
 478
 479
-481
 482
 483
 485
 486
 487
 489
-491
 492
 493
 495
 496
 497
 498
-512
-513
-514
-516
-517
-518
-519
-521
 523
 524
 526
 527
 528
 529
-531
 532
 534
 536
 537
 538
 539
-541
 542
 543
 546
 547
 548
 549
-561
 562
 563
 564
 567
 568
 569
-571
 572
 573
 574
 576
 578
 579
-581
 582
 583
 584
 586
 587
 589
-591
 592
 593
 594
 596
 597
 598
-612
-613
-614
-615
-617
-618
-619
-623
 624
 625
 627
 628
 629
-631
-632
 634
 635
 637
@@ -264,14 +199,12 @@ List of 3-digit colorful numbers:
 647
 648
 649
-651
 652
 653
 654
 657
 658
 659
-671
 672
 673
 674
@@ -284,35 +217,25 @@ List of 3-digit colorful numbers:
 685
 687
 689
-691
 692
 693
 694
 695
 697
 698
-712
-713
-714
-715
-716
-718
-719
-721
 723
 724
 725
 726
 728
 729
-731
 732
 734
 735
 736
 738
 739
-741
+742
 743
 745
 746
@@ -324,103 +247,76 @@ List of 3-digit colorful numbers:
 756
 758
 759
-761
 762
 763
 764
 765
 768
 769
-781
 782
 783
 784
 785
 786
 789
-791
 792
 793
 794
 795
 796
 798
-812
-813
-814
-815
-816
-817
-819
-821
-824
+823
 825
 826
 827
 829
-831
 832
 834
 835
 836
 837
 839
-841
-842
 843
 845
 846
 847
 849
-851
 852
 853
 854
 856
 857
 859
-861
 862
 863
 864
 865
 867
 869
-871
 872
 873
 874
 875
 876
 879
-891
 892
 893
 894
 895
 896
 897
-912
-913
-914
-915
-916
-917
-918
-921
 923
+924
 925
 926
 927
 928
-931
 932
 934
 935
 936
 937
 938
-941
 942
 943
 945
@@ -433,21 +329,18 @@ List of 3-digit colorful numbers:
 956
 957
 958
-961
 962
 963
 964
 965
 967
 968
-971
 972
 973
 974
 975
 976
 978
-981
 982
 983
 984