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: [EMAIL PROTECTED]
||   || 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>
 

Reply via email to