Coming to this late, I offer a tweak:

    BLT =: 3 : '~. (i.~ /:~...@~.)"1 (#: i.@(*/)) y#y'

matches for y up to 7.

Henry Rich

Sherlock, Ric wrote:
> To maintain consistency with the other verb definitions in the article, I'd 
> suggest using 13 : '' rather than 3 : 0 to define David's BLT
> 
> i.e. 
> 
> BLT=: 13 : '~. bl"1 (y#y)#: i.y^y'
> 
>> From: Ian Clark
>>
>> Thank you, David, for your reconstruction of verb BLT. It works fine
>> and gives the expected results. I have inserted it in
>> http://www.jsoftware.com/jwiki/Doc/Articles/Play171 after the first
>> mention of BLT.
>>
>> On Wed, Oct 21, 2009 at 11:11 AM, David Mitchell wrote:
>>> In the keeping of brute force:
>>>
>>> bl =: ] i.~ [: /:~ ~.
>>>
>>> BLT=: 3 : 0
>>> ~. bl"1 (y#y)#: i.y^y
>>> )
> 
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
> 
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to