Author: Maciej Fijalkowski <[email protected]> Branch: Changeset: r369:5a8d2ec62277 Date: 2013-07-08 10:28 +0200 http://bitbucket.org/pypy/stmgc/changeset/5a8d2ec62277/
Log: add a benchmark walking trees that are global and read-only diff --git a/duhton/demo/trees.duh b/duhton/demo/trees.duh new file mode 100644 --- /dev/null +++ b/duhton/demo/trees.duh @@ -0,0 +1,17 @@ + +(defun create-tree (n) + (if (< n 1) (list 1) (list (create-tree (/ n 2)) (create-tree (/ n 2)))) +) + +(defun walk-tree (tree) + (if (== (len tree) 1) (get tree 0) + (+ (walk-tree (get tree 0)) (walk-tree (get tree 1))) + ) +) + +(setq tree (create-tree 1024)) +(print (walk-tree tree)) +(setq n 0) +(while (< n 1000) + (transaction walk-tree tree) + (setq n (+ n 1))) _______________________________________________ pypy-commit mailing list [email protected] http://mail.python.org/mailman/listinfo/pypy-commit
