Tupper's self-referential formula: Difference between revisions
m
→{{header|ALGOL 68}}: formating
(→{{header|ALGOL 68}}: Tweak) |
m (→{{header|ALGOL 68}}: formating) |
||
Line 33:
Draws the bitmap using ASCII. As only integer arithmetic is used, there's no need for explicit floor operations, and the values of the right-hand side of the inequality can only be 0 or 1.
<syntaxhighlight lang="algol68">
1/2 < floor( mod( (y/17)*2^ - ( 17x - mod(y,17) ), 2 ) )
where x in 0..106, y in k..k+16
CO
PR precision 600 PR
LONG LONG INT k = 960 939 379 918 958 884 971 672 962 127 852 754 715 004 339 660 129 306 651 505
| |||