delonnewman

require 'continuation'
#
# Messing around with mimicking Scheme in Ruby by implementing the Yin/Yang puzzle with Kernel#callcc and a fake 'let' macro
# 
# See also:
#   http://blog.gonzih.me/blog/2013/11/26/yin-yang-callcc-puzzle-in-ruby/, 
#   http://stackoverflow.com/questions/16843853/how-to-implement-let-in-scheme
#

# In Scheme (the original)

delonnewman

;; Datomic example code

;; demonstrates various update scenarios, using a news database
;; that contains stories, users, and upvotes

;; grab an in memory database
(use '[datomic.api :only (q db) :as d])
(def uri "datomic:mem://foo")
(d/create-database uri)
(def conn (d/connect uri))

delonnewman

using System;
using System.Collections;
using System.Collections.Specialized;
using System.IO;
using System.Net;
using System.Reflection;
using System.Text;
using System.Threading;

class Program

delonnewman

open System

let funnysums n =
    seq { 1 .. n } |> Seq.map (fun i -> seq { 0 .. i } |> Seq.reduce(+))

[<EntryPointAttribute>]
let main args =
    let sums = funnysums(Int32.Parse(args.[0]))
    printfn "%A" sums
    0

delonnewman

package hilbert;

import java.util.ArrayList;
import java.util.Iterator;
import java.util.List;


import org.dom4j.Document;
import org.dom4j.Element;

delonnewman

#
# Creates a set 'Patients' from the ORM model 'Recruitment::Patient'
# (DataMapper, ActiveRecord, and plain Ruby Arrays are supported)
# 
# When exported as a PDF it will have the title "Recruited Patients"
# and the subtitle "[DATE], [NUMBER OF CASES] Cases"
#
defset :Patients do
  from Recruitment::Patient
  has :fields   => [ :PID, :DateOfDeath, :CompletionDate ],

delonnewman

"Place me as a seal upon your heart, as a seal upon your arm; because love is as strong as death is, insistence on exclusive devotion is as unyielding as She′ol is. Its blazings are the blazings of a fire, the flame of Jah."
--Song of Solomon 8:6

"Love is as strong as death is"
What can men do to me?
Walking, while men naked stumble and fall
Seeing and believing because it cannot lie
Longing for restoration beginning to see

delonnewman

Come with me to life's water  
On the river's bed we will lie  
And on the water's crest we will rise again  

Come with me to life's water  
On the open sea we will see tomorrow  
And on the moores of night we will long for silence  

With hearts soaked we will drink...  
	With minds moist we will bathe...  

delonnewman

The C Bus
packed to the brim with
restless laborers,
the aged,
the handicapped, and
the poor

Journeying to the sunshine city seeking a
reward for their labor,
rejuvenation for their aged and

delonnewman

#!/usr/bin/env perl
use strict;
use warnings;

my %ADDRESSES = (
    G => '92-1171 Palahia St',
    H => '92-1167 Palahia St',
    J => '92-1179 Palahia St',
    K => '92-1183 Palahia St',
    L => '92-1185 Palahia St'