apg

(use-modules (cairo))

(define *pi* 3.1415926535897931)

(define *image-operations* (make-hash-table))

(define (register-image-operation name f)
  (hash-set! *image-operations* name f))

(register-image-operation 'move

apg

$ ruby1.9.1 error-quine-generator.rb -v python 10 "foo bar"
seed text: foo bar

foo bar

  File "/tmp/quine.py", line 1
    File "/tmp/quine.py", line 1
    ^
IndentationError: unexpected indent

apg

Subject: Rocky had to wrap up his hands after Drago too... (Round 16 Wrap Up)

(While James was out sick^Wabusing the list, I was fighting with my MacBook (5,1) which no longer boots Debian[0]. So, apologies for the wrap up's tardiness, but here we go!)

Hello Hackers-

Thanks to Meetup for hosting us again! If you or someone you know would like to host us, and have room for 75-100+ people, get in

apg

package main

import (
	"errors"
	"fmt"
	)

type BaseField interface {
	NameOf() string
	IsOptional() bool

apg

I was taught assembler in my second year of school.
It's kinda like construction work — with a toothpick for a tool.
So when I made my senior year, I threw my code away,
And learned the way to program that I still prefer today.

Now, some folks on the Internet put their faith in C++.
They swear that it's so powerful, it's what God used for us.
And maybe it lets mortals dredge their objects from the C.
But I think that explains why only God can make a tree.

apg

(define (game min max)
  (let* ((guess (floor (/ (+ min max) 2)))
        (hl (begin (format #t "is your number ~a?\n(h)igher/(l)ower/(c)orrect: " guess) (read))))
    (cond
     ((eq? hl 'h) (game guess max))
     ((eq? hl 'l) (game min guess))
     ((eq? hl 'c) (format #t "I win!\n"))
     (else (game min max)))))
(game 0 100)

apg

;; Suppose you have this function partition which splits a list
;; in two as soon as the predicate p? returns true. It does not
;; include the value that the predicate succeeded on, but values
;; after it are included.

(define (partition cs p?)
  (let loop ((l cs)
             (accum '()))
    (cond
     ((null? l) (values (reverse accum) '()))

apg

#!/bin/bash
# passadd

if [ -z "$PASSFILE" ]
then
   echo "PASSFILE doesn't exist"
   exit 1
fi

if [ $# -ne 1 ]

apg

#!/bin/bash
# passadd

if [ -z "$PASSFILE" ]
then
    echo "PASSFILE doesn't exist"
    exit 1
fi

if [ $# -ne 1 ]

apg

#!/bin/bash

ps ax | grep "emacs --daemon" | grep -v "grep"
if [ "$?" -eq "1" ]
then
   /usr/bin/emacs --daemon
fi

/usr/bin/emacsclient -c $@