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
for Boot, slides and help with Boot intel.
for slides and help with Lein pitfals
( 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. |
(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 |
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's solution to http://4clojure.com/problem/26 | |
#(take % ((fn fib [a b] | |
(lazy-seq | |
(cons b (fib b (+ a b))))) 0 1)) |
#!/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 |
#!/usr/bin/env perl | |
use strict; | |
use warnings; | |
use LWP::Simple; | |
use URI; | |
use URI::QueryParam; | |
use URI::Escape; | |
while(<>) { | |
my ($url, $title) = split(/\|/); |
#!/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'; |