Skip to content

Instantly share code, notes, and snippets.

import Html exposing (Html, Attribute, text, toElement, input, div, button, text, li, text, ul)
import Html.Events exposing (onClick, on, targetValue)
import Html.Attributes exposing (..)
import StartApp.Simple as StartApp
import List exposing (..)
import Html.Attributes exposing (class)
{-| Read more about StartApp and how this works at:
https://github.com/evancz/start-app
{-# OPTIONS
-XPatternSynonyms
-XTemplateHaskell
#-}
module CYK where
import Control.Lens
import Control.Monad
import Control.Monad.Free
import Color exposing (..)
import Graphics.Collage exposing (..)
import Graphics.Element exposing (..)
xc = 100
yc = 100
xw = 3072//4
yw = 2304//4