Programming Quiz

Marc Clifton

RossMW wrote:

Is this your homework, sonny.

Urgentz! Help PLZ!!! ;)

Latest Articles:
16 Days: A TypeScript application from concept to implementation

Richard Deeming

Is the 7 day week universal? : NoStupidQuestions[^]

"These people looked deep within my soul and assigned me a number based on the order in which I joined." - Homer

PIEBALDconsult

Pfft... I've been using an MS Word template with a macro to create calendars since the mid-90s. With weeks beginning on Monday as per ISO and ISO week numbers as well.

AFell2

Took this a step further and extended the code, and it should work with culture:

void Main()
{
StringBuilder builder = new StringBuilder();

Enumerable.Range(1, 12)
    .ToList()
    .ForEach(e => PopulateDayOfMonth(2021, e, builder));
    
Console.WriteLine(builder.ToString().Trim());

}

static void PopulateDayOfMonth(int year, int month, StringBuilder builder)
{
builder.AppendLine();
int space = 6;
int dashLine = 1 + (space * 7);

IEnumerable days = Enumerable.Range(1, DateTime.DaysInMonth(year, month))
    .Select(d => new DateTime(year, month, d));

builder.AppendLine(days.First().ToString("MMMMM"));
builder.Append('-', dashLine);
builder.AppendLine();
builder.AppendLine($"|{string.Join("|", Enum.GetNames(typeof(DayOfWeek)).Select(d => $" {d.Substring(0, 3)} "))}|" );
builder.Append('-', dashLine);
builder.AppendLine();
DayOfWeek dow = days.First().DayOfWeek;

while (dow != 0)
{
    builder.Append(' ', space);
    dow--;
}

bool first = true;

foreach (var d in days)
{
    if (!first && d.DayOfWeek == 0)
    {
        builder.AppendLine("|");
        builder.Append('-', dashLine);
        builder.AppendLine();
    }

    builder.Append($"|{d.Day.ToString().PadLeft(space - 2)} ");
    first = false;
}

builder.AppendLine("|");
builder.Append('-', dashLine);
builder.AppendLine();

}

With the following output:

January

| Sun | Mon | Tue | Wed | Thu | Fri | Sat |

                          |   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 | 27 | 28 | 29 | 30 |

| 31 |

February

| Sun | Mon | Tue | Wed | Thu | Fri | Sat |

  |   1 |   2 |   3 |   4 |   5 |   6 |

| 7 | 8 | 9 | 10 | 11 | 12 | 13 |

Member 11005478

Sunday is part of the weekend. That's a clue as to the correct day that a week starts on

BillWoodruff

:thumbsup:

«One day it will have to be officially admitted that what we have christened reality is an even greater illusion than the world of dreams.» Salvador Dali

EliaMelfior

This could be a fun little puzzle. I just get tired thinking about solving it, i would have to search for a time library in javascript/php, and then format the output nicely. Just not in the mood for a little puzzle, does anyone identify with this feeling sometimes? Nice quiz though.

ZurdoDev

Member 11005478 wrote:

weekend. That's a clue as to the correct day that a week starts on

Just like bookends are all on one side. :laugh:

Social Media - A platform that makes it easier for the crazies to find each other. Everyone is born right handed. Only the strongest overcome it. Fight for left-handed rights and hand equality.

Stuart Dootson

In Haskell (because, of course Haskell!): ```haskell import Data.List.Split import Data.Time.Calendar; import Data.Time.Calendar.Compat; import Data.Time.Calendar.Julian; import Text.Printf printMonth :: Integer -> Int -> IO () printMonth year month = printWeeks entriesInMonth where -- printWeeks chunks the month's entries into weeks & prints each week on a new line printWeeks days = mapM_ (putStrLn.unwords) (chunksOf 7 days) -- entriesInMonth concatenates the empty entries at the start of the month with the days entriesInMonth = startPadding ++ daysOfMonth -- daysOfMonth generates a list of days of the month as strings daysOfMonth = map (printf "%2d") [1..(julianMonthLength year month)] -- startPadding generates blank strings for each empty entry before day '1' startPadding = replicate blanksBeforeDay1 " " -- blanksBeforeDay1 is the number of empty entries before day '1' blanksBeforeDay1 = (fromEnum $ dayOfWeek (fromJulian year month 1)) `mod` 7 ``` which gives: ``` > printMonth 2019 12 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 27 28 29 30 31 > printMonth 20190 12 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 27 28 29 30 31 > printMonth 20190 11 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 27 28 29 30 ``` [ETA] That's using the Julian calendar - the standard Gregorian calendar can be used by replacing the word 'julian' or 'Julian' with 'gregorian'/'Gregorian'. And yes, I should be able to remember which calendar we use :-O [/ETA]

