fredcy

Verifying my Blockstack ID is secured with the address 12YXsYfyefSi8PPRSZShNW1NwY3c1LNo8W https://explorer.blockstack.org/address/12YXsYfyefSi8PPRSZShNW1NwY3c1LNo8W

fredcy

module Michelson exposing (..)

import Json.Decode as Decode
import Json.Decode.Pipeline as Decode


type alias Script =
    { code : Code
    , storage : Storage
    }

fredcy

port module Main exposing (..)

import Json.Encode
import Test exposing (Test, describe, test)
import Test.Runner.Node
import Expect


main =
    Test.Runner.Node.run emit <|

fredcy

module Main exposing (main)

import Html
import Html.App
import Http
import Json.Decode as Json exposing ((:=))
import Task exposing (Task)


type alias Model =

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)]

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

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)

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

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

module Main where

import Graphics.Element exposing (Element, show)


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