Skip to content

Instantly share code, notes, and snippets.

View ners's full-sized avatar
🦥
functionally lazy

𝐧𝐞𝐫𝐬 ners

🦥
functionally lazy
View GitHub Profile
@ners
ners / Schedule.hs
Last active May 20, 2022 02:50
A Haskell program that parses Doodle responses and selects the two best time slots such that as many participants as possible may attend.
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Main where
import Data.Aeson (FromJSON, Object, Value (..), eitherDecodeFileStrict, parseJSON, (.:))