Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Working through some simplifications. Notes left behind

  • Loading branch information...
commit d2fbb35a1181b6f6a288ba671b9f4847a4125880 1 parent 771b495
@fogus authored
Showing with 11 additions and 0 deletions.
  1. +11 −0 src/minderbinder/core.clj
View
11 src/minderbinder/core.clj
@@ -25,6 +25,17 @@
(map vec (partition 2 (interleave v (repeat k))))
[[k v]])))))
+(comment
+
+ (build-conversion-map :meter
+ [:meter 1
+ :cm 1/100
+ :km 1000
+ :mm [1/10 :cm]])
+
+ ;;=> {:meter 1, :km 1000, :cm 1/100, :mm [1/10 :cm]}
+)
+
(defmacro defunits-of [quantity base-unit desc & units]
(let [magnitude (gensym)
unit (gensym)
Please sign in to comment.
Something went wrong with that request. Please try again.