add some pe examples

ConorOBrien-Foxx · Aug 29, 2018 · 898e564 · 898e564
1 parent a5ab960
commit 898e564
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/pe/pe43.@ b/pe/pe43.@
@@ -0,0 +1,8 @@
+PE43 := (All@~`|#Primes@Size)@Behead@(N => Slices&3)
+
+UniquePermutations := Unique@Permutations
+
+all_pandigital := UniquePermutations[1234567890]
+valid := PE43#`and#{#_ = 10} \ all_pandigital
+
+Print[Sum[valid]]
diff --git a/pe/pe46.@ b/pe/pe46.@
@@ -0,0 +1,9 @@
+OfOdd[x] := 2 * x + 1
+
+IsSquare := Integral@Sqrt
+PrimesUnder := Series&:Prime
+
+GoldbachDecomposable[n] :=
+	Any[IsSquare <| Halve <| n - PrimesUnder[n]]
+
+Print <| GenerateFirst[OfOdd, Not@GoldbachDecomposable #`and# IsComposite, 1]