erlang 入门练习 顺序编程一

erlang 入门练习 顺序编程一

• 目前只学到顺序编程， 其余个人认为真正的精髓OTP 并发，后期学习
• 找了些带有逻辑应用题来练练手，熟悉语法和erlang多用的尾递归思维

---

1.运动员分组

有N个人参加100米短跑比赛。跑道为8条。程序的任务是按照尽量使每组的人数相差最少的原则分组。
例如：
N=8时，分成1组即可。
N=9时，分成2组：一组5人，一组4人。
N=25时，分4组：7、6、6、6。

请编程计算分组数字。
要求从标准输入获得一个正整数（1~100之间，不必考虑输入错误的情况），表示参赛的人数。
程序输出每个组的人数。从大到小顺序输出，每个数字一行。

比如，
用户输入：25
程序输出：
7
6
6
6

trainer(Num) ->
    Lines = (Num+7) div 8,
    LessNum = Num div Lines,
    Rest = Num rem Lines,
    get_each_trainer(LessNum, Rest, Lines).

get_each_trainer(_LessNum, 0, 0) ->
    io:format("");
get_each_trainer(LessNum, 0, Lines) ->
    io:format("~p~n", [LessNum]),
    get_each_trainer(LessNum, 0, Lines - 1);
get_each_trainer(LessNum, Rest, Lines) ->
    io:format("~p~n", [LessNum+1]),
    get_each_trainer(LessNum, Rest - 1, Lines-1).

2.信用卡校验

当你输入信用卡号码的时候，有没有担心输错了而造成损失呢？其实可以不必这么担心，因为并不是一个随便的信用卡号码都是合法的，它必须通过Luhn算法来验证通过。

该校验的过程：
1、从卡号最后一位数字开始，逆向将奇数位(1、3、5等等)相加。
2、从卡号最后一位数字开始，逆向将偶数位数字，先乘以2（如果乘积为两位数，则将其减去9），再求和。
3、将奇数位总和加上偶数位总和，结果应该可以被10整除。

例如，卡号是：5432123456788881

逆向奇数位为 4 2 2 4 6 8 8 1 和 = 35
逆向偶数位乘以2（有些要减去9）的结果：1 6 2 6 1 5 7 7，求和 = 35。
最后 35 + 35 = 70 可以被10整除，认定校验通过。

请编写一个程序，从标准输入获得卡号，然后判断是否校验通过。
通过显示：“成功”，否则显示“失败”。

比如，
输入：356827027232780
程序输出：成功

credit(Term) ->
   L = term_to_list(Term),
   io:format("~p~n", [L]),