与えられた数字のケタ数
Posted feedbacks - Erlang
1> c(column_place).
{ok,column_place}
2> column_place:column_place(2469).
{4,1000}
3> column_place:column_place(600).
{3,100}
4> column_place:column_place(1).
{1,1}
1 2 3 4 5 6 7 8 9 10 11 | -module(column_place).
-export([column_place/1]).
column(0) -> 0;
column(Num) -> 1 + column(Num div 10).
place(1) -> 1;
place(Col) -> 10 * place(Col - 1).
column_place(0) -> {1, 1};
column_place(Num) -> {column(Num), place(column(Num))}.
|



susu
#3396()
Rating0/0=0.00
このお題はsusuさんの投稿です。ご投稿ありがとうございます。
[ reply ]