Re: depth function

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
  • depth function
    • LINARESA - from mail1.ability.netby web4.ability.net (8.8.5/8.6.12) with ESMTP id OAA04619Mon, 12 Jan 1998 14:29:35 -0500 (EST)
      • Tony Graham - from mail1.ability.netby web4.ability.net (8.8.5/8.6.12) with ESMTP id QAA06357Mon, 12 Jan 1998 16:29:01 -0500 (EST)
      • Henry S. Thompson - from mail1.ability.netby web4.ability.net (8.8.5/8.6.12) with ESMTP id EAA14799Tue, 13 Jan 1998 04:31:20 -0500 (EST) <=