ggb

defmodule SleepSort do

  def sort(list_of_numbers) do
    {:ok, sorted_list} = Agent.start(fn -> [] end)
    
    Enum.map(list_of_numbers, fn number ->
      Task.start(fn -> 
        :timer.sleep(number * 1)        
        Agent.update(sorted_list, fn l -> [ number | l ] end)
      end)

ggb

defmodule Brainfuck do

  @moduledoc """
  Brainfuck, s. http://en.wikipedia.org/wiki/Brainfuck
  """
  
  @register_size 100
  
  # Function to find the next corresponding closing bracket
  defp find_closing_bracket([ 91 | rest ], pos, closing) do

ggb

{
    "links": [
        {
            "source": 0,
            "target": 10,
            "value": 1
        },
        {
            "source": 0,
            "target": 12,

ggb

defmodule SearchTweets do

  # number of tweets that are provided with one request
  # the twitter api allows maximum 100
  @chunk_size 100

  defp fetch_next(term, options) do
    try do
      ExTwitter.search(term, options)
    rescue

ggb

module Slides where

import Markdown
import Keyboard
import Html exposing (Html)


-- Data
type alias Slide = String
type alias SlideZipper = ( List Slide, List Slide ) 

ggb

defmodule DataMuging do

  def processLines [], result, _cols do
    result
  end
	
  def processLines [head | tail], result, { fst, scd, thd } do
    if Regex.match?(%r/^\s*\d+.?\s+/, head) do
      s = String.split head
      processLines tail, [ { Enum.at(s, fst),

ggb

module MyIntList exposing (..)

type MyList = Nil | Cons Int MyList


(#) : Int -> MyList -> MyList
(#) ele list = 
  Cons ele list

ggb

module PortsExample where

import Graphics.Element exposing (show)


type alias MyModel = ( Int, List Int )


initialModel : MyModel
initialModel = ( 0, [] )

ggb

elm-stuff/
*.html
*.js

ggb

module Particle exposing (..)

import Array
import Task
import Html.App as App
import Window exposing (Size, resizes)
import Color exposing (Color, black, white, rgba)
import Element exposing (Element, toHtml)
import Collage exposing (Form, collage, move, rect, filled, circle)
import AnimationFrame exposing (times)