La diferencia es que en python lo hice con generadores ya que queda mas prolijo, hasta donde se no hay generadores en los otros.

Python

# Each new term in the Fibonacci sequence is generated by adding the previous
# two terms. By starting with 1 and 2, the first 10 terms will be:
# 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...
# Find the sum of all the even-valued terms in the sequence which do not
# exceed four million.

def fibonacci():
one = 0
two = 1
step = 1

while True:
one, two = two, one + two
yield two
step += 1

def calculate(limit):
result = 0
for value in fibonacci():
if value > limit:
break

if value % 2 == 0:
result += value

return result

def print_result():
print calculate(4000000)

if __name__ == '__main__':
print_result()

-module(ej_002).
-compile(export_all).
%-export([calculate/1, print_result/0]).

fibonacci_step(First, Second) -> {Second, First + Second}.

calculate(First, Second, Limit) -> calculate(First, Second, Limit, 0).

calculate(_First, Second, Limit, Accum) when Second > Limit -> Accum;
calculate(First, Second, Limit, Accum) ->
{NewFirst, NewSecond} = fibonacci_step(First, Second),

case NewSecond rem 2 of
0 -> NewAccum = Accum + NewSecond;
1 -> NewAccum = Accum
end,

calculate(NewFirst, NewSecond, Limit, NewAccum).

calculate(Limit) -> calculate(0, 1, Limit).

print_result() -> io:format("~w~n", [calculate(4000000)]).

(defun fibonacci-step (one two)
(list two  (+ one two)))

(defun calculate-helper (one two limit accum)
(cond ((> two limit) accum)
(T (let ((result (fibonacci-step one two)))
(let ((new-one (car result))
(new-two (cadr result)))

(if (eq (rem new-two 2) 0)
(calculate-helper new-one new-two limit (+ accum new-two))
(calculate-helper new-one new-two limit accum)))))))

(defun calculate (limit) (calculate-helper 0 1 limit 0))

(defun print-result () (print (calculate 4000000)))

me cree una cuenta en project euler para aprender bien erlang y lisp, voy a intentar resolver todos los problemas en esos lenguajes y en python como lenguaje conocido para comparar los resultados. Obviamente esto es algo que voy a abandonar, la pregunta es cuando :D

No necesariamente voy a usar la misma forma, porque a veces no se puede o no la se, por ahora con tal que ande esta todo bien.

aca va el resultado del primer problema

python

# Add all the natural numbers below one thousand that are multiples of 3 or 5.

# If we list all the natural numbers below 10 that are multiples of 3 or 5,
# we get 3, 5, 6 and 9. The sum of these multiples is 23.
# Find the sum of all the multiples of 3 or 5 below 1000.

def calculate():
return sum(x for x in xrange(1000) if x % 3 == 0 or x % 5 == 0)

def print_result():
print calculate()

if __name__ == '__main__':
print_result()

-module(ej_001).
-export([calculate/0, print_result/0]).

calculate() -> lists:sum([X || X <- lists:seq(0, 1000), X rem 3 == 0 orelse X rem 5 == 0]).

print_result() -> io:format("~w~n", [calculate()]).

(defun multiple-of-3-or-5 (value)
(or (eq (rem value 3) 0)
(eq (rem value 5) 0))
)

(defun calculate-helper (value accum limit)
(cond ((= value limit)
accum)
((multiple-of-3-or-5 value)
(calculate-helper (+ value 1) (+ accum value) limit))
(T
(calculate-helper (+ value 1) accum limit))
)
)

(defun calculate () (calculate-helper 0 0 1000))

(defun print-result ()
(print (calculate)))

(print-result)

en la que uno crea una distribución live basada en ubuntu

mi primer distro live, creada para probar y para ayudar a pyar en su proyecto de difusión del lenguaje, contiene un escritorio liviano (openbox + fbpanel) y un conjunto de herramientas para el desarrollo del lenguaje, entre ellas:

Interpretes

• python 2.4
• python 2.5
• python 3.0
• ipython

• gedit
• vim
• emacs
• scribes

• Geany
• Glade-3 (no es una ide del todo)

• gnome-terminal
• thunar
• obconf (para configurar openbox)
• openbox
• fbpanel
• sqlite3
• NetworkManager
• firefox
  

• agregarle localización a español
• agregarle una pagina de inicio a firefox con links a la documentación local
• la documentación local
• frameworks web

todos los editores

Thunar, firefox y la configuracion de open box

glade-3

PHP is a minor evil perpetrated and created by incompetent amateurs, whereas Perl is a great and insidious evil perpetrated by skilled but perverted professionals.

Engineers are all basically high-functioning autistics who have no idea how normal people do stuff.

• Estas parseando metadatos de imagenes en tu super enterprise entorno java
• le tiras un XPath al Nodo de los metadatos que te devuelve la API y no te devuelve nada
• pensas "debe estar mal la query XPath"
• lo probas en un debugger de XPath y anda
• le das mil vueltas y sigue sin andar
• probas con DOM a mano (que es una API horrenda) y anda
• pero te negas a hacerlo en DOM pelado
• seguis probando
• "no puede ser que la API esta mal" pensas
• ya te rendis y le preguntas a google
• "This class is not intended to be used for general XML processing. In particular, Element nodes created within the Image I/O API are not compatible with those created by Sun's standard implementation of the org.w3.dom API. In particular, the implementation is tuned for simple uses and may not perform well for intensive processing."
• Intensive processing? no responde a los queries XPath, eso no es intensive, eso es mal implementado!
• lo siguiente lo dijo mejor este vago que lo que podria escribir yo asi que lo cito

• por que no puedo iterar sobre un NodeList en ese pseudo foreach que tienen? es un iterable despues de todo no?
• porque Vector no tiene una api para hacer slicing?
• porque Vector, LinkedList y ArrayList son implementaciones de List? no podrian esconder los detalles de implementacion al usuario y hacerles pensar que estan eligiendo mal cada vez que eligen uno por sobre el otro?
• Porque Vector es thread safe y LinkedList y ArrayList no?
• La version limitada de Node que me devuelve la metadata de la imagen no me deja hacer getElementByTagName, asi que no puedo hacer mas que iterar por todos los childs buscando el que me hace falta ya que por suerte en la implementacion se mueve de posicion.
• size() length() getLength() getSize(), no se ponen de acuerdo en eso no?

La igualdad entre el hombre y la mujer sera un hecho el día que las mujeres entiendan y admitan que el molinete en el metegol va en contra del sacrosanto deporte y dejen de ejercerlo por propia voluntad.

“The next big thing is the one that
makes the last big thing usable.”
Blake Ross

El X supone la defensa radical y consecuente de la libertad. El X correctamente entendido es equivalente al liberalismo. La sociedad libre y ética es la basada en la propiedad privada y los contratos, donde ninguna persona o grupo de personas está legitimado para agredir a otros. La sociedad no tiene derecho a forzar a los individuos.

X es una de las palabras mas mal usadas que conozco.

me gusto esa definición.