PAIP is a project mainly written in SCHEME and COMMON LISP, it's free.

Paradigms of Artificial Intelligence