Functional game loop

game.clj

(def fps 60)
(def delta (1.0 / fps))

(defn game-loop [time input world enemies player]

   (let [
      new_world (create-world world time)
      new_player (create-player player input time new_world)
      new_enemies (create-enemies enemies new_player new_world)
      final_player (collide-player new_player new_enemies)
      ])

   (draw world  final_player new_enemies new_world)
   (game-loop (+ time delta) (get_input) new_world new_enemies final_player)
)