« first day (1415 days earlier)      last day (2687 days later) » 

12:25 AM
gist: ebd4dc32e81470e21d8691271cc2c731, 2016-12-09 00:25:13Z
open System
open Newtonsoft.Json

type HolidaySeasonDayStatus =
    | NormalDay = 0
    | HalfDay = 1
    | OutOfHours = 2
    | StandardWeekend = 3

type HolidaySeasonDay = { Date: DateTime; Status: HolidaySeasonDayStatus }

type HolidayJsonDay = { Day: string; Date: string; Status: string; WorkStatus: string  }

let year = DateTime.Today.Year

let holidaySeasonWindowStartDate(dates : DateTime list) =
    let christmasDate = new DateTime(year, 12, 25)
    dates
    |> List.filter(fun x->x < christmasDate)
    |> List.rev
    |> List.pick(fun x->
          match x.DayOfWeek with
          | DayOfWeek.Monday->Some x
          | _->None)

let holidaySeasonWindowEndDate(dates : DateTime list) =
    let newYearsDate = new DateTime(year + 1, 1, 1)
    dates
    |> List.filter(fun x->x > newYearsDate)
    |> List.pick(fun x->
          match x.DayOfWeek with
          | DayOfWeek.Sunday->Some x
          | _->None)

let holdaySeasonDayStatus (date:DateTime) = 
    match (date.Day, date.DayOfWeek) with
    | ((24 | 31), (DayOfWeek.Monday | DayOfWeek.Tuesday | DayOfWeek.Wednesday | DayOfWeek.Thursday | DayOfWeek.Friday)) -> HolidaySeasonDayStatus.HalfDay
    | ((25 | 26 | 1), _)
    | ((27 | 28), (DayOfWeek.Monday | DayOfWeek.Tuesday))
    | ((2 | 3), DayOfWeek.Monday) -> HolidaySeasonDayStatus.OutOfHours
    | (_, (DayOfWeek.Saturday | DayOfWeek.Sunday)) -> HolidaySeasonDayStatus.StandardWeekend
    | (_,_) -> HolidaySeasonDayStatus.NormalDay

let holidaySeasonDayStatusDisplayString status =
    match status with
    | HolidaySeasonDayStatus.NormalDay -> "Normal services"
    | HolidaySeasonDayStatus.HalfDay -> "Open until 2pm then Out Of Hours Support*"
    | HolidaySeasonDayStatus.OutOfHours -> "Out of hours support*"
    | HolidaySeasonDayStatus.StandardWeekend -> "Standard Weekend Support*"
    | _ -> String.Format("Unknown status: {0}", status.ToString())

let dateDaySuffix (date:DateTime) =
    match date.Day with
    | (1 | 21 | 31) -> "st"
    | (2 | 22) -> "nd"
    | (3 | 23) -> "rd"
    | _ -> "th"
    
let holidaySeasonWindow =
    let startDate = new DateTime(year, 12, 19)
    let dates = List.init 21(fun index -> startDate.AddDays(index |> float))
    dates
    |> List.filter(fun x->x >= (holidaySeasonWindowStartDate dates))
    |> List.filter(fun x->x <= (holidaySeasonWindowEndDate dates))
    |> List.map(fun x-> { Day = x.DayOfWeek.ToString(); Date = String.Format("{0:MMMM d}{1}", x, (dateDaySuffix x)); Status = (x |> holdaySeasonDayStatus |> holidaySeasonDayStatusDisplayString); WorkStatus = (x |> holdaySeasonDayStatus).ToString() })

[<EntryPoint>]
let main _ = 
    printfn "%A" (JsonConvert.SerializeObject (holidaySeasonWindow, Formatting.Indented))
    0 // return an integer exit code
 
 
3 hours later…
3:36 AM
!!gm
 
@QuyTang That didn't make much sense. Maybe you meant: am, gmg
 
!!gm g
!!gmg
 
Good morning guys!
 
!!am
 
@QuyTang Input not matching /I\s(.*)/. Help: User-taught command: Definitely
 
3:37 AM
!!hang g
 
  +---+
  |   |
  |
  |
  |
__+__
g
------g---
 
!!hang n
 
  +---+
  |   |
  |
  |
  |
__+__
g, n
-----ng---
 
!!hang o
 
  +---+
  |   |
  |
  |
  |
__+__
g, n, o
--o--ng---
 
3:38 AM
!!hang u
 
  +---+
  |   |
  |   O
  |
  |
__+__
g, n, o, u
--o--ng---
 
!!hang h
 
  +---+
  |   |
  |   O
  |   |
  |
__+__
g, h, n, o, u
--o--ng---
 
!!hang i
 
  +---+
  |   |
  |   O
  |   |
  |
__+__
g, h, i, n, o, u
--o--ngi--
 
3:39 AM
!!hang l
 
  +---+
  |   |
  |   O
  |   |
  |
__+__
g, h, i, l, n, o, u
--o--ngi-l
 
!!hang r
 
  +---+
  |   |
  |   O
  |   |
  |
__+__
g, h, i, l, n, o, r, u
--or-ngi-l
 
!!hang a
 
  +---+
  |   |
  |   O
  |   |
  |
__+__
a, g, h, i, l, n, o, r, u
--orangial
 
3:40 AM
!!hang e
 
  +---+
  |   |
  |   O/
  |   |
  |
__+__
a, e, g, h, i, l, n, o, r, u
--orangial
 
@QuyTang hey gm :)
 
  +---+
  |   |
  |  \O/
  |   |
  |
__+__
a, e, g, h, i, l, n, o, r, t, u
--orangial
 
what word is it :(
can't guess it out
!!hang x
 
  +---+
  |   |
  |  \O/
  |   |
  |  /
__+__
a, e, g, h, i, l, n, o, r, t, u, x
--orangial
 
3:43 AM
!!hang v
 
@QuyTang You people suck. The word is sporangial
 
:|
!!urban sporangial
 
@QuyTang No definition found for sporangial
 
4:10 AM
!!sayyo
 
Heyo o/ All from TheLittleNaruto :)
 
4:32 AM
41 messages moved from [Java and Android era ](chat.stackoverflow.com/rooms/19132/java-and-android-era)
 
 
3 hours later…
7:08 AM
var i;
var l = arr.length;
for (i = 0; i < l; i++) {
//
}

vs


for (let i, l = arr.length; i < l; i++) {
//
}


Is there really a difference?
 
1 message moved from [JavaScript - bringing back connorspiracies. ](chat.stackoverflow.com/rooms/17/…)
 
@ColdFire in Gujarati ?
-_-
okay no prob
4 messages moved from [Java and Android era ](chat.stackoverflow.com/rooms/19132/java-and-android-era)
 
user6438653
7:54 AM
pansexuals are pedophiles.
 
1 message moved from Teenage Territory
 
 
3 hours later…
10:28 AM
this is perhaps more HTML than JavaScript but with this code:
<ul>
<li th:each="order : ${orders}" th:text="${order.name}">user name</li>
</ul>
 
1 message moved from [JavaScript - bringing back connorspiracies. ](chat.stackoverflow.com/rooms/17/…)
 
With this code:
<ul>
<li th:each="order : ${orders}" th:text="${order.name}">user name</li>
</ul>
 
1 message moved from [JavaScript - bringing back connorspiracies. ](chat.stackoverflow.com/rooms/17/…)
 
 
8 hours later…
6:07 PM
   let FuckYou = None

   let out ( idk : uint16 ) = match idk with
                              | 0us -> Some <| 1
                              | _ -> FuckYou
 
 
2 hours later…

« first day (1415 days earlier)      last day (2687 days later) »