This seems to be the shortest version at the moment.
|:1j1#(25{.(u:,2#65 97+/i.26)(>:@i.}.[)])"0 's'
If I apply Raul's explanation to the current shortest version, why doesn't
the following function work?
f=: 13 :'|:1j1#(25{.x (>:@i.}.x)y)"0'
f=: 13 :'|:1j1#(25{.x (>:@i.}.x)y)"0'
(u:,2#65 97+/i.26) f 's'
|domain error: f
| |:1j1#(25{.x( >:@i.}.x)y)"0
I didn't have much luck with Raul's definition either:
1j1#"1&|:(25{.]}.~1+i.~)&(u:,2#65 97+/i.26)"0 'L'
M N O P Q R S T U V W X Y Z A B C D E F G H I J K
g=: 13 :'1j1#"1&|:(25{.y}.~1+i.~)&x"0'
(u:,2#65 97+/i.26) f 'L'
|syntax error: f
| (u:,2#65 97+/i.26) f'L'
-----Original Message-----
From: programming-boun...@forums.jsoftware.com
[mailto:programming-boun...@forums.jsoftware.com] On Behalf Of bob
therriault
Sent: Thursday, August 30, 2012 12:21 AM
To: programm...@jsoftware.com
Subject: Re: [Jprogramming] Print Custom Alphabet
Hey Robert nice work. If your approach is applied to Raul's we get:
|: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
Oh and a quick suggestion to change your 26{. to 25{. since you don't
actually want the input letter in the list. If you read back further I got
caught in this as well in one of my posts.
Cheers, bob
On 2012-08-29, at 7:27 PM, Robert Cyr wrote:
> Thank you guys. With your help the thing is nice and short. It is
> now only one character longer than Raul Miler's beautiful line.
>
> |:1j1#((>:@i.~|.e.#])26{.a.}.~98-33^96>3&u:)"0 'L'
>
> I usually avoid tacit programming(too lazy i guess) but I find this
> type of game a fun way of getting a bit of much needed practice in
> this nice and useful sport.
>
> Cheers
>
> 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
