Tupper's self-referential formula: Difference between revisions
→{{header|ALGOL 68}}: Tweak
(Added Lua) |
(→{{header|ALGOL 68}}: Tweak) |
||
Line 58:
# if power of 2 > 0, then ( v * 2 ^ power of 2 ) MOD 2 = 0 #
LONG LONG INT v := IF power of 2 > 0 THEN 0 ELSE( k + y delta ) OVER 17 FI;
IF power of 2
LONG LONG INT v := IF power of 2 > 0 THEN 0 ELSE( k + y delta ) OVER 17 FI;
v MODAB 2;▼
v OVERAB LONG LONG 2 ^ ABS power of 2
FI;
▲ v MODAB 2;
print( ( IF v = 0 THEN " " ELSE "#" FI ) )
FI
OD;
print( ( newline ) )
| |||