View Makefile
all: json2bson
clean:
rm -f json2bson
json2bson: json2bson.c
${CC} $(shell pkg-config --cflags json libmongo-client glib-2.0) -Wall -O0 -ggdb3 -std=c99 ${CFLAGS} \
$(shell pkg-config --libs json libmongo-client glib-2.0) -o $@ $^
check: all
./json2bson <test.json >test.bson
View trim-at-boundary.clj
(ns algernon.util
(:require [clojure.contrib.str-util2 :as s]))
(defn trim-at-boundary [string max-len]
(if (< (.length string) max-len)
string
(str (s/take
(reduce #(if (< (+ (.length %1) (.length %2) 1) (- max-len 3))
(str %1 " " %2) %1)
(s/split string #"\s"))
View utf8wtf.rb
#! ruby -KUTF-8
hello world = "Goodbye world!"
  = "For real?!?"
 1 = 2
puts 1 + 1
puts hello world
puts  
View journal2json.py
#! /usr/bin/python
## Usage: systemd-journalctl | journal2json.py
import json
import sys
class JournalCtlParser:
fp = None
def __init__(self, fp):
View uniq-c.pl
#!perl -n
BEGIN{$;=open(STDOUT,"|sort -nr")&&0;}$"=$_ if !$;++;next if $_ eq $";print $;-1 ."|".$";($;,$")=(1,$_);END{print "$;|".$";}
View amqp-consumer.py
#! /usr/bin/python
import sys
import pika
# Import all adapters for easier experimentation
from pika.adapters import *
pika.log.setup(pika.log.INFO, color=True)
View dance.bas
10 PRINT CHR$(27);"N"
20 PRINT "\o/"
30 PRINT " | "
40 PRINT "/ \"
50 FOR I=1 TO 1000: NEXT
60 PRINT CHR$(27);"N"
70 PRINT " o "
80 PRINT "/|\"
90 PRINT "/ \"
100 FOR I=1 TO 1000: NEXT
View python-lisp-hybrid
def foobar(blah):
((for i in range(1, 10):
((((print "blah: %s" % blah))))))
View fizzbuzz-seq.clj
(defn fizzbuzz-seq
[]
(letfn [(nil-prefix [n s]
(concat (take n (cycle [nil])) [s]))]
(map #(let [s (or %4 %2 %3 (inc %1))] s)
(range)
(cycle (nil-prefix 2 "Fizz"))
(cycle (nil-prefix 4 "Buzz"))
(cycle (nil-prefix 14 "FizzBuzz")))))
View fizzbuzz-logic.clj
(refer 'clojure.core :exclude [==])
(use '[clojure.core.logic])
(require '[clojure.core.logic.fd :as fd])
(require '[clojure.test :as t])
(defn multo
"Ensure that `n` is a multiplicate of `div`."
[n div]
(fresh [x]