> > Lieven Marchand wrote:
> >
> > > Zach KS <elzacho@gmail.com> writes:
> > >
> > > >> On 2012-06-14 13:38:46 EDT, Francogrex wrote:
> > > >> > ;;Use the iterate package
> > > >> >
> > > >> > (let ((data '(("AB" A 12 6) ("AB" G 13 4) ("AB" A 56 9)
> > > >> > ("AB" A 450 10) ("AB" G 380 5))))
> > > >> >
> > > >> > (iterate (for i in data)
> > > >> > (cond ((eql (cadr i) 'A)
> > > >> > (sum (caddr i) into V1)
> > > >> > (sum (cadddr i) into V2))
> > > >> > ((eql (cadr i) 'G)
> > > >> > (sum (caddr i) into V3)
> > > >> > (sum (cadddr i) into V4)))
> > > >> > finally (return (list V2 V1 V4 V3))))
> > > >> >
> > > >> > * (6 12 0 0)
> > > >> > Why is it not summing all 'as expected'?
> > > >> > Also the same issue with loop. (code not provided). Am I missing
> > > >> > something trivial here? I would appreciate some help (preferably with
> > > >> > the loop facility instead of iterate.
> > > >>
> > > >
> > > > There is an error in your code. You forgot to wrap
> > > > your finally clause in a set of parentheses. This should
> > > > give you an error, unless you had previously defined
> > > > "finally", if which case you would return on the first pass
> > > > through the loop, giving you (6 12 0 0).
> > > >
> > > > Should look like:
> > > >
> > > > (let ((data '(("AB" A 12 6) ("AB" G 13 4) ("AB" A 56 9)
> > > > ("AB" A 450 10) ("AB" G 380 5))))
> > > > (iterate (for i in data)
> > > > (cond ((eql (cadr i) 'A)
> > > > (sum (caddr i) into V1)
> > > > (sum (cadddr i) into V2))
> > > > ((eql (cadr i) 'G)
> > > > (sum (caddr i) into V3)
> > > > (sum (cadddr i) into V4)))
> > > > (finally (return (list V2 V1 V4 V3)))))
> > > >
> > > > ...but you should also be using first, second, third, fourth like
> > > > Barry implicitly suggests as well.
> > >
> > > Or use destructuring.
> > >
> > > (let ((data '(("AB" A 12 6) ("AB" G 13 4) ("AB" A 56 9)
> > > ("AB" A 450 10) ("AB" G 380 5))))
> > > (loop for (s label i j) in data
> > > when (eq label 'A)
> > > sum i into v1
> > > and
> > > sum j into v2
> > > when (eq label 'G)
> > > sum i into v3
> > > and
> > > sum j into v4
> > > finally (return (list v1 v2 v3 v4))))

Gauche Scheme

(use util.match) ;; match-lambda

(define data '(("AB" A 12 6) ("AB" G 13 4) ("AB" A 56 9)
("AB" A 450 10) ("AB" G 380 5)))

(apply map +
(map
(match-lambda [(_ 'A m n) (list m n 0 0)]
[(_ 'G m n) (list 0 0 m n)])
data))

(518 25 393 9)

newLISP

(define data '(("AB" A 12 6) ("AB" G 13 4) ("AB" A 56 9)
("AB" A 450 10) ("AB" G 380 5)))

(apply map
(cons +
(map
(fn (x)
(if (match '("AB" A ? ?) x) (append $it '(0 0))
(if (match '("AB" G ? ?) x) (append '(0 0) $it))))
data)))

(518 25 393 9)