Skip to content

Instantly share code, notes, and snippets.

@hiredman

hiredman/lisp.php

Created March 12, 2009 05:10
Show Gist options
  • Save hiredman/77915 to your computer and use it in GitHub Desktop.
Save hiredman/77915 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
lisp.php
$y[0]=new Symbol("x");
$y[1]=new Symbol("y");
FFunction::create(new Symbol("+"), new AArray($y), 'return $x+$y;');
$x=RT::read_one("(+ 1 3)");
print FFunction::call($x->first(),$x->rest());
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment