Help With Lisp Code for a Binary Tree

Posted by iulia on Stack Overflow See other posts from Stack Overflow or by iulia
Published on 2010-05-14T17:27:48Z Indexed on 2010/05/15 5:34 UTC
Read the original article Hit count: 262

Filed under:

clisp

|

binary-trees

I have

    (setq l2 '(1 (2 b (c 1 b))(a (1 2) d)))

    ( defun drumuri (l3) 
    ( cond ( (atom l3) ( cons l3 nil))
         ( t ( append ( cons ( car l3 ) nil)
                ( drumuri ( cadr l3))
                 (cons (car l3)nil)
                 ( drumuri ( caddr l3))
                     ))))
    ( drumuri l2)

and it gives me:

 Break 2 
[4]>     DRUMURI
 Break 2 
[4]>     (1 2 B 2 C 1 C B 1 A 1 2 1 NIL A D)

but i need:

     ((1 2 B)(1 2 C 1)(1 2 C B)(1 A 1 2)(1 A D))

© Stack Overflow or respective owner

Related posts about clisp

running shell commands with gnu clisp

as seen on Stack Overflow - Search for 'Stack Overflow'
I'm trying to create a "system" command for clisp that works like this (setq result (system "pwd")) ;;now result is equal to /my/path/here I have something like this: (defun system (cmd) (ext:run-program :output :stream)) But, I am not sure how to transform a stream into a string. I've reviewed… >>> More
Lisp Executable

as seen on Stack Overflow - Search for 'Stack Overflow'
I've just started learning Lisp and I can't figure out how to compile and link lisp code to an executable. Im using clisp and "clisp -c" produces two files .fas and .lib, what do I do next to get an exeutable? >>> More
Land of Lisp example question

as seen on Stack Overflow - Search for 'Stack Overflow'
I've read a lot of good things about Land of Lisp so I thought that I might go through it to see what there was to see. (defun tweak-text (lst caps lit) (when lst (let ((item (car lst)) (rest (cdr lst))) (cond ; If item = space, then call recursively… >>> More
How to setup a webserver in common lisp?

as seen on Stack Overflow - Search for 'Stack Overflow'
Several months ago, I was inspired by the magnificent book ANSI Common Lisp written by Paul Graham, and the statement that Lisp could be used as a secret weapon in your web development, published by the same author on his blog. Wow, that is amazing. That is something that I have been looking for long… >>> More
help with multiplying polynomials in lisp

as seen on Stack Overflow - Search for 'Stack Overflow'
for example:( 3x2-5x+2)(7x+1) and you simlify it like this: ((3 2)(-5 1)(2 0))((7 1)(1 0)) ((21 3)(3 2)(-35 2)(-5 1)(14 1)(2 0)) (21 3)(32 2)(9 1)(2 0) and you get this answer: 21x2+32x2+9x+2 i need this solution in lisp please help >>> More

Related posts about binary-trees

Binary Trees in Scheme

as seen on Stack Overflow - Search for 'Stack Overflow'
Consider the following BNF defining trees of numbers. Notice that a tree can either be a leaf, a node-1 with one subtrees, or a node-2 with two subtrees. tree ::= (’leaf number) | (’node-1 tree) | (’node-2 tree tree) a. Write a template for recursive procedures on these trees. b. Define the procedure… >>> More
C++ design question on traversing binary trees

as seen on Stack Overflow - Search for 'Stack Overflow'
I have a binary tree T which I would like to copy to another tree. Suppose I have a visit method that gets evaluated at every node: struct visit { virtual void operator() (node* n)=0; }; and I have a visitor algorithm void visitor(node* t, visit& v) { //do a preorder traversal using… >>> More
Priority queues and Binary trees

as seen on Stack Overflow - Search for 'Stack Overflow'
Trying to create a game using priority queues and binary tree, for example a solitaire game. I hope this is not to vague? >>> More
What are the applications of binary trees?

as seen on Stack Overflow - Search for 'Stack Overflow'
I am wondering what the particular applications of binary trees are. Could you give some real examples? Thanks. >>> More
A deque based on binary trees

as seen on Programmers - Search for 'Programmers'
This is a simple immutable deque based on binary trees. What do you think about it? Does this kind of data structure, or possibly an improvement thereof, seem useful? How could I improve it, preferably without getting rid of its strengths? (Not in the sense of more operations, in the sense of different… >>> More