back to 43 (ignore last post).
}.|:1j1#a.{~((-|.(i.25)+])(98-33^96>]))3&u:'j'
preconditions:
- must be scalar
- must be between A-Z and a-z
On 31 August 2012 04:07, Steven Taylor <tayl...@gmail.com> wrote:
> 41 chars thanks to R.E.Boss and his 98-33^96 short-cut.
>
> }.|:1j1#a.{~(-|.(i.25)+])(98-33^96>])3&u:'j'
>
> The question on Stack Overflow doesn't mention vector input as being a
> requirement.
>
>
>
> On 30 August 2012 18:24, Eldon Eller <eel...@pacbell.net> wrote:
>
>> This fails on some, but not all, illegal inputs:
>>
>> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 '5' NB. ok
>> |:1j1#(25{.(u:,2#65
>> 97+/i.26)(>:@i.}.[)])"0 '100' NB. gratuitous line feeds
>>
>>
>> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 'lkjhfa' NB. does the whole
>> vector
>> m l k i g b
>> n m l j h c
>> o n m k i d
>> p o n l j e
>> q p o m k f
>> r q p n l g
>> s r q o m h
>> t s r p n i
>> u t s q o j
>> v u t r p k
>> w v u s q l
>> x w v t r m
>> y x w u s n
>> z y x v t o
>> a z y w u p
>> b a z x v q
>> c b a y w r
>> d c b z x s
>> e d c a y t
>> f e d b z u
>> g f e c a v
>> h g f d b w
>> i h g e c x
>> j i h f d y
>> k j i g e z
>>
>> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 'a3' NB. acts as if 3 is a
>> period.
>>
>> b
>> c
>> d
>> e
>> f
>> g
>> h
>> i
>> j
>> k
>> l
>> m
>> n
>> o
>> p
>> q
>> r
>> s
>> t
>> u
>> v
>> w
>> x
>> y
>> z
>>
>>
>> On 08/30/2012 07:45 AM, bob therriault wrote:
>>
>>> Actually I think the shortest is still 43
>>>
>>> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 's'
>>> t u v w x y z a b c d e f g h i j k l m n o p q r
>>> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 's.'
>>> t
>>> u
>>> v
>>> w
>>> x
>>> y
>>> z
>>> a
>>> b
>>> c
>>> d
>>> e
>>> f
>>> g
>>> h
>>> i
>>> j
>>> k
>>> l
>>> m
>>> n
>>> o
>>> p
>>> q
>>> r
>>> |:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 '['
>>>
>>> #'|:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0'
>>> 43
>>>
>>> Cheers, bob
>>>
>>> On 2012-08-30, at 7:41 AM, R.E. Boss wrote:
>>>
>>> Lose 1 char by replacing 98-33^96>3&u: by 64+33^'`'I.]
>>>>
>>>> |:1j1#}.@((i.~|.e.#])26{.a.}.~**64+33^'`'I.])"0'S'
>>>> T U V W X Y Z A B C D E F G H I J K L M N O P Q R
>>>>
>>>> Is this, together with Millers solution, the shortest with 45
>>>> characters?
>>>>
>>>> #'1j1#"1&|:(25{.]}.~1+i.~)&(u:**,2#65 97+/i.26)"0'
>>>> 45
>>>>
>>>> The latter can be shortened 1 char by
>>>> 1j1#"1&|:(u:,2#65 97+/i.26)&(25{.]}.~1+i.)"0
>>>>
>>>>
>>>> R.E. Boss
>>>>
>>>>
>>>> -----Oorspronkelijk bericht-----
>>>>> Van:
>>>>> programming-bounces@forums.**jsoftware.com<programming-boun...@forums.jsoftware.com>[mailto:
>>>>> programming-bounces@**forums.jsoftware.com<programming-boun...@forums.jsoftware.com>]
>>>>> Namens Robert Cyr
>>>>> Verzonden: donderdag 30 augustus 2012 8:10
>>>>> Aan: programm...@jsoftware.com
>>>>> Onderwerp: Re: [Jprogramming] Print Custom Alphabet
>>>>>
>>>>>
>>>>> So another correction is needed, and the line is now 3 characters too
>>>>> long.
>>>>>
>>>>> |:1j1#}.@((i.~|.e.#])26{.a.}.~**98-33^96>3&u:)"0 's.'
>>>>>
>>>>> I need the 26 character of the alphabet. I therefore remove my excess
>>>>> character after rotation only.
>>>>>
>>>>> Many thanks.
>>>>>
>>>>> Robert Cyr
>>>>>
>>>>>
>>>> ------------------------------**------------------------------**
>>>> ----------
>>>> For information about J forums see http://www.jsoftware.com/**
>>>> forums.htm <http://www.jsoftware.com/forums.htm>
>>>>
>>> ------------------------------**------------------------------**
>>> ----------
>>> For information about J forums see
>>> http://www.jsoftware.com/**forums.htm<http://www.jsoftware.com/forums.htm>
>>>
>>>
>> ------------------------------**------------------------------**
>> ----------
>> For information about J forums see
>> http://www.jsoftware.com/**forums.htm<http://www.jsoftware.com/forums.htm>
>>
>
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
