[Prev][Next][Index][Thread]
Re: All-Time Personal Classics Top 20
On Thu, 25 Jan 2001, larr wrote:
> In article <94ofsv$o48$1@ctb-nnrp2.saix.net>,
> "Johan van Zyl" <johan@jvz.co.za> wrote:
> > All-Time Personal Classics 20
> <snip>
> > Give us you top 20 All-Time Personal Classics - try and compile it
> > within say 5 minutes
>
> Ok. Here's todays list -lar :-)
> [snipped]
Uh, Johan, Larr: the newsgroup "comp.lang.dylan" is about the COMPuter
LANGuage called DYLAN, not about Bob. Please don't post any more Bob
stuff to c.l.d (unless you manage to include something about Dylan-the-
language, of course ;-) and please *do* read the content of newsgroups
(and their FAQs where available -- c.l.d doesn't have one) before posting
to them.
Yours hopefully helpfully and politely,
Hugh
ObDylan:
// Untested ;-)
define method permute-sort
(sequence :: <sequence>, #key test = \<)
=> (sorted :: <sequence>)
any?(
method (perm :: <sequence>)
let most = list("lost?");
reduce(method (first!) method (first?, next)
((first? == first!) & ((most := next) | #t))
| (test(most, most := next) & first?)
end end (most), most, perm) & perm
end,
permute(sequence)) // implement permute to taste ;-)
| sequence
end method;
ObBob:
Cadillac -- good car to drive, after a war.
Follow-Ups:
References: