Here is a verb whose domain is single numbers and whose result is the
simplest array which contains that number:

   number =: {.@,@:+&($: ::]@,: 0x)
   number 1 1 1$ 0
0
   $number 1 1 1$ 0

   number 1 2
|length error: number
   number 'a'
|domain error: number

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

Reply via email to