DouKaku?

Arcです。
リストで結果を返しています。
もしかして今のところArcに多値はないのかしら…。
実行結果:
(fig 20070130) ;=> (8 10000000)
(fig 1)        ;=> (1 1)
(fig 0)        ;=> (1 1)
(fig -20070130);=> (8 10000000)

1
2
3

(def fig (n)
  (let len (len (string (abs n)))
    `(,len ,(expt 10 (- len 1)))))