Topic: -={ Challenge }=- Nested Summing

[It's Alive!]

It gives a compiler error

Code: [Select]

error C2664: '_AdsRegisteredSymbol::_AdsRegisteredSymbol(const _AdsFuncPtr,const ACHAR *,const bool,const UINT)' :
cannot convert parameter 1 from 'int (__cdecl *)(resbuf *)' to 'const _AdsFuncPtr'
Maybe your getting the args from lisp another way ?

[It's Alive!]

Oh I see from looking at your shell routine, you use another function "DoFunc" whereas I'm using a macro

ACED_ADSSYMBOL_ENTRY_AUTO(CBrxApp, nsum, false)

[pkohut]

Oh I see from looking at your shell routine, you use another function "DoFunc" whereas I'm using a macro

ACED_ADSSYMBOL_ENTRY_AUTO(CBrxApp, nsum, false)

Ya, I don't have the ARX wizard installed in VC2008 so I just grabbed some boiler plate code from the
frac sample. (edit) and didn't think about the fact you are.

[It's Alive!]

Yes, I tend to use the wizard or grab one of my templates (based off the wizard) . I've never seen the resbuf passed through dofun though, I always used

Code: [Select]

rc = (*exfun[val].fptr)();
learn something new everyday 

[ElpanovEvgeniy]

my variant:

Code: [Select]

(defun f (l)
 (if (listp l)
  (apply '+ (mapcar 'f l))
  l
 )
)test:

Code: [Select]

(f '(1 2 (3 4 (1)))) ;=>> 11

[Lee Mac]

Very concise Evgeniy!

Great solution for lists with no dotted pairs 

[ElpanovEvgeniy]

Very concise Evgeniy!

Great solution for lists with no dotted pairs 

variant 2:

Code: [Select]

(defun f (l)
 (cond ((not l) 0)
       ((numberp l) l)
       ((+ (f (car l)) (f (cdr l))))
 )
)test:

Code: [Select]

(f '( 1 2 ( 3 4 ( 1 ) (3 . 4)))) ;=>> 18

[ElpanovEvgeniy]

variant 2.5 (optimized)

Code: [Select]

(defun f (l)
 (cond ((numberp l) l)
       (l (+ (f (car l)) (f (cdr l))))
       (0)
 )
)

[gile]

 
You're a master Evgeniy !

[ElpanovEvgeniy]

You're a master Evgeniy !

Thanks!
You took the best of my! 

[Lee Mac]

You're a master Evgeniy !

x2 

[pkohut]

variant 2.5 (optimized)

Masterful.  :kewl:

[highflyingbird]

variant 2.5 (optimized)

Code: [Select]

(defun f (l)
 (cond ((numberp l) l)
       (l (+ (f (car l)) (f (cdr l))))
       (0)
 )
)

I think it will be better.

Code: [Select]

(defun f (l)
  (cond ((numberp l) l)
((atom l) 0)
(t (+ (f (car l)) (f (cdr l))))
  )
)
for example:

(f (list 1 (list (ssget) 1) (entsel "select:") (cons 2 (cons nil (cons nil 1)))))

[Lee Mac]

variant 2.5 (optimized)

Code: [Select]

(defun f (l)
 (cond ((numberp l) l)
       (l (+ (f (car l)) (f (cdr l))))
       (0)
 )
)

I think it will be better.

Code: [Select]

(defun f (l)
  (cond ((numberp l) l)
((atom l) 0)
(t (+ (f (car l)) (f (cdr l))))
  )
)
for example:

(f (list 1 (list (ssget) 1) (entsel "select:") (cons 2 (cons nil (cons nil 1)))))

Perhaps, but the original spec was for lists of purely numerical elements.