tolitius

Thanks!

Alan Dipert (@alandipert) and Micha Niskin (@micha)

for Boot, slides and help with Boot intel.

Juno Terepi (@deraen)

for slides and help with Lein pitfals

scottwalters

( perl5.12.3 -d:Trace t/013_complexType.t 2>&1) | grep -v '/home/scott/lib/' | sed -e 's!lib//SOAP!lib/SOAP!'  > trace512.txt
( perl -d:Trace t/013_complexType.t 2>&1)       | grep -v '/usr/local/lib/perl5/' > trace519.txt

# For example... the library paths to grep out vary (5.12.3 was installed in my home dir whereas 5.19.9 is in /usr/local).

kompare trace*.txt

That creates full execution traces, showing every line that Perl runs, while running the same unit test under two different versions of Perl.  grep -v removes all lines traced from running installed modules so that only tracing from the unit test and non-installed module are left.  kompare does a visual comparison on that.  The point in the code where execution diverges for whatever reason will be clear in the visual diff.

aphyr

(ns messagepassing.core)

(import [java.util.concurrent LinkedTransferQueue])
(def m 10000000)

(defn queue-test []
  (defn bounce [in out m]
    (let [value (.take in)]
      (if (< value m)
        (do

aphyr

var cluster = require('cluster');

var m = 10000000;

function bounce(msg, out) {
  if (msg < m) {
    out.send(msg + 1);
    return null;
  } else {
    console.log("Finished with", msg);

ninjudd-4clojure-solution26.clj

;; ninjudd's solution to http://4clojure.com/problem/26

#(take % ((fn fib [a b]
            (lazy-seq
             (cons b (fib b (+ a b))))) 0 1))

awwaiid

#!/usr/bin/perl
use strict;
use Image::Magick;

# auxiliary variables
my $img_id = 0;                #loop index
my @ordered_squares;
my $rotation = 180;

#Width and Height of each box, squares per side

beppu

#!/usr/bin/env perl
use strict;
use warnings;
use LWP::Simple;
use URI;
use URI::QueryParam;
use URI::Escape;

while(<>) {
  my ($url, $title) = split(/\|/);

beppu

#!/usr/bin/env perl
use common::sense;
use AnyEvent;
use AnyEvent::HTTP;
use JSON;

# Get your API key here:
# http://imgur.com/register/api_anon
my $imgur_api_key = '69696969696969696969696969696969'; # XXX - replace me
my $imgur_upload  = 'http://api.imgur.com/2/upload.json';