On Tue, Apr 10, 2001 at 11:16:27AM +1000, Manuel M. T. Chakravarty wrote:
> I always knew that inside Haskell there is a Perl trying to
> get out!
import List;q _ _ 0 _=[[]];q u i r k=let{b=[x+1|x<-u,-1>x||x>0,x<k];d=i\\map abs b}in concatMap(\p->[p:x|x<-q(-p:p:b)(i\\[p])(r-1)k])d;main=print$q[][1..8]8 8
(158 chars, but the output is quite ugly)
:)
-- Mieszko