aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Averages-Mean-angle/Clojure/averages-mean-angle-1.clj Normal file
View file

@ -0,0 +1,12 @@
(defn mean-fn
[k coll]
(let [n (count coll)
trig (get {:sin #(Math/sin %) :cos #(Math/cos %)} k)]
(* (/ 1 n) (reduce + (map trig coll)))))
(defn mean-angle
[degrees]
(let [radians (map #(Math/toRadians %) degrees)
a (mean-fn :sin radians)
b (mean-fn :cos radians)]
(Math/toDegrees (Math/atan2 a b))))

8
Task/Averages-Mean-angle/Clojure/averages-mean-angle-2.clj Normal file
View file

@ -0,0 +1,8 @@
(mean-angle [350 10])
;=> -1.614809932057922E-15
(mean-angle [90 180 270 360])
;=> -90.0
(mean-angle [10 20 30])
;=> 19.999999999999996