*./@:~:@:(#.^:_1) Untested.
Henry Rich On 9/12/2011 7:45 PM, Gregory Nisbet wrote: > This verb will determine if each digit in the base y representation of x is > unique. > uniqinbase =: [:*./ [:~: ]#:~ [$~ [:>.^. > It is possible that weird behavior might occur when computing the logarithm > and large floating point number (in order to check the shape of the argument > needed for #:). Those could give erroneous results. > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
