Add tasks for all the new languages

2016-12-05 23:44:36 +01:00 · 2016-12-05 23:44:36 +01:00 · bba7bfd280
commit bba7bfd280
parent 9dc3c2bb62
13208 changed files with 134745 additions and 0 deletions
--- a/Task/Vector-products/EchoLisp/vector-products.echolisp
+++ b/Task/Vector-products/EchoLisp/vector-products.echolisp
@ -0,0 +1,20 @@
+(lib 'math)
+
+(define (scalar-triple-product a b c)
+  (dot-product a (cross-product b c)))
+
+(define (vector-triple-product a b c)
+  (cross-product a (cross-product b c)))
+
+(define a #(3 4 5))
+(define b #(4 3 5))
+(define c #(-5 -12 -13))
+
+(cross-product a b)
+    → #( 5 5 -7)
+(dot-product a b)
+    → 49
+(scalar-triple-product a b c)
+    → 6
+(vector-triple-product a b c)
+    → #( -267 204 -3)