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-boun...@forums.jsoftware.com
[mailto: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
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
