Calendar - for "REAL" programmers: Difference between revisions
Content added Content deleted
m (→{{header|Icon}} and {{header|Unicon}}: more commentary) |
|||
| Line 167: | Line 167: | ||
* we must concede lowercase letters for the preprocessor directive ''$include'' (although as noted a preprocessor could handle this) |
* we must concede lowercase letters for the preprocessor directive ''$include'' (although as noted a preprocessor could handle this) |
||
* we temporarily concede the lowercase letters needed to realize the IPL procedures ''IsLeapYear'' and ''julian''; however, a real programmer could easily rewrite these in a more real format (or an uber-real programmer would just rewrite the IPL |
* we temporarily concede the lowercase letters needed to realize the IPL procedures ''IsLeapYear'' and ''julian''; however, a real programmer could easily rewrite these in a more real format (or an uber-real programmer would just rewrite the IPL |
||
* the character set usage has been reduced from 69 unique characters to |
* the character set usage has been reduced from 69 unique characters to 51 (within 6 bit character representations) by the following tactics: |
||
** elimination of ''#'' and all comments as real programmers don't need them |
** elimination of ''#'' and all comments as real programmers don't need them |
||
** use of preprocessor definitions to eliminate the need for ''{[]}'' |
** use of preprocessor definitions to eliminate the need for ''{[]}'' |
||
| Line 200: | Line 200: | ||
M := LIST(COLS) |
M := LIST(COLS) |
||
EVERY MON := 0 TO 9 |
EVERY MON := 0 TO 9 BY COLS DO $( |
||
WRITES(" ") |
WRITES(" ") |
||
EVERY I := 1 TO COLS DO { |
EVERY I := 1 TO COLS DO { |
||
| Line 253: | Line 253: | ||
$define LINK link |
$define LINK link |
||
$define IF if |
$define IF if |
||
$define THEN then |
$define THEN then |
||
$define BY by</lang> |
|||
{{libheader|Icon Programming Library}} |
{{libheader|Icon Programming Library}} |
||