Skip to content

Instantly share code, notes, and snippets.

@bstro
bstro / gist:1f3f8ea55106dfcd3772
Last active August 29, 2015 14:06
euler2 with generators and shitty transducers
/** @jsx React.DOM */
// EULER 2
var isEven = val => val % 2 === 0;
var concat = (acc, cur) => acc.concat(cur)
var sum = (a, b) => a + b;
var webpack = require('webpack');
var WebpackDevServer = require('webpack-dev-server');
var config = require('./webpack.config');
new WebpackDevServer(webpack(config), {
publicPath: config.output.publicPath,
hot: true
}).listen(3000, 'localhost', function (err, result) {
if (err) {
console.log(err);
var React = require('react/addons'),
supportPageOffset = window.pageXOffset !== undefined,
isCSS1Compat = ((document.compatMode || "") === "CSS1Compat"),
components = [],
lastValue = -1,
ticking = false,
windowHeight = window.innerHeight,
compose = function() { // from underscore
var args = arguments;
var start = args.length - 1;
@mixin keyframe($animation_name) {
@-webkit-keyframes $animation_name { @content }
@-moz-keyframes $animation_name { @content }
@-o-keyframes $animation_name { @content }
@keyframes $animation_name { @content }
}
module Main where
import Graphics.Element exposing (show)
import Json.Decode as Json exposing (decodeString, list, int, oneOf, string, (:=), object5, maybe, succeed)
type alias ID = Int
type alias Model =
{ entries : List Entry
, nextID : ID
}
module Main where
import Graphics.Element exposing (show)
import Json.Decode as Json exposing (decodeString, list, int, oneOf, string, (:=), object5, succeed)
type alias ID = Int
type alias Entry =
{ name : String
, birth : Int
, death : Int
(=>) = (,)
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
case msg of
NoOp
-> model
=> Cmd.none
Init res
import Html exposing (Html)
import Html.App as Html
import Html.Attributes as Attr
import WebGL exposing (..)
import AnimationFrame exposing (..)
import Basics.Extra exposing (never)
import List.Extra exposing (andThen)
import Time
import Window
import Mouse
import Html exposing (Html)
import Html.App as Html
import Html.Attributes as Attr
import WebGL exposing (..)
import AnimationFrame exposing (..)
import Basics.Extra exposing (never)
import List.Extra exposing (andThen)
import List exposing (concat)
import Time
import Window
Running "amberc:all" (amberc) task
Warning: amber_dir needs to be a valid directory Use --force to continue.
Aborted due to warnings.
grunt exec error:
3
bstro:amber-scratch bstro$ npm -g list
/Users/bstro/n/lib
├─┬ amber-cli@0.15.0
│ ├── amber@0.15.1