Contents

(defmodule largest-series-product
  (export (from-string 2)))

(defun from-string
  ([string n]
   (from-string (length string) string n)))

(defun from-string
  ([length string n] (when (>= length n))
   (lists:max (lists:map #'product/1 (sets length n string)))))

(defun product
  ([set]
   (lists:foldl #'product/2 1 set)))

(defun product
  ([c acc] (when (andalso (=< #\0 c) (=< c #\9)))
   (* (- c #\0) acc)))

(defun sets
  ([length width (= (cons _ t) string)] (when (> length width))
   (cons (lists:sublist string width) (sets (- length 1) width t)))
  ([_length _width string]
   `(,string)))

Version data entries

396 entries across 396 versions & 1 rubygems

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