Raul Miller wrote:
> Borrowing some ideas from other people in this thread:
>
>f=:[:|:((i.|.-.)~(a.{~65 97+/i.26)&(*@#.@e.,@#[))"0
>
> Example uses:
> f 'a'
> f '-'
> f 'C.'
>
Here is a 4 characters shorter version:
([:|:(25{.(a.{~,2#65 97+/i.26)(>:@i.}.[){.)"0)
#'([:|:((i.|
Bob Therriault wrote:
> Thanks Ric,
>
> I guess that why the specs were written, huh?
>
> New version back up to 63 characters.
>
> (a.{~,(('.'e.t){32 10)(,"0)2#65 97+/i.26)&(50{.[}.~2+[i.0{])t=. 'k'
> 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
> [...]
>
A straightforward patch
Bob proposed:
(,.@]^:('.'e.[)(a.{~,2#65 97+/i.26)&(25{.[}.~1+[i.0{]))
Three characters shorter version:
(,.@]^:('.'e.[)25{.(a.{~,2#65 97+/i.26)(>:@i.}.[){.)
--
View this message in context:
http://old.nabble.com/Re%3A-Print-Custom-Alphabet-tp34348204s24193p34348204.html
Sent from the J P
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+
