Rosetta Code

Greatest element of a list: Difference between revisions

Page Discussion

Greatest element of a list (view source)

Revision as of 08:22, 8 February 2022

108 bytes added ,  2 years ago
Emacs Lisp: Rewrite solution, provide built-ins
m (→‎{{header|Phix}}: added syntax colouring, marked p2js compatible)
(Emacs Lisp: Rewrite solution, provide built-ins)
Line 1,673:
 
=={{header|Emacs Lisp}}==
 
<lang lisp>(defun max (first-arg &rest more-args)
<lang lisp>(defun find-maximum (items)
(if more-args
(let ((max-rest (apply 'max more-args)))
(dolist (item items)
(if (> first-arg max-rest)
(when (or (not max) (> item max))
first-arg
(setq max-rest item)))
first-argmax))</lang>
 
Example use:
(find-maximum '(2 7 5)) ;=> 7</lang>
<lang lisp>(max 2 7 5)▼
 
7</lang>
Alternative Built-Inin:
 
<lang lisp>
<lang lisp>(cl-loop for el inmax '(2 7 5)) maximize;=> el)7</lang>
 
</lang>
{{libheader|cl-lib}}
 
<lang lisp>(cl-loop for el in '(2 7 5) maximize el) ;=> 7
(cl-reduce #'max '(2 7 5)) ;=> 7</lang>
 
{{libheader|seq.el}}
▲<lang lisp>(seq-max '(2 7 5)) ;=> 7</lang>
 
=={{header|Erlang}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/73684"