Exercism: Revisiting "Space Age in Clojure"

I used metaprogramming as I did in the Meetup problem to simplify the code of the Space Age problem (you can find my previous versions here):

	(ns space-age)
	(def planets
	['mercury
	'venus
	'mars
	'jupiter
	'saturn
	'uranus
	'neptune])
	(def orbital-periods-in-earth-years
	(zipmap
	planets
	[0.2408467
	0.61519726
	1.8808158
	11.862615
	29.447498
	84.016846
	164.79132]))
	(defn on-earth [seconds]
	(let
	[seconds-per-earth-year 31557600.0]
	(/ seconds seconds-per-earth-year)))
	(defn make-on-planet-function [orbital-period-in-earth-years]
	(fn [seconds]
	(/ (on-earth seconds) orbital-period-in-earth-years)))
	(doall
	(map
	#(intern
	'space-age
	(symbol (str "on-" (name %)))
	(make-on-planet-function
	(% orbital-periods-in-earth-years)))
	planets))

view raw space-age4.clj hosted with ❤ by GitHub

This version has less repetition than the previous ones.

You can nitpick my solution here or see all the exercises I've done so far in this repository.