Hugs98 Feb.2001
Phiho Hoang
phiho.hoang@home.com
Thu, 15 Feb 2001 22:35:44 -0500
This is a multi-part message in MIME format.
------=_NextPart_000_0060_01C0979F.A2504E20
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
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>
=20
------=_NextPart_000_0060_01C0979F.A2504E20
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4611.1300" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Environment ; Win2K Advanced Server SP1 =
on PII 233=20
MHz.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>Is the output of 'Calendar' correct =
?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2></FONT> </DIV>
<DIV><FONT face=3DArial size=3D2>__ __ __ __ =20
____ ___ =20
_______________________________________________<BR>|| || =
|| ||=20
|| || ||__ Hugs 98: Based on the =
Haskell 98=20
standard<BR>||___|| ||__|| ||__|| __|| =
Copyright=20
(c) 1994-2001<BR>||---|| =
___|| World =
Wide=20
Web: <A=20
href=3D"http://haskell.org/hugs">http://haskell.org/hugs</A><BR>|| &=
nbsp;=20
||  =
; =
=20
Report bugs to: <A=20
href=3D"mailto:hugs-bugs@haskell.org">hugs-bugs@haskell.org</A><BR>||&nbs=
p; =20
|| Version: February 2001 =20
_______________________________________________</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Haskell 98 mode: Restart with command =
line option=20
-98 to enable extensions</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Reading file=20
"F:\hugs98\lib\Prelude.hs":</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Hugs session=20
for:<BR>F:\hugs98\lib\Prelude.hs<BR>Type :? for=20
help<BR>Prelude><BR>Prelude> :l=20
"F:\\hugs98\\demos\\Calendar.hs"<BR>Reading file=20
"F:\hugs98\demos\Calendar.hs":<BR>Reading file=20
"F:\hugs98\demos\Gofer.hs":<BR>Reading file =
"F:\hugs98\lib\List.hs":<BR>Reading=20
file "F:\hugs98\lib\Maybe.hs":<BR>Reading file=20
"F:\hugs98\lib\List.hs":<BR>Reading file =
"F:\hugs98\lib\IO.hs":<BR>Reading file=20
"F:\hugs98\lib\Ix.hs":<BR>Reading file "F:\hugs98\lib\IO.hs":<BR>Reading =
file=20
"F:\hugs98\lib\System.hs":<BR>Reading file=20
"F:\hugs98\demos\Calendar.hs":</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=3DArial size=3D2>Hugs session=20
for:<BR>F:\hugs98\lib\Prelude.hs<BR>F:\hugs98\demos\Gofer.hs<BR>F:\hugs98=
\lib\Maybe.hs<BR>F:\hugs98\lib\List.hs<BR>F:\hugs98\lib\Ix.hs<BR>F:\hugs9=
8\lib\IO.hs<BR>F:\hugs98\lib\System.hs<BR>F:\hugs98\demos\Calendar.hs<BR>=
Calendar>=20
cal=20
2000<BR>" &nbs=
p;  =
; =20
2000 &nb=
sp; &nbs=
p; =20
\n<BR> &=
nbsp; &n=
bsp; &nb=
sp; &nbs=
p;  =
; =20
\n =20
January<BR> &n=
bsp;=20
February  =
; =20
March =
\n Su Mo=20
Tu We Th Fr Sa Su M<BR>o Tu We Th Fr=20
Sa Su Mo Tu We Th Fr Sa =20
\n  =
; =20
1 =
1 =20
2 3<BR> 4 =20
5 =
=20
1 2 3 4 \n 2 3 =
4 =20
5 6 7 8 6 7 =
8 =20
9 10 11 12<BR>5 6 7 8 9 10 11 =
\n =20
9 10 11 12 13 14 15 13 14 15 16 17 18=20
19 12 13 14 15<BR>16 17 18 \n =
16 17 18=20
19 20 21 22 20 21 22 23 24 25 =
26 =20
19 20 21 22 23 24 25 \<BR>n 23 24 25 26 27 28=20
29 27 28=20
29  =
; =20
26 27 28 29 30 31 \n 30=20
31<BR> &=
nbsp; &n=
bsp; &nb=
sp; &nbs=
p;  =
; =20
\n<BR> &=
nbsp; &n=
bsp; &nb=
sp; &nbs=
p; =20
\n =20
April<BR> =20
May &nbs=
p; =20
June =
\n =20
Su Mo Tu We Th Fr Sa Su Mo Tu We Th<BR>Fr=20
Sa Su Mo Tu We Th Fr Sa =20
\n  =
; =20
1 1 2 =
3 =20
4 5 =20
6<BR> =
1 =20
2 3 \n 2 3 4 5 =
6 =20
7 8 7 8 9 10 11 12=20
13 4 5 6 =
7<BR> 8 9=20
10 \n 9 10 11 12 13 14 =
15 14 15=20
16 17 18 19 20 11 12 13 14 15 16 17 =20
\<BR>n 16 17 18 19 20 21 22 21 22 23 =
24 25=20
26 27 18 19 20 21 22 23 24 \n =
23 24=20
2<BR>5 26 27 28 29 28 29 30=20
31  =
; =20
25 26 27 28 29 30 \n =20
30<BR> &=
nbsp; &n=
bsp; &nb=
sp; &nbs=
p; =20
\n<BR> &=
nbsp; &n=
bsp; &nb=
sp; =20
\n =20
July &nb=
sp; =20
August<BR> &nb=
sp; =20
September \n Su Mo =
Tu We=20
Th Fr Sa Su Mo Tu We Th Fr =
Sa =20
S<BR>u Mo Tu We Th Fr Sa =20
\n  =
; =20
1 =
1 =20
2 3 4 5<BR> 1 2 =20
\n 2 3 4 5 6 7 =20
8 6 7 8 9 10 11=20
12 3 4 5 6 7 =
8 =20
9 \<BR>n 9 10 11 12 13 14 =
15 13=20
14 15 16 17 18 19 10 11 12 13 14 15 16 =20
\n 16 17 1<BR>8 19 20 21 22 20 21 22 =
23 24=20
25 26 17 18 19 20 21 22 23 \n =
23 24 25=20
26 27 28<BR>29 27 28 29 30=20
31 24 25 26 =
27 28 29=20
30 \n 30=20
31<BR> &=
nbsp; &n=
bsp; &nb=
sp; =20
\n<BR> &=
nbsp; &n=
bsp; =20
\n =20
October =
=20
November<BR> =20
December \n =
Su Mo Tu=20
We Th Fr Sa Su Mo Tu We Th Fr =
Sa =20
Su Mo Tu We<BR>Th Fr Sa \n 1 2 =
3 =20
4 5 6 =20
7 =
=20
1 2 3 =20
4 =
=20
1 2 \<BR>n 8 9 10 11 12 13=20
14 5 6 7 8 9 10=20
11 3 4 5 6 7 =
8 =20
9 \n 15 16 1<BR>7 18 19 20 21 =
12 13 14=20
15 16 17 18 10 11 12 13 14 15 16 =
\n 22=20
23 24 25 26 27<BR>28 19 20 21 22 23 24=20
25 17 18 19 20 21 22 23 \n 29 =
30=20
31  =
; =20
26 2<BR>7 28 29 =
30 =20
24 25 26 27 28 29 30 =20
\n<BR> =20
31  =
; =20
\n<BR> &=
nbsp; =20
\n"<BR>Calendar><BR> </FONT></DIV></BODY></HTML>
------=_NextPart_000_0060_01C0979F.A2504E20--