File tree Expand file tree Collapse file tree 1 file changed +31
-1
lines changed Expand file tree Collapse file tree 1 file changed +31
-1
lines changed Original file line number Diff line number Diff line change 2
2
3
3
use Test ;
4
4
5
- plan 62 ;
5
+ plan 65 ;
6
6
7
7
my $ skip = % * ENV <PERL6_EXAMPLES_NOSKIP > ?? False !! True ;
8
8
@@ -687,6 +687,36 @@ unless $skip {
687
687
}, " prob189" ;
688
688
}
689
689
690
+ subtest {
691
+ plan 1 ;
692
+
693
+ my $ problem = " prob288" ;
694
+ my @ authors = <shlomif >;
695
+ my $ expected-output = " Solution == 594452426380733382" ;
696
+
697
+ check-example-solutions($ problem , $ expected-output , @ authors )
698
+ }, " prob288" ;
699
+
700
+ subtest {
701
+ plan 1 ;
702
+
703
+ my $ problem = " prob329" ;
704
+ my @ authors = <shlomif >;
705
+ my $ expected-output = " 199740353/29386561536000" ;
706
+
707
+ check-example-solutions($ problem , $ expected-output , @ authors )
708
+ }, " prob329" ;
709
+
710
+ subtest {
711
+ plan 1 ;
712
+
713
+ my $ problem = " prob539" ;
714
+ my @ authors = <shlomif >;
715
+ my $ expected-output = " S(1000000000000000000) = 271051139927967385167988795568221935 (mod = 426334056)" ;
716
+
717
+ check-example-solutions($ problem , $ expected-output , @ authors )
718
+ }, " prob539" ;
719
+
690
720
# | check examples provided by the given authors
691
721
sub check-example-solutions ($ problem , $ expected-output , @ authors , Bool : $ strip_debug = True ) {
692
722
for @ authors -> $ author {
You can’t perform that action at this time.
0 commit comments