aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

29
Task/Inverted-syntax/ALGOL-68/inverted-syntax.alg Normal file
View file

@ -0,0 +1,29 @@
# Inverted assignment #
# Assignment in Algol 68 is via ":=" which is automaically provided for all modes (types) #
# However we could define e.g. "=:" as an inverted assignment operator but we would need to #
# define a separate operator for each mode, e.g. for integers and strings: #
PRIO =: = 1;
OP =: = ( INT a, REF INT b )REF INT: b := a;
OP =: = ( STRING a, REF STRING b )REF STRING: b := a;
OP =: = ( CHAR a, REF STRING b )REF STRING: b := a;
INT a, b; STRING s;
1 =: a;
a + 1 =: b;
"?" =: s;
print( ( a, b, s, newline ) );
# There is one standard inverted assignment operator: +=: or PLUSTO which prepends a string #
# to another: #
"bc" =: s;
"b" +=: s;
print( ( s, newline ) );
# Inverted Conditional Expressions #
# We could define an operator called WHEN perhaps, that would execute its left operand if #
# the right operand was TRUE. However the left operand would need to be a PROC VOID so the #
# syntax would not be as convientent as the standard IF-THEN-FI construct. E.g.: #
PRIO WHEN = 1;
OP WHEN = ( PROC VOID code, BOOL test )VOID: IF test THEN code FI;
( VOID: print( ( "NO", newline ) ) ) WHEN a = b; # the anonymous PROC VOID is not called #
( VOID: print( ( "yes", newline ) ) ) WHEN a /= b # the anonymous PROC VOID is called #