DouKaku? 6069 horiuchi: 負の値は考慮外です。 0の場合は、1 ...(与えられた数字のケタ数)

Comment detail

負の値は考慮外です。
0の場合は、1 1 を返します。

: KETAKURAI ( n -- )
1 1 ROT
BEGIN
  DUP 10 >
WHILE
  10 / ROT 10 * ROT 1+ ROT
REPEAT
DROP . . ;