Benjamin Bryan

2005-01-11 14:01:00

by

2005-01-11 14:01:00
First Day of Classes
Well, here it is the first day of classes and the teacher didn’t show for the first one (snowed in I guess). So I’m getting some work done in the library using the old IBM 600E connected to the internet via Asus pocket wireless ap/adapter (in adapter mode now, I just wanted to see if it would work). …and yes I did get the shifter fixed.

2005-01-01 23:38:00

by

2005-01-01 23:38:00
Happy New Year!
The 6 month switchover completed on schedule. All data is off the Falcon so its ready to go down. Hosting is now completely California-free.

Take a look at Jon Clede’s new kidbritish.org for the new year! 4 days of Christmas left.

2004-12-28 12:27:00

by

2004-12-28 12:27:00
Power Failure
We have a power failure at our California datacenter. The Falcon server has been taken down (154 days uptime). Most people are on Hobbes (in the Florida datacenter) so this is not likely to effect you.

2004-12-11 02:17:00

by

2004-12-11 02:17:00
.plan
Before End of Year. 

  1. Get all of my hosted sites into the Fort Lauderdale or New Jersey datacenters.
  2. Wrap presents (finished shopping!)
  3. Think about inventing a meta-markup language for b3n.org
  4. Finish 2005 budget

2004-11-26 01:24:00

by

2004-11-26 01:24:00
First shot at LISP

Beer 

; beer.lisp
; Benjamin Bryan
; November 25, 2004 (midnight of course)
; This Program writes the lyrics to 99 bottles of beer on the wall.

(setf lyrics '((" bottles") (" of beer") (" on the wall ") (" take one down pass it around ")))

(defun bottles-of-beer (x)
  (princ x)
  (if (= x 1)
      (princ " bottle")
    (princ(first(first lyrics))))
  (princ(first(first(rest lyrics)))))

(defun display (x)
  (bottles-of-beer x)
  (princ(first(first(rest(rest lyrics)))))  (bottles-of-beer x)
  (princ(first(first(rest(rest(rest lyrics))))))
  (if (> x 1)
      (bottles-of-beer (- x 1))
    (princ "no more bottles of beer"))
  (princ(first(first(rest(rest lyrics))))))

(defun beer (x)
  (display x)
  (if (> x 1)
      (beer (- x 1))
    (format t "~%The End")))

(beer 99)