jackrusher

;; semantic web data is often formatted as RDF/XML, but I think that
;; format is horrible, so I generally prefer to use something like
;; n-triples (N3):
;; https://dvcs.w3.org/hg/rdf/raw-file/default/rdf-turtle/n-triples.html

;; for the sake of this gist we'll limit ourselves to the flavor of N3
;; produced by dbpedia

(def fetch-n3
  "Fetch N3 data for a given dbpedia resource. Expects a URL like

gfredericks

(ns brainfuck
  "A lazy brainfuck interpreter.

  Memory consists of a fixed-length array of bytes in the range
  0..255, where arithmetic wraps around. Moving the data pointer
  out of the range of memory throws a SEGFAULT error.

  Input must be given as a string or sequence when calling one
  of the eval functions, and if the program tries to read after
  input has been exhausted an exception will be thrown.")

danwrong

# Welcome to Sonic Pi v2.0
use_bpm 140

in_thread do
  loop do
    4.times do
      3.times do
        sample :ambi_choir, amp: 0.8
        sleep 2
      end

ykarikos

user=> (use 'ws-test)
nil
user=> @state
{}
user=> (connect "localhost")
true
user=> @@connection
<< stream: {:type "splice", :sink {:type "netty", :sink? true, :closed? false}, :source {:pending-puts 0, :drained? false, :buffer-size 0, :permanent? false, :type "manifold", :sink? true, :closed? false, :pending-takes 1, :buffer-capacity 16, :source? true}} >>
user=> (send-message @@connection {:msg "It works!" :count 1})
<< true >>

nasser

(ns sliders)

(defmacro slider [l]
  (let [dashes (vec (repeat l "-"))]
    `(do ~@(map (fn [i]
                  `(defn
                     ~(symbol (clojure.string/join (assoc dashes i "*")))
                     []
                     ~(/ i (- l 1))))
                (range l)))))

krisleech

ReAgent

Reagent binds components to data using an atom. An atom is a ClojureScript reference type. An atom references an immutable value, but the reference itself is mutable, it can be changed using reset! and swap! to reference a different imumtable value. Changes to atom's are atomic.

The value can be retrived by dereferencing the atom using deref or the @ prefix.

Functions can be attached to atoms to watch for changes, the function will get the atoms old and new state as arguments.

Reagent provides its own atom, reagent/atom, which has watches setup to rerender compontents which reference the atom.

paniq

; shader
(compile-program tet-pg
    (glsl-string
        (#version 150)
        
        (#include "lib/ext.glsl")
        (#include "lib/projection.glsl")
        (#include "lib/hslhsv.glsl")
        
        (#escape ubo_decls)

nasser

;; https://pauladamsmith.com/blog/2015/01/how-to-get-started-with-llvm-c-api.html

(import LLVM
        LLVMModuleRef
        LLVMTypeRef
        Wrap)

(let [module (LLVM/ModuleCreateWithName "my_module")
      params (into-array [(LLVM/Int32Type) (LLVM/Int32Type)])
      fntyp (LLVM/FunctionType (LLVM/Int32Type) params false)

lspector

;; Lee Spector (lspector@hampshire.edu) 20111018 - 20111121

(ns evolvegeo
  (:require [clojure.zip :as zip]))

;; Like evolvefn.clj (https://gist.github.com/1335696), this this code
;; defines and runs a genetic programming system on the problem
;; of finding a function that fits a particular set of [x y] pairs.
;; Unlike evolvefn.clj, this code incorporates trivial geography
;; (http://hampshire.edu/lspector/pubs/trivial-geography-toappear.pdf).

fogus

;; My good-enough glomming together of clojure.test and test.generative

(ns cemerick.generative
  (:require [clojure.test.generative.generators :as gens]
            [clojure.test.generative :as gen])
  (:use clojure.test))

;; Too bad last-report isn't sent an action upon success as well.
;; Perhaps this should just be replaced with a try/catch/rethrow
;; around the body in defspectest