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
Bob Worm
Wed Sep 16 10:17:33 2026
from
Wales, Uk
via
Telnet
Rixter
Wed Sep 16 00:01:35 2026
from
Madison, Nc
via
Telnet
Stormwallker
Tue Sep 15 15:52:32 2026
from
Hinckley, Leicestershire
via
Telnet
Rixter
Tue Sep 15 12:01:35 2026
from
Madison, Nc
via
Telnet
Bob Worm
Tue Sep 15 11:25:46 2026
from
Wales, Uk
via
Telnet
Andrew Andrew
Tue Sep 15 02:46:28 2026
from
Chicago, Il
via
Telnet
Netmages
Tue Sep 15 01:13:15 2026
from
Santiago, Chile
via
SSH
Rixter
Tue Sep 15 00:01:34 2026
from
Madison, Nc
via
Telnet
System Info
Sysop:
Keyop
Location:
Huddersfield, West Yorkshire, UK
Users:
766
Nodes:
16 (
0
/
16
)
Uptime:
00:48:59
Calls:
12,764
Calls today:
2
Files:
15,363
Messages:
6,557,231