lambdahands

module ListExtra = struct
  open Core.Std
    
  (*- Maps a function to each "column" in a list of "rows".
    
    mapv [[1;2;3]; [3;4;5]] ~f:(List.fold ~init:0 ~f:(+));;
    - : int list = [4; 6; 8]
  *)
  let mapv ls ~f = let open List in
    let cmp x y = if length x = length y then 0

lambdahands

(*
 * An OCaml implementation of final tagless, inspired from this article by Oleksandr Manzyuk:
 * https://oleksandrmanzyuk.wordpress.com/2014/06/18/from-object-algebras-to-finally-tagless-interpreters-2/
 *)

module FinalTagless = struct
  type eval = { eval : int }
  type view = { view : string }

  module type ExpT = sig

lambdahands

(*
 * An OCaml implementation of object algebras, inspired from this article by Oleksandr Manzyuk:
 * https://oleksandrmanzyuk.wordpress.com/2014/06/18/from-object-algebras-to-finally-tagless-interpreters-2/
 *)

module ObjectAlgebras = struct
  (* We technically don't need these interfaces;
   * added here to compare between the Java implementation *)
  type 'a expAlg = < lit : int -> 'a; add : 'a -> 'a -> 'a >
  type 'a mulAlg = < mul : 'a -> 'a -> 'a >

lambdahands

/* @flow */

var T = require('immutable');

type Branch    = T.List<string>
type TrainLine = T.Map<string, Branch>
type CTAMap    = T.Map<string, TrainLine>

/*
 * Representation of Chicago's train stops and branches

lambdahands

# A side effect-less Factor operation.
[ ] call

lambdahands

#!/bin/bash
transfer() {
  echo $(gpg -ac --cipher-algo AES256 --sign --force-mdc < $1) | curl http://transfer.sh/$1 -T -
}

recover() {
  curl $1 | gpg -ad
}

alias transfer=transfer

lambdahands

import Data.Text (split, pack, unpack)

splitStr :: Char -> String -> [String]
splitStr c str = map unpack $ split (== c) (pack str)

lambdahands

(ns my-project.core
  (:require-macros [my-project.macros :refer [style-el]]))

(defn create-el [kind]
  (. js/document (createElement (name kind))))

(let [div (create-el :div)]
  ;; Works as expected
  (style-el div :width "50%")