jbarber

(defn freq2leaves 
  "Convert a sequence of symbols and their frequency into a sequence of hash-maps with keys :sym :freq"
  [xs] (map #(hash-map :sym (first %) :freq (second %)) xs))

(defn huffman 
  "Perform Huffman encoding for the sequence xs of hash maps from freq1leaves.
  Return tree of hash-maps with keys :freq and either :symbol (when a leaf) or
  :children (when an internal node). :children is a vector of the child nodes."
  [xs]
  (letfn [(sort-queue [xs] (sort #(compare (:freq %1) (:freq %2)) xs))

jbarber

(ns user
  (:require [liberator core representation]
            [ring.middleware params session flash]
            [ring.mock.request]))

;; Return HTTP 303 - have to manage Location ourselves
((->
   (liberator.core/resource
     :available-media-types ["text/html" "application/x-www-form-urlencoded"]
     :allowed-methods [:get :post]

jbarber

#!/usr/bin/env perl

use strict;
use warnings;
use Net::SSLeay qw(get_peer_certificate);
use Net::LDAP;
my $ldap = Net::LDAP->new("ldap.fe.up.pt") or die $!;
$ldap->start_tls or die $!;
$ldap->bind or die $!;

jbarber

(comment (defproject otrs "0.1.0-SNAPSHOT"
           :description "Example of Shibboleth login to OTRS with htmlunit"
           :url "http://example.com/FIXME"
           :license {:name "Eclipse Public License"
                     :url "http://www.eclipse.org/legal/epl-v10.html"}
           :dependencies [[org.clojure/clojure "1.6.0"]
                          [net.sourceforge.htmlunit/htmlunit "2.15"]]))

(ns otrs.core
  (:import (com.gargoylesoftware.htmlunit WebClient)))

jbarber

package main

import (
	"fmt"
	"time"
)

// This function returns a function that returns the current time. The current
// time is only updated when the returned function is called, and at most once
// during every period

jbarber

package main

import (
	"encoding/xml"
	"log"
	"strings"
)

type document struct {
	Title string `xml:"title"`

jbarber

package main

/*
 Example of creating go routine with time based channel - this time can be
 adjusted by the parent, so it can postpone (or bring forwards) whatever the
 child should do. This could be useful for creating a polling mechanism which
 you occasionally want to run sooner.

 The parent creates the channel and passes it to the go routine to wait for 10
 seconds. This channel is used to communicate how long the child should wait

jbarber

use strict;
use warnings;

use Moose;

my $meta = Moose::Meta::Class->create_anon_class();
$meta->add_attribute("foo" => (is => "rw", isa  => "Int"));
$meta->make_immutable;
my $object = $meta->new_object(foo => 2);

jbarber

#!/usr/bin/env python
import os
import sys
import yum

yb = yum.YumBase()
yb.setCacheDir()

#pkgs = yb.pkgSack.searchNames(["perl"])
pkgs = yb.pkgSack.searchNames(sys.argv[1:])

jbarber

#!/usr/bin/env perl

# This script provides a basis for futzing about with redmine via it's API 
# You will also need to refer to TFM at:
# http://www.redmine.org/projects/redmine/wiki/Rest_Issues
# to fully learn how to manipulate the system.
# It's my impression from the Redmine bugtrackker that there seem to be plenty
# of bugs in the Redmine API implimentation, and that the implimentation
# doesn't cover everything you can do via the GUI.