| #!/usr/bin/env bash | |
| set -Eeuo pipefail | |
| trap cleanup SIGINT SIGTERM ERR EXIT | |
| script_dir=$(cd "$(dirname "${BASH_SOURCE[0]}")" &>/dev/null && pwd -P) | |
| usage() { | |
| cat <<EOF | |
| Usage: $(basename "${BASH_SOURCE[0]}") [-h] [-v] [-f] -p param_value arg1 [arg2...] |
Racing the Beam: The Atari Video Computer System
This is the book that got me excited about emulation and got me thinking about some of these computers in general.
Koji Kondo's Super Mario Bros. Soundtrack
I read this around the same time. It talks at length about the audio capabilities of the NES, which I haven't touched on here but are interesting and influential!
A list of commonly asked questions, design decisions, reasons why Clojure is the way it is as they were answered directly by Rich (even when from many years ago, those answers are pretty much valid today!). Feel free to point friends and colleagues here next time they ask (again). Answers are pasted verbatim (I've made small adjustments for readibility, but never changed a sentence) from mailing lists, articles, chats.
How to use:
| (ns todo-server.core | |
| (:require | |
| [cljs.nodejs :as nodejs] | |
| [figwheel.client :as fw])) | |
| (nodejs/enable-util-print!) | |
| (defonce express (nodejs/require "express")) | |
| (defonce serve-static (nodejs/require "serve-static")) | |
| (defonce http (nodejs/require "http")) |
Recent improvements to the ClojureScript compiler have greatly simplified setting up development versus production outputs.
This example uses Figwheel as something that you want to exclude for production, but the pattern is general.
With this simple setup you only need one html file/view and it will work for developement and production.
| (ns om-data.core | |
| (:require [om.core :as om :include-macros true] | |
| [om.dom :as dom :include-macros true] | |
| [datascript :as d])) | |
| (enable-console-print!) | |
| (def schema {}) | |
| (def conn (d/create-conn schema)) | |
| (ns async-examples.load-balancer | |
| (:require [clojure.core.async :refer :all])) | |
| ;; Let's assume we have a DB, and it holds the following pairs of name/ages | |
| (def db-store | |
| {:john 42 | |
| :amy 33 | |
| :jill 3 |
| #_( | |
| Let's say you have a threadpool doing work that requires access to some shared resource. | |
| And this resource needs to be refreshed at times. E.g. an OAuth bearer token that can expire or be revoked. | |
| If this resource were expensive to refresh, or subject to rate limiting (OAuth tokens are often both) | |
| then it's desirable to refresh as little as possible. | |
| It's undesirable, however, to mix complicated synchronization code for updating the resource in | |
| with the business logic consuming it. | |
| Enter the lock less monster, a lock free method for coordinating updates to a shared reference. |
| (ns net.cgrand.decay | |
| "Exponentially decaying lists. See http://awelonblue.wordpress.com/2013/01/24/exponential-decay-of-history-improved/ | |
| for background and http://clj-me.cgrand.net/2013/02/12/decaying-lists-log-scale-for-lists/ for documentation") | |
| ;; PRNG, formulas straight from java.util.Random javadoc | |
| (defn- seed ^long [^long n] | |
| (bit-and (unchecked-multiply n 0x5DEECE66D) | |
| (unchecked-dec (bit-shift-left 1 48)))) | |
| (defn- next-seed ^long [^long seed] |
| (import '(javax.sound.midi MidiSystem Synthesizer)) | |
| (defn play-note [synth channel note-map] | |
| (let [{:keys [note velocity duration] | |
| :or {note 60 | |
| velocity 127 | |
| duration 1000}} note-map] | |
| (. channel noteOn note velocity) | |
| (Thread/sleep duration) | |
| (. channel noteOff note))) |
