Groups | Search | Server Info | Login | Register

Groups > comp.lang.lisp > #60457

map-plist

Cross-posted to 2 groups.

Show all headers | View raw

Pascal Bourguignon wrote:

>  (defun map-plist (fun plist)
>    (loop :for (key value) on plist by #'cddr
>              :collect (funcall fun key value))
> 
...
> 
> Then you can write:
> 
> (map-plist (lambda (k v) (cons k (1+ v))) '(one 1 two 2 three 3))

Gauche Scheme

(use util.match)   ;; match-lambda
(use gauche.lazy)  ;; lslices

(map
  (match-lambda [(k v) (cons k (+ 1 v))])
  (lslices '(one 1 two 2 three 3) 2))

  ===>
((one . 2) (two . 3) (three . 4))

Back to comp.lang.lisp | Previous | Next — Next in thread | Find similar

Thread

map-plist "B. Pym" <Nobody447095@here-nor-there.org> - 2025-07-02 03:35 +0000
  Re: map-plist "B. Pym" <Nobody447095@here-nor-there.org> - 2025-08-30 22:39 +0000

csiph-web