Extend your language: Difference between revisions
m
→{{header|Amazing Hopper}}
m (→{{header|Amazing Hopper}}: added a google translation) |
|||
Line 245:
#include <jambo.h>
#defn Sitodassonverdaderas(*) ##CODEIF,{1},#GENCODE $$$*$$$ opción#ITV=0;#ATCMLIST;\
#synon Sitodassonverdaderas Sitodaslasopciones,Sitodasestas,Sitodas
#defn Sonverdaderas(*) jmp(%%CODEIF), %ENDIF:, {1}, #GENCODE $$$*$$$ \▼
#defn Sonverdaderas(*) jmp(%%CODEIF), %ENDIF:, {1}, #GENCODE
and;#ENDGEN;jnt(#ENDIF),
#defn Esla(_X_) jmp(%%CODEIF), %ENDIF:, {_X_}, jnt(#ENDIF),
▲#defn
#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
Set ("Todas las opciones son verdaderas")
Line 265 ⟶ 270:
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")
Line 272 ⟶ 280:
/* podríamos seguir preguntando... */
Es verdadera la
Set ("Al menos, la igualdad es verdadera")
Es la 'opción 4' verdadera?
Set ("Al menos, Y es verdadera")
| |||