Prime numbers which contain 123: Difference between revisions

</pre>

=={{header|Clojure}}==

<syntaxhighlight lang="clojure">

(ns primes-found-app

(:require [clojure.string :as str])

(:gen-class))

(defn is-prime? [n]

(if (< 1 n)

(empty? (filter #(= 0 (mod n %)) (range 2 n)))

false))

(defn get-prime-numbers [n]

(filter is-prime? (take n (range))))

(defn numbers-to-str [xs]

(map #(str %) xs))

(defn is-includes-123? [s]

(str/includes? s "123"))

(defn solution [number]

(->>

(get-prime-numbers number)

(numbers-to-str)

(filter is-includes-123?)))

(defn main []

(let [result (count (solution 1000000))]

(prn (solution 100000))

(format "There are %d primes that contain '123' below 1000000." result)

))

(main)

</syntaxhighlight>

{{out}}

<pre>

("1123" "1231" "1237" "8123" "11239" "12301" "12323" "12329" "12343" "12347" "12373" "12377" "12379" "12391" "17123" "20123" "22123" "28123" "29123" "31123" "31231" "31237" "34123" "37123" "40123" "41231" "41233" "44123" "47123" "49123" "50123" "51239" "56123" "59123" "61231" "64123" "65123" "70123" "71233" "71237" "76123" "81233" "81239" "89123" "91237" "98123")

"There are 451 primes that contain '123' below 1000000."