[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: (*) -> 1
From: |
Tassilo Horn |
Subject: |
Re: (*) -> 1 |
Date: |
Thu, 19 Jan 2023 16:19:46 +0100 |
User-agent: |
mu4e 1.9.16; emacs 30.0.50 |
Jean Louis <bugs@gnu.support> writes:
> You found examples I am searching, though you can't provide references
> where (*) is useful.
Gosh, Jean, of course nobody would literally write (*) but (apply #'*
...), and you'll find occurrences in emacs:
--8<---------------cut here---------------start------------->8---
find -H . -type d \( -path \*/SCCS -o -path \*/RCS -o -path \*/CVS -o
-path \*/MCVS -o -path \*/.src -o -path \*/.svn -o -path \*/.git -o
-path \*/.hg -o -path \*/.bzr -o -path \*/_MTN -o -path \*/_darcs -o
-path \*/\{arch\} \) -prune -o \! -type d \( -name .\#\* -o -name
\*.out -o -name \*.synctex.gz -o -name \*.o -o -name \*\~ -o -name
\*.bin -o -name \*.lbin -o -name \*.so -o -name \*.a -o -name \*.ln -o
-name \*.blg -o -name \*.bbl -o -name \*.elc -o -name \*.lof -o -name
\*.glo -o -name \*.idx -o -name \*.lot -o -name \*.fmt -o -name \*.tfm
-o -name \*.class -o -name \*.fas -o -name \*.lib -o -name \*.mem -o
-name \*.x86f -o -name \*.sparcf -o -name \*.dfsl -o -name \*.pfsl -o
-name \*.d64fsl -o -name \*.p64fsl -o -name \*.lx64fsl -o -name
\*.lx32fsl -o -name \*.dx64fsl -o -name \*.dx32fsl -o -name \*.fx64fsl
-o -name \*.fx32fsl -o -name \*.sx64fsl -o -name \*.sx32fsl -o -name
\*.wx64fsl -o -name \*.wx32fsl -o -name \*.fasl -o -name \*.ufsl -o
-name \*.fsl -o -name \*.dxl -o -name \*.lo -o -name \*.la -o -name
\*.gmo -o -name \*.mo -o -name \*.toc -o -name \*.aux -o -name \*.cp -o
-name \*.fn -o -name \*.ky -o -name \*.pg -o -name \*.tp -o -name \*.vr
-o -name \*.cps -o -name \*.fns -o -name \*.kys -o -name \*.pgs -o
-name \*.tps -o -name \*.vrs -o -name \*.pyc -o -name \*.pyo \) -prune
-o -type f \( -iname \*.el \) -exec grep --color=auto -i -nH --null -e
\(apply\ \#\'\\\* \{\} +
./gnus/spam-stat.el:494: (prod (apply #'* probs))
./gnus/spam-stat.el:496: (/ prod (+ prod (apply #'* (mapcar (lambda
(x) (- 1 x))
./org/org-plot.el:232: (apply #'* (org--plot/nice-frequency-pick
weighted-factors))))
./org/org-plot.el:259: (< (* (apply #'* f-pick) 2-val) 30))
./org/org-plot.el:262: (< (* (apply #'* f-pick) 3-val) 30))
./htmlfontify.el:1055: (let ((n (apply #'* m)))
--8<---------------cut here---------------end--------------->8---
And even more with (apply #'+ ...):
--8<---------------cut here---------------start------------->8---
find -H . -type d \( -path \*/SCCS -o -path \*/RCS -o -path \*/CVS -o
-path \*/MCVS -o -path \*/.src -o -path \*/.svn -o -path \*/.git -o
-path \*/.hg -o -path \*/.bzr -o -path \*/_MTN -o -path \*/_darcs -o
-path \*/\{arch\} \) -prune -o \! -type d \( -name .\#\* -o -name
\*.out -o -name \*.synctex.gz -o -name \*.o -o -name \*\~ -o -name
\*.bin -o -name \*.lbin -o -name \*.so -o -name \*.a -o -name \*.ln -o
-name \*.blg -o -name \*.bbl -o -name \*.elc -o -name \*.lof -o -name
\*.glo -o -name \*.idx -o -name \*.lot -o -name \*.fmt -o -name \*.tfm
-o -name \*.class -o -name \*.fas -o -name \*.lib -o -name \*.mem -o
-name \*.x86f -o -name \*.sparcf -o -name \*.dfsl -o -name \*.pfsl -o
-name \*.d64fsl -o -name \*.p64fsl -o -name \*.lx64fsl -o -name
\*.lx32fsl -o -name \*.dx64fsl -o -name \*.dx32fsl -o -name \*.fx64fsl
-o -name \*.fx32fsl -o -name \*.sx64fsl -o -name \*.sx32fsl -o -name
\*.wx64fsl -o -name \*.wx32fsl -o -name \*.fasl -o -name \*.ufsl -o
-name \*.fsl -o -name \*.dxl -o -name \*.lo -o -name \*.la -o -name
\*.gmo -o -name \*.mo -o -name \*.toc -o -name \*.aux -o -name \*.cp -o
-name \*.fn -o -name \*.ky -o -name \*.pg -o -name \*.tp -o -name \*.vr
-o -name \*.cps -o -name \*.fns -o -name \*.kys -o -name \*.pgs -o
-name \*.tps -o -name \*.vrs -o -name \*.pyc -o -name \*.pyo \) -prune
-o -type f \( -iname \*.el \) -exec grep --color=auto -i -nH --null -e
\(apply\ \#\'\+ \{\} +
./leim/quail/hangul.el:341: (if (zerop (apply #'+ (append hangul-queue nil)))
./leim/quail/hangul.el:353: (if (not (zerop (apply #'+ (append hangul-queue
nil))))
./net/newst-backend.el:2186: (apply #'+
./net/imap.el:1810: (apply #'+ (mapcar #'imap-body-lines body)))
./net/shr.el:2350: (let ((extra (- (apply #'+ (append suggested-widths nil))
./net/shr.el:2351: (apply #'+ (append widths nil))
./treesit.el:2608: (eq 0 (apply #'+ (mapcar #'treesit-node-child-count
children))))
./textmodes/texinfmt.el:2044: (apply #'+
texinfo-multitable-width-list))))
./gnus/gnus-picon.el:217: (setq len (apply #'+ (mapcar (lambda
(x)
./gnus/gnus-cache.el:889: (apply #'+ entry)
./gnus/gnus-score.el:2560: (apply #'+ (mapcar
./gnus/gnus-sum.el:3836: (apply #'+ (mapcar
./gnus/gnus-sum.el:8840: (apply #'+ (mapcar
#'gnus-summary-limit-children
./gnus/gnus-agent.el:4139: (apply #'+ entry)
./gnus/spam-stat.el:515: (apply #'+ scores))))
./calendar/solar.el:753: (apply #'+
./calendar/solar.el:941: (S (apply #'+ (mapcar (lambda(x)
./calendar/todo-mode.el:3697: (mapcar (lambda (i) (apply #'+ (mapcar (lambda
(x) (aref (cdr x) i))
./ses.el:625: ses--linewidth (apply #'+ -1 (mapcar #'1+ widths))
./ses.el:4037: (apply #'+ (apply #'ses-delete-blanks args)))
./ses.el:4044: (/ (float (apply #'+ list)) (length list)))
./org/org-plot.el:246: (let* ((total-count (apply #'+ (mapcar #'cdr
frequencies)))
./org/org-colview.el:1261: (format (or printf "%s") (apply #'+ (mapcar
#'string-to-number values))))
./org/org-colview.el:1265: (format "%.2f" (apply #'+ (mapcar
#'string-to-number values))))
./org/org-colview.el:1306: (/ (apply #'+ (mapcar #'string-to-number
values))
./org/org-colview.el:1324: (lambda (&rest values) (/ (apply #'+ values)
(float (length values))))
./org/org-colview.el:1340: (/ (apply #'+ (mapcar
#'org-columns--age-to-minutes ages))
./org/org-clock.el:2626: (total-time (apply #'+ (mapcar #'cadr tables)))
./minibuffer.el:2025: (apply #'+ (mapcar
#'string-width s))
./minibuffer.el:2068: (apply #'+
(mapcar #'string-width str))
./pcomplete.el:943: (let* ((envpos (apply #'+ (mapcar #' length
strings)))
./progmodes/cc-guess.el:368: (apply #'+
./progmodes/sql.el:3639: (apply #'+ (mapcar (lambda (ch) (if (eq ch
?\n) 1 0))
./progmodes/vhdl-mode.el:7480: (apply #'+ (mapcar #'vhdl-get-offset
syntax)))
./obsolete/thumbs.el:207: (dirsize (apply #'+ (mapcar (lambda (x)
(cadr x)) files-list))))
./obsolete/landmark.el:1428: (apply #'+
./emacs-lisp/memory-report.el:254: (apply #'+
./emacs-lisp/bytecomp.el:4515: (let ((nvalues (apply #'+ (mapcar (lambda
(case) (length (car case)))
./emacs-lisp/smie.el:2219: (cl-assert (= total (apply #'+ (mapcar #'cdr
off-alist))))
--8<---------------cut here---------------end--------------->8---
It's totally sensible to be able to compute the product/sum of an
arbitrary number of numbers.
All these would need checks for non-empty lists or even lists of at
least 2 numbers if + and * would require at least 1 or 2 arguments.
Bye,
Tassilo
- Re: (*) -> 1, (continued)
- Re: (*) -> 1, Óscar Fuentes, 2023/01/18
- Re: (*) -> 1, Jean Louis, 2023/01/19
- Re: (*) -> 1, Óscar Fuentes, 2023/01/19
- Re: (*) -> 1, Jean Louis, 2023/01/20
- Re: (*) -> 1, Michael Heerdegen, 2023/01/18
- Re: (*) -> 1, Jean Louis, 2023/01/19
- Re: (*) -> 1, Michael Heerdegen, 2023/01/19
- Re: (*) -> 1, Jean Louis, 2023/01/19
- Re: (*) -> 1,
Tassilo Horn <=
- Re: (*) -> 1, Michael Heerdegen, 2023/01/19
- Re: (*) -> 1, Dr Rainer Woitok, 2023/01/19
- Re: (*) -> 1, Jean Louis, 2023/01/20
- Re: (*) -> 1, Dr Rainer Woitok, 2023/01/20
- RE: [External] : Re: (*) -> 1, Drew Adams, 2023/01/19
- Re: [External] : Re: (*) -> 1, Michael Heerdegen, 2023/01/19
- Re: [External] : Re: (*) -> 1, Jean Louis, 2023/01/20
- Re: [External] : Re: (*) -> 1, Emanuel Berg, 2023/01/21
- Re: (*) -> 1, Anders Munch, 2023/01/18
- Re: (*) -> 1, Michael Heerdegen, 2023/01/18