Tupper's self-referential formula: Difference between revisions
m
→{{header|ALGOL 68}}: Yweak and bugette fix - the output is not affected
(5+ implementations, upgrading to non-draft task) |
m (→{{header|ALGOL 68}}: Yweak and bugette fix - the output is not affected) |
||
Line 55:
FOR x FROM 106 BY -1 TO 0 DO
INT power of 2 = - ( 17 * x ) - ( k mod 17 + y delta ) MOD 17;
# if power of 2
LONG LONG INT v := IF power of 2 > 0 THEN 0 ELSE( k + y delta ) OVER 17 FI;
IF power of 2 < 0 THEN
v OVERAB LONG LONG 2 ^ ABS power of 2
|