Comment detail

与えられた数字のケタ数 (Nested Flatten)
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))}.

Index

Feed

Other

Link

Pathtraq

loading...