Pop-Up Thingie
Sidebar
>>> Magnum BBS <<<
Home
Forum
Files
Dark
Log in
Username
Password
Sidebar
Forum
Usenet
COMP.LANG.LISP
re: Loop macro - why?
From
B. Pym
@21:1/5 to
Kjeld Larsen
on Fri Aug 8 06:58:59 2025
Kjeld Larsen wrote:
(defun f1 (list num)
(loop for n in list
collect (+ n num)))
(define (f1 lst num)
(map. + num lst))
Given:
(define (map. func obj seq)
(map (lambda(x) (func obj x)) seq))
--
The good news is, it's not Lisp that sucks, but Common Lisp. --- Paul Graham
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)
Who's Online
Recent Visitors
Krenn
Sun Jun 7 01:30:12 2026
from
Sydney, Nsw
via
Telnet
Centurion
Sat Jun 6 23:27:30 2026
from
Berea, Ohio
via
Telnet
Ab Cadd
Sat Jun 6 15:42:53 2026
from
Sheboygan, Wi
via
Telnet
Centurion
Sat Jun 6 15:32:28 2026
from
Berea, Ohio
via
Telnet
Krenn
Sat Jun 6 11:38:56 2026
from
Sydney, Nsw
via
Telnet
Furryboy
Sat Jun 6 10:56:29 2026
from
Romania, Galati
via
SSH
Centurion
Fri Jun 5 22:28:01 2026
from
Berea, Ohio
via
Telnet
Ab Cadd
Fri Jun 5 17:52:51 2026
from
Sheboygan, Wi
via
Telnet
System Info
Sysop:
Keyop
Location:
Huddersfield, West Yorkshire, UK
Users:
715
Nodes:
16 (
3
/
13
)
Uptime:
156:17:31
Calls:
12,093
Calls today:
1
Files:
15,000
Messages:
6,517,729