test018

题目:求s=a+aa+aaa+aaaa+aa...a的值,其中a是一个数字.例如2+22+222+2222+22222(此时

   共有5个数相加),几个数相加有键盘控制.

-module(test018).
-export([cal/0]).
cal()->
    {ok,[Value]}=io:fread("请输入要构造的个数:","~d"),
    L=[list_to_integer( lists:duplicate(X, 2 + $0) ) || X <- lists:seq(1,Value) ],
    io:format("数列是：~w~n", [L]),
    io:format("各项和是：~w~n", [lists:sum(L)]).

请输入要构造的个数:5
数列是：[2,22,222,2222,22222]
各项和是：24690
ok