Skip to content

Instantly share code, notes, and snippets.

View justinmimbs's full-sized avatar

Justin Mimbs justinmimbs

  • United States
  • 09:10 (UTC -04:00)
View GitHub Profile
@justinmimbs
justinmimbs / typicalVertices.hs
Created March 23, 2016 04:30
Compute the twenty-one typical vertices
import Data.List
import Data.Ratio
import Data.Maybe
import qualified Data.Map as Map
internalAngle :: Integer -> Rational
internalAngle sides = ((sides - 2) * 180) % sides
rotate1 :: [a] -> [a]
rotate1 list = last list : init list
import Html exposing (Html, div, h1, br, button, text)
import Html.App as App
import Html.Events exposing (onClick)
import Html.Attributes exposing (style)
import VirtualDom as Dom
import String
main =
App.beginnerProgram

Failure in the waiting

Null

I call it my billion-dollar mistake. It was the invention of the null reference in 1965.

—Tony Hoare

Exceptions

module Main exposing (..)
import Html exposing (Html)
import Html.Events
import Html.Lazy
{-
Click the text three times.
module Main exposing (..)
import Html exposing (Html)
import Html.Attributes
import Html.Events
import Json.Decode as Decode exposing (Decoder)
{-
(Chrome only)