challenge-137/abigail/tcl/ch-1.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#
# See ../README.md
#

#
# Run as: tclsh ch-1.tcl
#

set start_years       [list 1600 2000]
set long_year_offsets [list \
      4    9   15   20   26  32   37   43   48   54  60   65   71   76   82 \
     88   93   99                105  111  116  122 128  133  139  144  150 \
    156  161  167  172  178 184  189  195                201  207  212  218 \
    224  229  235  240  246 252  257  263  268  274 280  285  291  296      \
              303  308  314 320  325  331  336  342 348  353  359  364  370 \
    376  381  387  392  398 ]


foreach start_year $start_years {
    foreach offset $long_year_offsets {
        set year [expr $start_year + $offset]
        if {1900 <= $year && $year <= 2100} {
            puts $year
        }
    }
}