Skip to content

Instantly share code, notes, and snippets.

@micahrj
Created January 1, 2013 19:26
Show Gist options
  • Save micahrj/4429467 to your computer and use it in GitHub Desktop.
Save micahrj/4429467 to your computer and use it in GitHub Desktop.
Network [(R "f",IdentityNode),(R "z",NumberNode 1.0),(R "y",ApplyNode),(AF (R "y"),IdentityNode),(AA 0 (R "y"),InfixNode "/"),(IL (AA 0 (R "y")),NumberNode 34.0),(IR (AA 0 (R "y")),NumberNode 31.0)] [(R "x",IdentityArgument,R "f"),(AF (R "y"),ApplyFunction,R "y"),(AA 0 (R "y"),ApplyArgument 0,R "y"),(AA 1 (R "y"),ApplyArgument 1,R "y"),(R "f",IdentityArgument,AF (R "y")),(IL (AA 0 (R "y")),InfixLeft,AA 0 (R "y")),(IR (AA 0 (R "y")),InfixRight,AA 0 (R "y"))]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment