DouKaku?

●yCalendar(year)
    monthとは整数
    dayとは整数
    "{year} calendar (#=Saturday, @=Sunday)"を表示
    12回
        month=回数
        "{year}/{month}"を継続表示
        (daysOfMonth(year,month))回
            day=回数
            もし("{year}/{month}/{day}"の曜日="土")ならば
                " #{day}"を継続表示
            違えば、もし("{year}/{month}/{day}"の曜日="日")ならば
                " @{day}"を継続表示
            違えば
                " {day}"を継続表示
        改行を継続表示
    
●daysOfMonth(year,month)
    nextYearとは整数
    nextMonthとは整数
    もし(month=12)ならば、nextMonth=1。nextYear=year+1
    違えば、nextMonth=month+1。nextYear=year
    "{year}/{month}/1"と"{nextYear}/{nextMonth}/1"の日数差

yCalendar(2008)