fork(4) download 
  1. (defn angle [time] 
  2.   (let [[h m] (map read-string (.split time ":"))] 
  3.     (-> 
  4.       (+ (mod (* h 30) 360) (* 0.5 m)) 
  5.       (- (* 6 m))
  6.       (+ 180)
  7.       (mod 360)
  8.       (- 180)
  9.       Math/abs)))
  10. (println (angle "10:46"))
  11.  
Success #stdin #stdout 1.66s 335552KB
comments (?)
stdin 
Standard input is empty
stdout 
47.0
https://ideone.com/vWQB8T
language:
Clojure (clojure 1.10.0)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!