Author: Maciej Fijalkowski <[email protected]>
Branch:
Changeset: r375:5076bffd3728
Date: 2013-07-09 11:15 +0200
http://bitbucket.org/pypy/stmgc/changeset/5076bffd3728/
Log: change / to - so we can run it on older duhton
diff --git a/duhton/demo/trees.duh b/duhton/demo/trees.duh
--- a/duhton/demo/trees.duh
+++ b/duhton/demo/trees.duh
@@ -1,6 +1,6 @@
(defun create-tree (n)
- (if (< n 1) (list 1) (list (create-tree (/ n 2)) (create-tree (/ n 2))))
+ (if (== n 0) (cons 1) (cons (create-tree (- n 1)) (create-tree (- n 1))))
)
(defun walk-tree (tree)
@@ -9,7 +9,7 @@
)
)
-(setq tree (create-tree 1024))
+(setq tree (create-tree 10))
(print (walk-tree tree))
(setq n 0)
(while (< n 1000)
diff --git a/duhton/demo/trees2.duh b/duhton/demo/trees2.duh
--- a/duhton/demo/trees2.duh
+++ b/duhton/demo/trees2.duh
@@ -1,6 +1,6 @@
(defun create-tree (n)
- (if (< n 1) (list 1) (list (create-tree (/ n 2)) (create-tree (/ n 2))))
+ (if (== n 0) (list 1) (list (create-tree (- n 1)) (create-tree (- n 1))))
)
(defun walk-tree (tree)
@@ -10,7 +10,7 @@
)
(defun lookup-tree ()
- (walk-tree (create-tree 1024))
+ (walk-tree (create-tree 10))
)
(setq n 0)
_______________________________________________
pypy-commit mailing list
[email protected]
http://mail.python.org/mailman/listinfo/pypy-commit
