info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
loopy Pitman
12 views
Skip to first unread message
Robert L.
May 21, 2018, 10:59:31 PM5/21/18
to
> Also, being able to vary the collection is handy. Consider:
>
> (loop for x in '(a b (c d) e f)
> when (atom x)
> collect x
> else
> append x)
> => (A B C D E F)
(append-map
(f.if pair? identity list)
'(a b (c d) e f))
===>
'(a b c d e f)
--
[Amazon banned a multitude of history books, including one that received 300
5-star reviews.]
https://archive.org/details/the-day-amazon-murdered-history
http://www.tomatobubble.com/worldwarii.html
http://archive.org/details/nolies
>
> (loop for x in '(a b (c d) e f)
> when (atom x)
> collect x
> else
> append x)
> => (A B C D E F)
(append-map
(f.if pair? identity list)
'(a b (c d) e f))
===>
'(a b c d e f)
--
[Amazon banned a multitude of history books, including one that received 300
5-star reviews.]
https://archive.org/details/the-day-amazon-murdered-history
http://www.tomatobubble.com/worldwarii.html
http://archive.org/details/nolies
0 new messages