Vector products: Difference between revisions
Content added Content deleted
(→{{header|Clojure}}: added Clojure solution) |
|||
| Line 292: | Line 292: | ||
=={{header|Clojure}}== |
=={{header|Clojure}}== |
||
<lang clojure> |
<lang clojure>(defrecord Vector [x y z]) |
||
(defrecord Vector [x y z]) |
|||
(defn dot |
(defn dot |
||
| Line 317: | Line 316: | ||
(dot a (cross b c)) |
(dot a (cross b c)) |
||
(cross a (cross b c)))] |
(cross a (cross b c)))] |
||
(println prod))) |
(println prod)))</lang> |
||
| ⚫ | |||
</lang> |
|||
| ⚫ | |||
<PRE> |
|||
49 |
49 |
||
#:user.Vector{:x 5, :y 5, :z -7} |
#:user.Vector{:x 5, :y 5, :z -7} |
||
6 |
6 |
||
#:user.Vector{:x -267, :y 204, :z -3} |
#:user.Vector{:x -267, :y 204, :z -3}</PRE> |
||
</PRE> |
|||
=={{header|D}}== |
=={{header|D}}== |
||