Tweaks get me down to 55
(,.@]^:('.'e.[)(a.{~,2#65 97+/i.26)&(26{.[}.~1+[i.0{])) 'u'
vwxyzabcdefghijklmnopqrstu
(,.@]^:('.'e.[)(a.{~,2#65 97+/i.26)&(26{.[}.~1+[i.0{])) 'u.'
v
w
x
y
z
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
(,.@]^:('.'e.[)(a.{~,2#65 97+/i.26)&(26{.[}.~1+[i.0{])) '['
Cheers, bob
On 2012-08-27, at 12:13 PM, bob therriault wrote:
> Hey Robert,
>
> Nice to see a fresh approach.
>
> First impressions:
>
> I think that the specs require that the result start with the letter after
> the input (yours starts with the input letter).
>
> I get this result
>
> 3 :',.^:(''.''e.y)(o-~a.i.0{y)|.26{.a.}.~o=.98-33^96>a.i.0{y' '['
> ABCDEFGHIJKLMNOPQRSTUVWXYZ
>
> which is an error that caught me as well (should be no output).
>
> cheers, bob
>
> On 2012-08-27, at 12:00 PM, Robert Cyr wrote:
>
>> You can also save a few keystrokes, even ending up with 53 if you do not
>> name the thing.
>>
>> w=:3 : ',.^:(''.''e.y)(d-o)|.26{.a.}.~o=.98-33^96>d=.a.i.0{y'
>>
>> Sent from my iPad
>>
>> On 2012-08-27, at 14:40, Robert Cyr <[email protected]> wrote:
>>
>> Or simply:
>> w=: 3 : ',.^:(''.''e.y)(o-~a.i.0{y)|.26{.a.}.~o=.98-33^96>a.i.0{y'
>>
>> w 's.'
>> stuvwxyzabcdefghijklmnopqr
>> w 'T.'
>> 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
>> S
>>
>>
>> On Mon, Aug 27, 2012 at 6:27 AM, R.E. Boss <[email protected]> wrote:
>>
>>> Nice solution.
>>>
>>> $(,.@]^:('.'e.[)(a.{~,,.~65 97+/i.26)&(1}.26{.[}.~[i.{.@])) '['
>>> 25
>>>
>>> $(,.@]^:('.'e.[)(a.{~,,.~65 97+/i.26)&(1}.26{.[}.~[i.{.@])) '[.'
>>> 25 1
>>>
>>>
>>> R.E. Boss
>>>
>>>
>>>> -----Oorspronkelijk bericht-----
>>>> Van: [email protected] [mailto:
>>> [email protected]] Namens bob therriault
>>>> Verzonden: maandag 27 augustus 2012 10:16
>>>> Aan: [email protected]
>>>> Onderwerp: Re: [Jprogramming] Print Custom Alphabet
>>>>
>>>> Actually the conversion using &. wasn't required.
>>>>
>>>>
>>>> (,.@]^:('.'e.[)(a.{~,,.~65 97+/i.26)&(1}.26{.[}.~[i.{.@])) '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
>>>> A
>>>> (,.@]^:('.'e.[)(a.{~,,.~65 97+/i.26)&(1}.26{.[}.~[i.{.@])) 'j'
>>>> klmnopqrstuvwxyzabcdefghi
>>>> (,.@]^:('.'e.[)(a.{~,,.~65 97+/i.26)&(1}.26{.[}.~[i.{.@])) '['
>>>>
>>>> #'(,.@]^:(''.''e.[)(a.{~,,.~65 97+/i.26)&(1}.26{.[}.~[i.{.@]))'
>>>> 58
>>>>
>>>> Cheers, bob
>>>>
>>>> On 2012-08-25, at 3:25 AM, Viktor Cerovski wrote:
>>>>
>>>>>
>>>>>
>>>>> bob therriault-2 wrote:
>>>>>>
>>>>>> Actual 66 character version after eliminating unnecessary conversions
>>> from
>>>>>> a. and back
>>>>>>
>>>>>> (,.@]^:('.'e.[)(a{~(>:i.25)+(a=.a.{~,65 97+/26|i.51)i.{.)) ::(0$])
>>> 'e.'
>>>>>>
>>>>>> Surprisingly, removing assignments makes it one character longer
>>>>>>
>>>>>> (,.@]^:('.'e.[)(a.{~,65 97+/26|i.51)&([{~(>:i.25)+[i.{.@])) ::(0$])
>>> 'e'
>>>>>>
>>>>> They can be of equal length if [i.{.@] is replaced by (i.{.) as in
>>>>>
>>>>> (,.@]^:('.'e.[)(a.{~,65 97+/26|i.51)&([{~(>:i.25)+(i.{.))) ::(0$]) 'e'
>>>>>
>>>>> which can be furthermore shortened by 2 characters by replacing
>>>>>
>>>>> ([{~(>:i.25)+[i.{.@])
>>>>>
>>>>> with
>>>>>
>>>>> (25{.[|.~1+(i.{.))
>>>>>
>>>>> giving
>>>>>
>>>>> (,.@]^:('.'e.[)(a.{~,65 97+/26|i.51)&(25{.[|.~1+(i.{.))) ::(0$]) 'e'
>>>>>
>>>>>
>>>>>> cheers, bob
>>>>>>
>>>>>> On 2012-08-24, at 5:16 PM, bob therriault wrote:
>>>>>>
>>>>>>> 67 characters with same issue that Raul mentions that argument would
>>> need
>>>>>>> to be quoted.
>>>>>>>
>>>>>>> (,.@]^:('.'e.[)(a.{~a{~(>:i.25)+(a=.,65 97+/26|i.51)i.a.i.{.))
>>> ::(0$])
>>>>>>> 'f'
>>>>>>>
>>>>>>> spaced below for legibility
>>>>>>>
>>>>>>> (,.@]^:('.'e.[) (a.{~a{~(>:i.25)+(a=.,65
>>>>>>> 97+/26|i.51)i.a.i.{.)) :: (0$])
>>>>>>> decision output generate list
>>>>>>> input error
>>>>>>>
>>>>>>> cheers, bob
>>>>>>>
>>>>>>> On 2012-08-24, at 12:16 PM, Raul Miller wrote:
>>>>>>>
>>>>>>>> I'm not sure how to express that here.
>>>>>>>>
>>>>>>>> Consider, for example:
>>>>>>>> ,.^:('.'e.t)s{ ::($:&}.)~n+1+{.t i.~s=:a.{~,65
>>> 97+/26|i.51[n=:i.25[t=.
>>>>>>>>
>>>>>>>> Here, I need would need quotes around the argument. And, it's still
>>>>>>>> 70 characters.
>>>>>>>>
>>>>>>>> --
>>>>>>>> Raul
>>>>>>>>
>>>>>>>> On Fri, Aug 24, 2012 at 3:01 PM, Roger Hui <
>>> [email protected]>
>>>>>>>> wrote:
>>>>>>>>> I think it is customary to assume that the input is just an
>>> argument.
>>>>>>>>> The
>>>>>>>>> q solution so assumes.
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> On Fri, Aug 24, 2012 at 11:38 AM, Raul Miller <
>>> [email protected]>
>>>>>>>>> wrote:
>>>>>>>>>
>>>>>>>>>> On Fri, Aug 24, 2012 at 2:00 PM, Roger Hui <
>>> [email protected]>
>>>>>>>>>> wrote:
>>>>>>>>>>>
>>> http://codegolf.stackexchange.com/questions/7036/print-custom-alphabet
>>>>>>>>>>>
>>>>>>>>>>> The gauntlet is thrown!
>>>>>>>>>>
>>>>>>>>>> The best I can see, right now, is:
>>>>>>>>>> ,.^:('.'e.t)s{ ::($:&}.)~n+1+s i.{.t=.1!:1##s=:a.{~,65
>>>>>>>>>> 97+/26|i.51[n=:i.25
>>>>>>>>>>
>>>>>>>>>> And this is 74 characters long -- 42% longer than another entry.
>>>>>>>>>>
>>>>>>>>>> Note that I am using something like 9 characters for the action of
>>>>>>>>>> reading input, and another 10 to give an empty result in an
>>> adverse
>>>>>>>>>> case.
>>>>>>>>>>
>>>>>>>>>> --
>>>>>>>>>> Raul
>>>>>>>>>>
>>> ----------------------------------------------------------------------
>>>>>>>>>> For information about J forums see
>>> http://www.jsoftware.com/forums.htm
>>>>>>>>>>
>>>>>>>>>
>>> ----------------------------------------------------------------------
>>>>>>>>> For information about J forums see
>>> http://www.jsoftware.com/forums.htm
>>>>>>>>
>>> ----------------------------------------------------------------------
>>>>>>>> For information about J forums see
>>> http://www.jsoftware.com/forums.htm
>>>>>>>
>>>>>>>
>>> ----------------------------------------------------------------------
>>>>>>> For information about J forums see
>>> http://www.jsoftware.com/forums.htm
>>>>>>
>>>>>> ----------------------------------------------------------------------
>>>>>> For information about J forums see
>>> http://www.jsoftware.com/forums.htm
>>>>>>
>>>>>>
>>>>>
>>>>> --
>>>>> View this message in context:
>>> http://old.nabble.com/Print-Custom-Alphabet-tp34345428s24193p34347462.html
>>>>> Sent from the J Programming mailing list archive at Nabble.com.
>>>>>
>>>>> ----------------------------------------------------------------------
>>>>> For information about J forums see http://www.jsoftware.com/forums.htm
>>>>
>>>> ----------------------------------------------------------------------
>>>> For information about J forums see http://www.jsoftware.com/forums.htm
>>>
>>> ----------------------------------------------------------------------
>>> For information about J forums see http://www.jsoftware.com/forums.htm
>>>
>> ----------------------------------------------------------------------
>> For information about J forums see http://www.jsoftware.com/forums.htm
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
