fredcy

import Graphics.Element exposing (..)

main2 = 
  let
    me = you
    you = "Jane"
  in
      show (me, you)
  
main3 =

fredcy

import Graphics.Element exposing (show)

type Foo = A { x : Int, y : String }
         | B { x : Int, m : Float }

f : Foo -> Foo
f foo =
  let
     incr v = { v | x = v.x + 1 }
  in 

fredcy

Keybase proof

I hereby claim:

• I am fredcy on github.
• I am fredcy (https://keybase.io/fredcy) on keybase.
• I have a public key ASDaqzdEQzsRRt-VbmDXscGVjQ8suYzQuPbdzfou3dPsYQo

To claim this, I am signing this object:

fredcy

module Main (..) where

import Html
import Html.Events
import Http.Extra
import Task
import Effects
import StartApp

fredcy

module Main where

import Graphics.Element exposing (Element, show)


main : Element
main =
  show <| dot (Vec2 3 5) (Vec2 5 6)
  
  

fredcy

module Main (..) where

import Effects exposing (Effects, Never)
import Html exposing (..)
import Html.Attributes exposing (style)
import Html.Events exposing (onClick)
import Http
import Json.Decode as Decode exposing ((:=))
import Json.Decode.Extra exposing ((|:))
import Task

fredcy

import Html exposing (text)

data1 = [ 1, 2, 3, 11 ]

fn1 x = if x < 12 then Just (x + 100) else Nothing

maybeMap : (a -> Maybe b) -> List a -> (Maybe (List b))
maybeMap fn list =
  case list of
    [] -> Just []

fredcy

convert : String -> String
convert snakeStr =
  let
    repl : Regex.Match -> String
    repl match =
      case List.head match.submatches of
        Just submatch ->
          submatch |> Maybe.withDefault "" |> String.toUpper
        Nothing ->
          Debug.log "error: no submatch" "ERROR"

fredcy

import Html exposing (text)

main =
  text <| toString <| cartesian ["a", "b", "c"] [1..5]
  
cartesian : List a -> List b -> List (a,b)
cartesian xs ys =
  List.concatMap
    ( \x -> List.map ( \y -> (x, y) ) ys )
    xs

fredcy

import Html exposing (text)

main =
  text <| toString <| group data
  
type alias Interval = (Int, Int)

data =
  [ (1, 2), (3, 5), (4, 10), (5, 8), (5, 12), (13, 15), (14, 20)]