Contents

(defmodule sum-of-multiples
  (export (sum-of-multiples 2)))

(defun sum-of-multiples (multiples n)
  (lists:foldl
    (lambda (x sum)
      (if (any-multiple? multiples x)
        (+ sum x)
        sum))
    0
    (lists:seq 1 (- n 1))))

(defun any-multiple? (lst x) (lists:any (lambda (n) (=:= (rem x n) 0)) lst))

Version data entries

396 entries across 396 versions & 1 rubygems

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