Justin Mimbs justinmimbs

Failure in the waiting

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

—Tony Hoare

	module Main exposing (..)

	import Html exposing (Html)
	import Html.Attributes
	import Html.Events
	import Json.Decode as Decode exposing (Decoder)


	{-
	(Chrome only)

	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

	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