Sha256: d98038ccfb6150d69e2586ba9172a05c31ca2cf17b4d9b36373d35d3a8176be6

Contents?: true

Size: 426 Bytes

Versions: 396

Compression:

Stored size: 426 Bytes

Contents

(ns largest-series-product)

(defn- char->digit [c]
  {:pre [(Character/isDigit c)]}
  (Character/digit c 10))

(defn- digits [ds] (map char->digit ds))

(defn- slices [n ds] (partition n 1 (digits ds)))

(defn largest-product [size ds]
  (cond
    (zero? size)        1
    (> size (count ds)) (throw (Exception. "Span must not exceed length."))
    :else               (apply max (map (partial apply *) (slices size ds)))))

Version data entries

396 entries across 396 versions & 1 rubygems

Version Path
trackler-2.2.1.180 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.179 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.178 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.177 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.176 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.175 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.174 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.173 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.172 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.171 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.170 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.169 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.167 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.166 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.165 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.164 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.163 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.162 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.161 tracks/clojure/exercises/largest-series-product/src/example.clj
trackler-2.2.1.160 tracks/clojure/exercises/largest-series-product/src/example.clj