Kent M. Pitman wrote:
(loop for x in '(1 2 3 4 5 6 7)
when (evenp x)
collect x into evens
else
collect x into odds
finally
(return (values evens odds)))
=> (2 4 6), (1 3 5 7)
It's much shorter if we use a Lispy language
instead of CL.
Gauche Scheme
"!" is similar to "do".
(! (x :in '(1 2 3 4 5 6 7)
evens cons x
odds cons x
:if-else (even? x))
#f @@ (values evens odds))
===>
(2 4 6)
(1 3 5 7)
(loop for x in '(a b (c d) e f)
when (atom x)
collect x
else
append x)
=> (A B C D E F)
It's much shorter if we use a Lispy language instead
of CL.
Gauche Scheme
"!" is similar to "do".
(! (r :meld x
x :in '(a b (c d) e f))
@)
===>
(a b c d e f)
--
[T]he problem is that lispniks are as cultish as any other devout group and
basically fall down frothing at the mouth if they see [heterodoxy].
--- Kenny Tilton
The good news is, it's not Lisp that sucks, but Common Lisp. --- Paul Graham
| Date | Sujet | # | Auteur | |
| 12 Aug 26 |  … |
Les messages affichés proviennent d'usenet.