diff --git a/src/projecteuler/core.clj b/src/projecteuler/core.clj index 0c5d28c..88d5603 100644 --- a/src/projecteuler/core.clj +++ b/src/projecteuler/core.clj @@ -48,6 +48,3 @@ (defn is-prime? [n] (= n (first (drop-while #(< % n) primes)))) - -(defn pow' [a] - (reduce *' (repeat a a))) diff --git a/src/projecteuler/p002.clj b/src/projecteuler/p002.clj index 0b39779..3ddb066 100644 --- a/src/projecteuler/p002.clj +++ b/src/projecteuler/p002.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [fib-seq]])) ;; https://projecteuler.net/problem=2 diff --git a/src/projecteuler/p004.clj b/src/projecteuler/p004.clj index 2e9c14c..3b526e0 100644 --- a/src/projecteuler/p004.clj +++ b/src/projecteuler/p004.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [is-palindrome-num?]])) ;; https://projecteuler.net/problem=4 diff --git a/src/projecteuler/p007.clj b/src/projecteuler/p007.clj index db6d70a..70fa93f 100644 --- a/src/projecteuler/p007.clj +++ b/src/projecteuler/p007.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [prime?]])) ;; https://projecteuler.net/problem=7 diff --git a/src/projecteuler/p008.clj b/src/projecteuler/p008.clj index 35cf0cc..d7e6adc 100644 --- a/src/projecteuler/p008.clj +++ b/src/projecteuler/p008.clj @@ -1,5 +1,6 @@ (ns projecteuler.core - (:require [clojure.string :as str]) + (:require [projecteuler.core :refer [num-map]] + [clojure.string :as str]) ;; https://projecteuler.net/problem=8 diff --git a/src/projecteuler/p010.clj b/src/projecteuler/p010.clj index feb33b8..5c3cf3b 100644 --- a/src/projecteuler/p010.clj +++ b/src/projecteuler/p010.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [prime?]])) ;; https://projecteuler.net/problem=10 diff --git a/src/projecteuler/p012.clj b/src/projecteuler/p012.clj index 7aa35da..e5a1dca 100644 --- a/src/projecteuler/p012.clj +++ b/src/projecteuler/p012.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [primes triangular-numbers]])) ;; https://projecteuler.net/problem=12 diff --git a/src/projecteuler/p016.clj b/src/projecteuler/p016.clj index 74a9227..bd6cc05 100644 --- a/src/projecteuler/p016.clj +++ b/src/projecteuler/p016.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [num-map]])) ;; https://projecteuler.net/problem=16 diff --git a/src/projecteuler/p020.clj b/src/projecteuler/p020.clj index c8fd265..18fd0c1 100644 --- a/src/projecteuler/p020.clj +++ b/src/projecteuler/p020.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [! num-map]])) ;; https://projecteuler.net/problem=20 diff --git a/src/projecteuler/p022.clj b/src/projecteuler/p022.clj index 656b7b1..74d3c9b 100644 --- a/src/projecteuler/p022.clj +++ b/src/projecteuler/p022.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [word-score]])) ;; https://projecteuler.net/problem=22 diff --git a/src/projecteuler/p025.clj b/src/projecteuler/p025.clj index c1f0f2b..9c5b23b 100644 --- a/src/projecteuler/p025.clj +++ b/src/projecteuler/p025.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [fib-seq]])) ;; https://projecteuler.net/problem=25 diff --git a/src/projecteuler/p027.clj b/src/projecteuler/p027.clj index 2bb2122..a5c3dee 100644 --- a/src/projecteuler/p027.clj +++ b/src/projecteuler/p027.clj @@ -1,4 +1,6 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [is-prime?]]) + ) ;; https://projecteuler.net/problem=27 diff --git a/src/projecteuler/p030.clj b/src/projecteuler/p030.clj index 856b486..1fc99d4 100644 --- a/src/projecteuler/p030.clj +++ b/src/projecteuler/p030.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [num-map]])) ;; https://projecteuler.net/problem=30 diff --git a/src/projecteuler/p036.clj b/src/projecteuler/p036.clj index b83295f..05ea314 100644 --- a/src/projecteuler/p036.clj +++ b/src/projecteuler/p036.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [is-palindrome-num?]])) ;; https://projecteuler.net/problem=36 diff --git a/src/projecteuler/p042.clj b/src/projecteuler/p042.clj index ee817b4..8df8b50 100644 --- a/src/projecteuler/p042.clj +++ b/src/projecteuler/p042.clj @@ -1,4 +1,5 @@ -(ns projecteuler.core) +(ns projecteuler.core + (:require [projecteuler.core :refer [word-score triangular-numbers]])) ;; https://projecteuler.net/problem=42 diff --git a/src/projecteuler/p048.clj b/src/projecteuler/p048.clj index 440853a..bf57092 100644 --- a/src/projecteuler/p048.clj +++ b/src/projecteuler/p048.clj @@ -2,6 +2,8 @@ ;; https://projecteuler.net/problem=48 +(defn pow' [a] + (reduce *' (repeat a a))) (defn self-powers [& [max]] (let [max (or max 1000)] (apply str