Choosing a new language

$ python
>>> a = [4, 9, 12, 72, 2]
>>> print sum(a)
99
>>> print sum(a)/len(a)
19
>>> print max(a) - min(a)
70
>>> a2 = [x*x for x in a]
>>> print a2
[16, 81, 144, 5184, 4]
>>> print [x for x in a if x > 10]
[12, 72]
>>> print sorted(a)
[2, 4, 9, 12, 72]

sudo gem install spidr

require 'rubygems'
require 'spidr'

Spidr.site('http://stackoverflow.com/') do |spider|
  spider.every_url { |url| puts url }
end

(defclass broadcaster ()
  ((listeners :accessor listeners
              :initform '())))

(defgeneric add-listener (broadcaster listener)
  (:documentation "Add a listener (a function taking one argument)
  to a broadcast's list of interested parties"))

(defgeneric remove-listener (broadcaster listener)
  (:documentation "Reverse of add-listener"))

(defgeneric broadcast (broadcaster object)
  (:documentation "Broadcast an object to all registered listeners"))

(defmethod add-listener (broadcaster listener)
  (pushnew listener (listeners broadcaster)))

(defmethod remove-listener (broadcaster listener)
  (let ((listeners (listeners broadcaster)))
    (setf listeners (remove listener listeners))))

(defmethod broadcast (broadcaster object)
  (dolist (listener (listeners broadcaster))
    (funcall listener object)))

(defclass direct-broadcaster (broadcaster)
  ((latest-broadcast :accessor latest-broadcast)
   (latest-broadcast-p :initform nil))
  (:documentation "I broadcast the latest broadcasted object when a new listener is added"))

(defmethod add-listener :after ((broadcaster direct-broadcaster) listener)
  (when (slot-value broadcaster 'latest-broadcast-p)
    (funcall listener (latest-broadcast broadcaster))))

(defmethod broadcast :after ((broadcaster direct-broadcaster) object)
  (setf (slot-value broadcaster 'latest-broadcast-p) t)
  (setf (latest-broadcast broadcaster) object))

Lisp> (let ((broadcaster (make-instance 'broadcaster)))
        (add-listener broadcaster
                      #'(lambda (obj) (format t "I got myself a ~A object!~%" obj)))
        (add-listener broadcaster
                      #'(lambda (obj) (format t "I has object: ~A~%" obj)))
        (broadcast broadcaster 'cheezburger))

I has object: CHEEZBURGER
I got myself a CHEEZBURGER object!

Lisp> (defparameter *direct-broadcaster* (make-instance 'direct-broadcaster))
      (add-listener *direct-broadcaster*
                  #'(lambda (obj) (format t "I got myself a ~A object!~%" obj)))
      (broadcast *direct-broadcaster* 'kitty)

I got myself a KITTY object!

Lisp> (add-listener *direct-broadcaster*
                    #'(lambda (obj) (format t "I has object: ~A~%" obj)))

I has object: KITTY

function validateUserName()
{
    var username = document.MyForm.UserName;

    if(username.value == "")
    {
        alert("Please enter a user name");
        username.focus();
        return false;
    }

    return true;
}

<cfquery name="EmailData" datasource="MyDatabase">
	SELECT name
	     , email
	     , something
	FROM user_info
	WHERE group = <cfqueryparam value="#Form.GroupId#" cfsqltype="cf_sql_integer"/>
</cfquery>

<cfmail
	query   = "EmailData"
	to      = "#email#"
	from    = "[email protected]"
	subject = "Hello #Name#"
	>
	Hello #Name#, this is an email about #Something#.
</cfmail>

<cfset MyStringBuffer = createObject("java","java.lang.StringBuffer").init() />

<?php
    class Mammal {
        private $feeding = 'Milk'

        public function getFeeding() {
            return $feeding;
        }
    }

    class Dog extends Mammal {
        private $say = 'Woof';
        private $name;

        function __construct($name) {
            $this->name = $name;
        }

        public function say() {
            return $say;
        }

        public function getName() {
            return $this->name;
        }
    }

    $MyDog = new Dog("Fido");
    echo $Mydog->getName() . " says: " . $MyDog->say() .
         " when his belly is full of " . $MyDog->getFeeding();
?>

-- http://en.wikipedia.org/wiki/Knuth_shuffle - Knuth-Fisher-Yates shuffle algorithm
-- From http://www.codinghorror.com/blog/archives/001015.html - Coding Horror: The Danger of Naïveté
cards = {}
for i = 1, 20 do
    cards[i] = i
end

for n= #cards, 1, -1 do
    k = math.random(i)
    cards[n], cards[k] = cards[k], cards[n]
end

for i in ipairs(cards) do
    print(cards[i])
end