Initial data commit

Task/Extend-your-language/Amazing-Hopper/extend-your-language-1.hopper

@@ -0,0 +1,26 @@
+#include <jambo.h>
+
+#defn Siambassonverdaderas(_X_,_Y_)   ##CODEIF,__firstop__=0;#ATOM#CMPLX;cpy(__firstop__),\
+                                               __secondop__=0;#ATOM#CMPLX;cpy(__secondop__);\
+                                               and;jnt(#ENDIF),
+#defn Essólolaprimeraopción           jmp(%%CODEIF), %ENDIF:, {__firstop__}, jnt(#ENDIF),
+#defn Essólolasegundaopción           jmp(%%CODEIF), %ENDIF:, {__secondop__}, jnt(#ENDIF),
+#synon Else                           Noesningunaopción?
+#synon EndIf                          FindelSi
+
+Main
+   False(v), True(w)
+   Si ambas son verdaderas ( v, w )
+       Printnl ("Son ambas opciones verdaderas")
+
+   Es sólo la primera opción
+       Printnl ("La primera opción es verdadera")
+
+   Es sólo la segunda opción
+       Printnl ("La segunda opción es verdadera")
+
+   No es ninguna opción?
+       Printnl ("Nada se cumple")
+   Fin del Si
+
+End

Task/Extend-your-language/Amazing-Hopper/extend-your-language-2.hopper

@@ -0,0 +1,49 @@
+#include <jambo.h>
+
+#defn Sitodassonverdaderas(*)      ##CODEIF,{1},#GENCODE $$$*$$$ opción#ITV=0;#ATCMLIST;\
+                                   cpy(opción#ITV);and;#ENDGEN;,jnt(#ENDIF)
+#synon Sitodassonverdaderas        Sitodaslasopciones,Sitodasestas,Sitodas
+#defn Sonverdaderas(*)             jmp(%%CODEIF), %ENDIF:, {1}, #GENCODE $$$*$$$ #ATCMLIST;\
+                                   and;#ENDGEN;jnt(#ENDIF),
+#defn Esla(_X_)                    jmp(%%CODEIF), %ENDIF:, {_X_}, jnt(#ENDIF),
+#defn Esverdaderalaopción(_X_)     jmp(%%CODEIF), %ENDIF:, {opción_X_}, jnt(#ENDIF),
+#defn Sonverdaderaslasopciones(*)  jmp(%%CODEIF), %ENDIF:,{1};#GENCODE $$$*$$$ {opción#LIST};\
+                                   and;#ENDGEN;jnt(#ENDIF),
+#synon Sonverdaderaslasopciones    Sonlasopciones
+#synon Else                        Noesningunaopción?
+#synon EndIf                       FindelSi
+#define verdadera?                 ;
+#synon  verdadera?                 verdaderas?,verdadera,verdaderas,sonverdaderas,esverdadera
+
+Main
+   True(v), True(x), True(y)
+
+   Si todas estas 'v, {0.025} Is equal to (10), x, y' son verdaderas
+       Set ("Todas las opciones son verdaderas")
+
+   Son verdaderas 'opción 2, opción 3, opción 4'
+       Set ("Sólo son verdaderas la igualdad, X e Y")
+
+   Son verdaderas las opciones '1,3,4'
+       Set ("Son verdaderas V, X e Y")
+
+   Son las opciones '1,3,4' verdaderas?
+       Set ("Son verdaderas V, X e Y")
+
+   Son verdaderas 'opción 1, opción 3'
+       Set ("Son verdaderas V y X")
+
+  /* podríamos seguir preguntando... */
+
+   Es verdadera la opción '2'
+       Set ("Al menos, la igualdad es verdadera")
+
+   Es la 'opción 4' verdadera?
+       Set ("Al menos, Y es verdadera")
+
+   No es ninguna opción?
+       Set ("Nada se cumple")
+
+   Fin del Si
+   Prnl
+End

Task/Extend-your-language/Amazing-Hopper/extend-your-language-3.hopper

@@ -0,0 +1,17 @@
+#include <jambo.h>
+
+Main
+   True(v), False(w), first option=0, second option=0
+
+   If ( var 'v' » 'first option', And ( w » 'second option' ) )
+       Printnl ("Son ambas opciones verdaderas")
+
+   Else If ( first option )
+       Printnl ("La primera opción es verdadera")
+
+   Else If ( second option )
+       Printnl ("La segunda opción es verdadera")
+   Else
+       Printnl ("Ninguna es verdadera")
+   End If
+End