Skip to content

@j1n3l0 /core.clj
Created

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
(use '[clojure.set :only [superset?]])
(map
(fn [coll]
(let [n (apply max coll)
ns (set (filter (partial > n) coll))
ds (set (map #(Math/abs %) (map #(apply - %) (partition 2 1 coll))))]
(superset? ns ds)))
[[1 4 2 3] [1 4 2 -1 6] [789 788 787] [1 2] [33 33 33 33] [12 13 15 18]])
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.