Text only | Text with Images

newLISP Fan Club

Forum => newLISP newS => Topic started by: cormullion on November 10, 2006, 11:11:46 AM

Title: trees
Post by: cormullion on November 10, 2006, 11:11:46 AM
I've been trying to grow trees (not really deliberately...) a bit like this:


Code Select
(set 'l '
  ("0"
    ("00"
      ("000"
        ("0000" "0001"))
      ("001"
        ("0000" "0001" "0002" "0003"))
      ("002"
        ("0000" "0001" "0002" "0003"))
      ("003"
        ("0000" "0001" "0002" "0003"))
      ("004"
        ("0000" "0001" "0002" "0003"))
      ("005"
        ("0000" "0001" "0002")))
    ("01"
      ("000"
        ("0000" "0001" "0002"))
      ("001"
        ("0000" "0001" "0002"))
      ("002"
        ("0000" "0001" "0002" "0003" "0004")))
    ("02"
      ("000"
        ("0000" "0001" "0002"))
      ("001"
        ("0000" "0001" "0002"))
      ("002"
        ("0000" "0001" "0002")))))


I think that's right. What I want to do is to locate an element and find its 'address'. I can do this:


Code Select
(println (ref "0004" l))
;-> (2 3 1 4)


but I really want to produce is this:


Code Select
("0" "01" "0002" "00004" )

- kind of like a series of signposts... Any suggestions?
Title:
Post by: Lutz on November 10, 2006, 11:44:33 AM
I don't see the logic of:


Code Select
("0" "01" "0002" "00004" )

Do you mean the node branch points leading to "0004" ? that would be:


Code Select
("0" "01" "002" "0000")

and you can get those by successively chopping of the last member in the found index vector and replacing it with 0:


Code Select
> (set 'v (ref "0004" l)) => (2 3 1 4)

(l (append (chop v 1) '(0))) => "0000"

(l (append (chop v 2) '(0))) => "002"

(l (append (chop v 3) '(0))) => "01"

(l (append (chop v 4) '(0))) => "0"

; or all in one shot

(map (fn (i) (l (append (chop v i) '(0)))) (sequence 1 (length v)))
=> ("0000" "002" "01" "0")


Lutz
Title:
Post by: Sammo on November 10, 2006, 12:35:38 PM
Almost!



The 'chop' sequence needed is:
Code Select
(l (append (chop v 0) '(0))) --> "0004"
(l (append (chop v 2) '(0))) --> "002"
(l (append (chop v 3) '(0))) --> "01"
(l (append (chop v 4) '(0))) --> "0"
The following seems to work:
Code Select
(map (fn (i) (l (append (chop v i) '(0)))) (append '(0) (sequence 2 (length v)))) --> ("0004" "002" "01" "0")
Title:
Post by: cormullion on November 10, 2006, 01:07:55 PM
Thanks! I knew you guys could see the wood through the trees!



I'm not sure exactly what I'm doing, but you're helping me do it, anyway.. ;-)
Title:
Post by: m i c h a e l on November 10, 2006, 04:21:34 PM
Hi cormullion,


Quote from: "cormullion"
I'm not sure exactly what I'm doing, but you're helping me do it, anyway.. ;-)


I knew you and I were in the same karass (//http) ;-)



m i c h a e l



P.S. Congratulations on winning the t-shirt!
Text only | Text with Images