jochasinga

jochasinga

module State = struct
  type t = int
  let inc (n: t) = Transformer.inc n
end
;;

module Transformer = struct
  let inc (n: State.t) = n + 1
end
;;

jochasinga

// Register firebase module                                                                                         
var app = angular.module("app", ["firebase"]);

// Set up controller function                                                                                       
app.controller("Ctrl", function($scope, $firebase) {
    var firebaseRef = new Firebase(
      // Replace this fictional URL with your own
      "https://burning-limbo-6666.firebaseio.com/colors"                                                          
    );
    // create an AngularFire ref to the data                                                                        

jochasinga

let transpose A = 
  let new_mat = Array.make_matrix (Array.length A.(0)) (Array.length A) 0 
  in
  for y = 0 to (Array.length A) - 1 do
    for x = 0 to (Array.length A) - 1 do
      new_mat.(y).(x) <- A.(x).(y)
    done
  done;
  new_mat
in

jochasinga

type 'a tree =
  | Leaf
  | Node of 'a * 'a tree * 'a tree
  
let node_of_tx tx = if String.length tx > 0 then Node (tx, Leaf, Leaf) else Leaf

let tree_of_txs txs =
  let nodes = List.map node_of_tx txs in
  match nodes with
  | [] -> Leaf

jochasinga

type socket
type event

type config = {
  reconnect: bool;
  debug: bool;
  timeout: int;
  interval: int
}

jochasinga

package main

import (
	"log"
	"strings"
)

type Session struct {
	Email    string
	Password string

jochasinga

function search(dst, arr) {
  
  // sort the input array
  arr.sort((a, b) => a-b);
  
  // if array is reduced to a member and still no match, return false
  if ((arr.length == 1) && (arr[0] !== dst))
    return false;
  
  // define a middlebound

jochasinga

-- Modified button example http://elm-lang.org/examples/buttons 
-- Added a reset button and a field to indicate step size to increment or decrement

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onClick, onInput)
import String

-- MAIN

jochasinga

package main

import "fmt"

type List struct {
        Inner []int
}   

func NewList(s []int) List {
        return List{Inner: s}