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
