jamesdavidson

<project xmlns="http://maven.apache.org/POM/4.0.0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
  xsi:schemaLocation="http://maven.apache.org/POM/4.0.0 http://maven.apache.org/maven-v4_0_0.xsd">
  <modelVersion>4.0.0</modelVersion>
  <groupId>example.lambda</groupId>
  <artifactId>jisho-b36491</artifactId>
  <packaging>jar</packaging>
  <version>1.0-SNAPSHOT</version>
  <name>jisho-b36491</name>
  <url>http://maven.apache.org</url>
  <dependencies>

jamesdavidson

/*
  Software serial multple serial test
 
 Receives from the hardware serial, sends to software serial.
 Receives from software serial, sends to hardware serial.
 
 The circuit: 
 * RX is digital pin 2 (connect to TX of other device)
 * TX is digital pin 3 (connect to RX of other device)
 

jamesdavidson

-- Euclid's algorithm for calculating the greatest-common-divisor.
gcd :: Integer -> Integer -> Integer
gcd x y =
  if r == 0 then y else (gcd y r)
    where r = (mod x y)

jamesdavidson

// A queue of integer values, implemented as a linked-list.
// Careful, don't pop the queue if it's empty!
// Copyright (c) James Davidson 2015.
// Publicly released under the terms of the MIT License.
// For educational purposes only, obviously; no warranty implied.

#include <stdio.h>
#include <stdlib.h>
#include <stdbool.h>
#include <assert.h>

jamesdavidson

module.exports = function (n,cb) {
  function helper (sum,i) {
  	if (i == 0) return cb(sum);
  	else process.nextTick( helper.bind(null,sum*i,i-1) );
  };
  return helper(1,n);
}

jamesdavidson

APPLE AE P AH L
ORANGE AO R AH N JH
PEAR P EH R
MANDARIN M AE N D ER AH N
GRAPE G R EY P
BANANA B AH N AE N AH

jamesdavidson

; Retrieve a list of buckets.
; Retrieve the access-control-list.
; For each, print the owner's display-name.

(ns com.example
  (:use amazonica.core
        amazonica.aws.s3
        clojure.pprint))

(defn retrieve-name [bucket]

jamesdavidson

; Use Amazonica from https://github.com/mcohen01/amazonica
(ns com.example
  (:use amazonica.aws.ec2
        amazonica.aws.s3
        amazonica.aws.route53))

(describe-instances)
(list-buckets)
(map :name (list-buckets))
(list-hosted-zones)

jamesdavidson

main = mapM_ putStrLn $ take 25 fizzbuzz
fizzbuzz = map (\(f,b) -> f ++ b) $ zip fizzes buzzes
fizzes = map (moddy "fizz" 3) [1..]
buzzes = map (moddy "buzz" 5) [1..]
moddy str b i = if i `mod` b == 0 then str else ""

jamesdavidson

{-# OPTIONS -Wall #-}

module Main where

import Control.Concurrent (threadDelay)
import System.Environment (getArgs)
import System.INotify

main :: IO ()
main = do