fogus

----------------------------------------------------------------------------------------------------
--- Making Lua look like Prolog:
---
--- Let's use metatables for something other than emulating prototype-based OO. By making the
--- __index metamethod create values for undefined things, we can make Lua look like Prolog!
--- We create empty tables for anything starting with a capital letter, functions that populate
--- those tables for lowercase things (to assign relationships) and if a name begins with "is_"
--- then it becomes a function that queries those tables.
----------------------------------------------------------------------------------------------------

fogus

(defn push-wrap [v wrap & args]
  (alter-var-root v #(with-meta (apply wrap % args) {::orig %})))
  
(defn pop-wrap [v]
  (alter-var-root v #(if-let [m (::orig (meta %))] m %)))

(defn post [orig post-printer]
  (fn [& args]
    (let [rtn (apply orig args)]
      (post-printer orig rtn args)

fogus

// Copyright (c) 2011, the Dart project authors.  Please see the AUTHORS file
// for details. All rights reserved. Use of this source code is governed by a
// BSD-style license that can be found in the LICENSE file.
// Simple test program invoked with an option to eagerly
// compile all code that is loaded in the isolate.
// Compiled using frog, the in-progress self-hosted compiler:
// dart/frog$ ./frogsh --out=hello.js --compile-only samples/hello.dart

class HelloDartTest {
  static testMain() {

fogus

This is my score for the “One Hundred Days of Hacking” game. Rules here.

Date	Score	Commit	Comment
2011-Nov-30	10	51f854e	baysick
2011-Nov-29	9	527e76c	accession
2011-Nov-28	8	d2c7a26	core.cache
2011-Nov-27	7	9bdf608	core.memoize
2011-Nov-26	6	72af911	minderbinder
2011-Nov-25	5	736ed99	core.cache
2011-Nov-24	4	a1021d6	clojurescript

fogus

; TODO
; Incorporate changes
; Convert to concert pitch
; Convert to correct octave

(use 'overtone.live)

(definst beep [note 60 vol 0.5]
  (let [freq (midicps note)
        src (sin-osc freq)

fogus

import improving.benchmark.Benchmark.Race

val list = List(1, 3, 4, 7)

val race = Race(() => fastMatch(list), () => virtMatch_no_option(list))(100000).converge()

def fastMatch(x1: List[Int]) = {
  x1 match {
    case 1 :: 3 :: 4 :: 5 :: x => println("nope")
    case 1 :: 3 :: 4 :: 6 :: x => println("nope") // only need to test whether the previous case failed due to the third element not being 5, and whether third element is 6

fogus

(defmacro let?
  [bindings & body]
  (let [[bind [kwd pred & more]] (split-with (complement #{:ensure}) bindings)]
    `(let [~@bind]
       ~@(cond (and kwd more) [`(when ~pred (check-let [~@more] ~@body))]
               kwd            [`(when ~pred ~@body)]
               :else body))))

(let? [x 100
       y 300

fogus

(defn anyo [g]
  (conde
    [g succeed]
    [(anyo g)]))

(def nevero (anyo fail))

(run* [q]
  (conde
    [nevero]

fogus

(ns overtone-xmas.bells
  ( :use [overtone.live]
         [overtone.sc.machinery.defcgen]))



;;http://computermusicresource.com/Simple.bell.tutorial.html
(def dull-partials
  [
   0.56

fogus

(ns overtone-xmas.bells
  ( :use [overtone.live]
         [overtone.sc.machinery.defcgen]))



;;http://computermusicresource.com/Simple.bell.tutorial.html
(def dull-partials
  [
   0.56