Newsgroups: comp.lang.apl
Path: watmath!watserv2.uwaterloo.ca!mach1!torn!spool.mu.edu!howland.reston.ans.net!ira.uka.de!news.belwue.de!news.dfn.de!news.uni-bielefeld.de!wiwimac1.uni-bielefeld.de!Berni
From: Berni@nw42.wiwi.uni-bielefeld.de (Bernhard Strohmeier)
Subject: Re: APL2 programming contest: The fastest #contab# function
Sender: news@hermes.hrz.uni-bielefeld.de (News Administrator)
Message-ID: <Berni.10.0@nw42.wiwi.uni-bielefeld.de>
Date: Thu, 13 May 1993 09:10:15 GMT
References: <Berni.9.0@nw42.wiwi.uni-bielefeld.de> <1993May12.091137.27283@csus.edu>
Nntp-Posting-Host: wiwimac1.uni-bielefeld.de
Organization: Fak. WiWi, Statistik und Informatik
Lines: 19

In article <1993May12.091137.27283@csus.edu> vpcsc4@sfsuvax1.sfsu.edu (Emmett McLean) writes:
>From: vpcsc4@sfsuvax1.sfsu.edu (Emmett McLean)
>Subject: Re: APL2 programming contest: The fastest #contab# function
>Date: Wed, 12 May 1993 09:11:37 GMT
>  
> Compare your result to this J verb.
> 
> a =. 10 2 $ 2 2 2 3 3 4 1 3 3 4 _3 1 0.2 2 3 4 2 2 1 3
> c =.  {@(;~)@(/:~)@~.@, +/ .="0 1 <"1
> d =. /:~@~.@, (' '&;@,.@[ ,. ]) /:~@~.@, ({. ,.@; }.)@":@, {@(;~)@(/:~)@~.@, +/ .="0 1 <"1

Thanks for your efforts, but that J verb is not the winner.

1. It gives not the required result, there are more columns than
   realisations of Y.
2. For a =. ? 1000 2 $ 20 it needs about 7.5 sec while #contab11# does the 
   job in about 0.08 sec. 

Bernhard Strohmeier
