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