Java, Basic, who cares - it's all a bunch of tree-hugging hippy cr*p

Jorgen Andersson

So, I don't know shit about Haskell, but shouldn't it be Data.Time.Calendar.Gregorian instead of Data.Time.Calendar.Julian? Unless you're living in Russia that is.

Wrong is evil and must be defeated. - Jeff Ello

Jorgen Andersson

Otherwise you could use Genesis 2.2 as a reference.

Wrong is evil and must be defeated. - Jeff Ello

ZurdoDev

Jörgen Andersson wrote:

Otherwise you could use Genesis 2.2 as a reference.

Correct. The Old Testament week.

Social Media - A platform that makes it easier for the crazies to find each other. Everyone is born right handed. Only the strongest overcome it. Fight for left-handed rights and hand equality.

Stuart Dootson

>

Jörgen Andersson wrote:

shouldn't it be Data.Time.Calendar.Gregorian instead of Data.Time.Calendar.Julian You're quite right - and that's my mistake, getting Gregorian/Julian mixed up! Gregorian is actually the default, baked into `Data.Time.Calendar`, while Julian is the add-on... ```haskell import Data.List.Split import Data.Time.Calendar; import Data.Time.Calendar.Compat; import Text.Printf printMonth :: Integer -> Int -> IO () printMonth year month = printWeeks entriesInMonth where -- printWeeks chunks the month's entries into weeks & prints each week on a new line printWeeks days = mapM_ (putStrLn.unwords) (chunksOf 7 days) -- entriesInMonth concatenates the empty entries at the start of the month with the days entriesInMonth = startPadding ++ daysOfMonth -- daysOfMonth generates a list of days of the month as strings daysOfMonth = map (printf "%2d") [1..(gregorianMonthLength year month)] -- startPadding generates blank strings for each empty entry before day '1' startPadding = replicate blanksBeforeDay1 " " -- blanksBeforeDay1 is the number of empty entries before day '1' blanksBeforeDay1 = (fromEnum $ dayOfWeek (fromGregorian year month 1)) `mod` 7 ``` Being able to use `Data.Time.Calendar` rather than `Data.Time.Calendar.Julian` should have been a giveaway, shouldn't it :-O

Java, Basic, who cares - it's all a bunch of tree-hugging hippy cr*p

agolddog

Checkin rejected, hard-coded values. Just kidding, the knuckleheads I work with hard-code things all over the place, and management won't let us have any code reviews. Sigh.

Jorgen Andersson

Stuart Dootson wrote:

Being able to use Data.Time.Calendar rather than Data.Time.Calendar.Julian should have been a giveaway, shouldn't it :O

I wouldn't have known. :doh: :-O

Wrong is evil and must be defeated. - Jeff Ello

Richard Deeming

Unfortunately, that still assumes the first day of the week is Sunday. :)

"These people looked deep within my soul and assigned me a number based on the order in which I joined." - Homer

Fernando Takeshi Sato

The first thing that I thought as well...here in Poland, the week starts on Monday. Almost two years here and this still throws me off.

User 12817778

For bonus points, on the management/sales side: - convince a culture with a different week size to adopt the 7 days week. - convince a culture without the concept of calendar to adopt a 10 days week calendar (or 5 day, for the impatient), and then apply previous step.

F Margueirat

Slow down there Donald.

Janes Diary

Hold up, this is implying that we need to start working Saturdays, a six work-day week.