Environment ; Win2K Advanced Server SP1 on PII 233
MHz.
Is the output of 'Calendar' correct ?
__ __ __ __
____ ___
_______________________________________________
|| || || ||
|| || ||__ Hugs 98: Based on the Haskell 98
standard
||___|| ||__|| ||__|| __|| Copyright
(c) 1994-2001
||---||
___|| World Wide
Web: http://haskell.org/hugs
||
||
Report bugs to: hugs-bugs@haskell.org
||
|| Version: February 2001
_______________________________________________
Haskell 98 mode: Restart with command line option
-98 to enable extensions
Reading file
"F:\hugs98\lib\Prelude.hs":
Hugs session
for:
F:\hugs98\lib\Prelude.hs
Type :? for
help
Prelude>
Prelude> :l
"F:\\hugs98\\demos\\Calendar.hs"
Reading file
"F:\hugs98\demos\Calendar.hs":
Reading file
"F:\hugs98\demos\Gofer.hs":
Reading file "F:\hugs98\lib\List.hs":
Reading
file "F:\hugs98\lib\Maybe.hs":
Reading file
"F:\hugs98\lib\List.hs":
Reading file "F:\hugs98\lib\IO.hs":
Reading file
"F:\hugs98\lib\Ix.hs":
Reading file "F:\hugs98\lib\IO.hs":
Reading file
"F:\hugs98\lib\System.hs":
Reading file
"F:\hugs98\demos\Calendar.hs":
Hugs session
for:
F:\hugs98\lib\Prelude.hs
F:\hugs98\demos\Gofer.hs
F:\hugs98\lib\Maybe.hs
F:\hugs98\lib\List.hs
F:\hugs98\lib\Ix.hs
F:\hugs98\lib\IO.hs
F:\hugs98\lib\System.hs
F:\hugs98\demos\Calendar.hs
Calendar>
cal
2000
"
2000
\n
\n
January
February
March \n Su Mo
Tu We Th Fr Sa Su M
o Tu We Th Fr
Sa Su Mo Tu We Th Fr Sa
\n
1 1
2 3
4
5
1 2 3 4 \n 2 3 4
5 6 7 8 6 7 8
9 10 11 12
5 6 7 8 9 10 11 \n
9 10 11 12 13 14 15 13 14 15 16 17 18
19 12 13 14 15
16 17 18 \n 16 17 18
19 20 21 22 20 21 22 23 24 25 26
19 20 21 22 23 24 25 \
n 23 24 25 26 27 28
29 27 28
29
26 27 28 29 30 31 \n 30
31
\n
\n
April
May
June \n
Su Mo Tu We Th Fr Sa Su Mo Tu We Th
Fr
Sa Su Mo Tu We Th Fr Sa
\n
1 1 2 3
4 5
6
1
2 3 \n 2 3 4 5 6
7 8 7 8 9 10 11 12
13 4 5 6 7
8 9
10 \n 9 10 11 12 13 14 15 14 15
16 17 18 19 20 11 12 13 14 15 16 17
\
n 16 17 18 19 20 21 22 21 22 23 24 25
26 27 18 19 20 21 22 23 24 \n 23 24
2
5 26 27 28 29 28 29 30
31
25 26 27 28 29 30 \n
30
\n
\n
July
August
September \n Su Mo Tu We
Th Fr Sa Su Mo Tu We Th Fr Sa
S
u Mo Tu We Th Fr Sa
\n
1 1
2 3 4 5
1 2
\n 2 3 4 5 6 7
8 6 7 8 9 10 11
12 3 4 5 6 7 8
9 \
n 9 10 11 12 13 14 15 13
14 15 16 17 18 19 10 11 12 13 14 15 16
\n 16 17 1
8 19 20 21 22 20 21 22 23 24
25 26 17 18 19 20 21 22 23 \n 23 24 25
26 27 28
29 27 28 29 30
31 24 25 26 27 28 29
30 \n 30
31
\n
\n
October
November
December \n Su Mo Tu
We Th Fr Sa Su Mo Tu We Th Fr Sa
Su Mo Tu We
Th Fr Sa \n 1 2 3
4 5 6
7
1 2 3
4
1 2 \
n 8 9 10 11 12 13
14 5 6 7 8 9 10
11 3 4 5 6 7 8
9 \n 15 16 1
7 18 19 20 21 12 13 14
15 16 17 18 10 11 12 13 14 15 16 \n 22
23 24 25 26 27
28 19 20 21 22 23 24
25 17 18 19 20 21 22 23 \n 29 30
31
26 2
7 28 29 30
24 25 26 27 28 29 30
\n
31
\n
\n"
Calendar>