Data update

Task/Dot-product/Amazing-Hopper/dot-product-1.hopper

@@ -0,0 +1,6 @@
+#include <basico.h>
+
+principal  {
+    imprimir(producto punto( lst'1,3,(-5)', lst'4,(-2),(-1)' ),NL)
+    terminar
+}

Task/Dot-product/Amazing-Hopper/dot-product-2.hopper

@@ -0,0 +1,16 @@
+#define  maincode    main: {1}do
+#define  this        {1}do
+#defn    out         {"\n"}print
+#define  dotp        mul;stats(0)
+#defn    lst(*)      {"\033"} *;mklist;
+#define  ready       {0}return
+#define  decim       _X_DECIM=0, mov(_X_DECIM),prec(_X_DECIM),{1}do
+
+main code{
+    {0}decim{
+        "A.B = "
+        this{
+            lst (1,3,(-5)), lst (4,(-2),(-1))
+        } dotp
+    } out
+} ready

Task/Dot-product/Amazing-Hopper/dot-product-3.hopper

@@ -0,0 +1,6 @@
+#defn  dotp(_X_,_Y_)  #ATOM#CMPLX;#ATOM#CMPLX; mul; stats(0)
+#defn  lst(*)         {"\033"} *;mklist;
+#defn  out(*)         *;{"\n"}print
+#defn  code(*)        main:; *; {"0"};return
+
+code( out( dotp( lst (1,3,(-5)), lst (4,(-2),(-1)) ) ) )