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.|.-.)~(a.{~65 97+/i.26)&(*@#.@e.,@#[))"0)'
50
   #'([:|:(25{.(a.{~,2#65 97+/i.26)(>:@i.}.[){.)"0)'
46


-- 
View this message in context: 
http://old.nabble.com/Re%3A-Print-Custom-Alphabet-tp34348222s24193p34348222.html
Sent from the J Programming mailing list archive at Nabble.com.

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to