solved problem 34 for euelr

Author: Quinny

categories/euler/prob034-quinny.pl

@@ -0,0 +1,34 @@
+use v6;
+
+=begin pod
+
+=TITLE Digit factorials
+
+=AUTHOR Quinn Perfetto
+
+L<https://projecteuler.net/problem=34>
+
+145 is a curious number, as 1! + 4! + 5! = 1 + 24 + 120 = 145.
+
+Find the sum of all numbers which are equal to the sum of the factorial of their digits.
+
+Note: as 1! = 1 and 2! = 2 are not sums they are not included.
+
+Expected result: 40730
+
+=end pod
+
+sub fact ($n) {
+    [*] 1..$n;
+}
+
+sub factDigits ($n is copy) {
+    [+] gather while $n > 0 {
+        take fact $n % 10;
+        $n div= 10;
+    }
+}
+
+say [+] gather for 3...40586 {
+    take $_ if factDigits($_) == $_
+}

t/categories/euler.t

@@ -620,6 +620,15 @@ if False {
     }, "prob189";
 }
 
+subtest {
+    plan 1;
+     my $problem = "prob034";
+     my @authors = <quinny>;
+     my $expected-output = 40730;
+
+    check-example-solutions($problem, $expected-output, @authors)
+}, "prob034";
+
 #| check examples provided by the given authors
 sub check-example-solutions($problem, $expected-output, @authors) {
     for @authors -> $author {