philandstuff

(ns tarai.core
  (:use [overtone.live])
  (:use [clojure.algo.monads :only [state-t cont-m run-cont domonad]]))

(def m (metronome 400))

;; basic.clj より
(defsynth foo [freq 200 dur 0.5]
  (let [src (saw [freq (* freq 1.01) (* 0.99 freq)])
        low (sin-osc (/ freq 2))

philandstuff

(ns polynome-satie.core
  (:use [clojure.core.match :only [match]]
        [polynome core launchpad]
        [overtone.live]
        [overtone.inst sampled-piano]))

;;Erik Satie Gnossienne No. 1
(def phrase1a [:v :vii :vi# :v :v :iv# :v :iv#])
(def phrase1b [:v :vii :vi# :v :vii# :i+ :vii# :i+])
(def phrase1c [:v :vii :vi# :v :v :iv# :iii :ii :i :ii :i :ii :iii :ii :ii :i])

philandstuff

(ns examples.coordination
  (:use [overtone.live]
        [overtone.inst.synth])
  (:require [polynome.core :as poly]))

;;ping

(def m (poly/init "/dev/tty.usbserial-m64-0790"))

(poly/on-press m (fn [x y s]

philandstuff

# So the problem is inserting data into neo using the batch API. So we have a bunch of people and we want to put them into the graph and also
# add to to the index so that we can search for them. 
# The way the batch API works is that you can refer to previous commands by referencing their index in the list of commands (zero indexed)
# e.g. if I want to reference the person added in the first command I would reference that node as {0} 
# You should be able to see how that works in the code below.  

neo_people_to_load = Set.new
neo_people_to_load << { :name => "Mark Needham", :id => 1 }
neo_people_to_load << { :name => "Jenn Smith", :id => 2 }
neo_people_to_load << { :name => "Chris Ford", :id => 3 } 

philandstuff

module FizzBuzz where
import           Data.Maybe

data FizzBuzz = Fizz | Buzz deriving Show

whenDivisible :: Integral a => a -> b -> a -> Maybe b
whenDivisible d x n = if n `rem` d == 0 then Just x else Nothing

fizzbuzz :: (Show a, Integral a) => a -> String
fizzbuzz n = if null tags then show n else concatMap show tags

philandstuff

module FizzBuzz where
import Data.Foldable (fold)
 
whenDivisible :: Integral a => a -> b -> a -> Maybe b
whenDivisible d x n = if n `rem` d == 0 then Just x else Nothing
 
fizzbuzz :: (Show a, Integral a) => a -> String
fizzbuzz n = maybe (show n) id tagStr
  where tagStr = fold [fizz n, buzz n]
        fizz = whenDivisible 3 "Fizz"

philandstuff

(function() {
  var jQuery = window.$;

  var OpenRegister = function(endpoint) {
    this.endpoint = endpoint;
  };

  OpenRegister.prototype.buildURL = function(path) {
    return this.endpoint + path + ".json";
  };

philandstuff

require 'octokit'

client = Octokit::Client.new(access_token: "<TOKEN>")

repos = client.repos('gds-attic')

repos.take(10).each do |repo|
  puts "archiving #{repo.url}..."
  client.post(
    "#{repo.url}/transfer",