| Rev | Time | Changes | Operations |
|---|
| Log |
|---|
| 4 | 2012-08-05 15:39:11 | +26 -0 line(s) | [View this version, source] [Diff to previous] |
| better balanced? predicate |
| 3 | 2011-12-20 17:05:33 | +0 -1 line(s) | [View this version, source] [Diff to current|previous] |
| A (possible) alternative solution:
(define (total-weight mobile)
(if (number? (branch-structure mobile))
(branch-structure mobile)
(+ (total-weight (left-branch mobile))
(total-weight (right-branch mobile)))))
(define (balanced? mobile)
(define (torque mobile)
(if (number? (branch-structure mobile))
(* (branch-length mobile) (branch-structure mobile))
(- (torque (left-branch mobile)) (torque (right-branch mobile)))))
(= (torque (left-branch mobile)) (torque (right-branch mobile)))) |
| 2 | 2010-02-17 10:16:03 | +7 -0 line(s) | [View this version, source] [Diff to current|previous] |
| ADD: nav |
| 1 | 2007-12-26 20:11:42 | +159 -0 line(s) | [View this version, source] [Diff to current|previous] |
| initial draft |
| [Diff from epoch] |