Subject: Re: depth function From: ht@xxxxxxxxxxxxxxx (Henry S. Thompson) Date: 13 Jan 1998 09:30:22 +0000 |
(define (depth node) (let ((p (parent node))) (if (node-list-empty? p) 0 (+ 1 (depth p))))) ht -- Henry S. Thompson, Human Communication Research Centre, University of Edinburgh 2 Buccleuch Place, Edinburgh EH8 9LW, SCOTLAND -- (44) 131 650-4440 Fax: (44) 131 650-4587, e-mail: ht@xxxxxxxxxxxxxxx URL: http://www.cogsci.ed.ac.uk/~ht/ DSSSList info and archive: http://www.mulberrytech.com/dsssl/dssslist
Current Thread |
---|
|
<- Previous | Index | Next -> |
---|---|---|
Re: depth function, Tony Graham | Thread | page breaks, Scot Nesom |
Re: depth function, Tony Graham | Date | Re: page breaks, Richard Light |
Month |