IntelliJ IDEA Ubuntu rinetd 国外镜像 分布式调度 aircrack-ng github button networking linktosql notifications null 传智播客python git视频教程 广告投放系统源码 js字符串排序 linux 获取系统时间 mysql修改字段值 jq入口函数 hbuilder插件 destoon python日期转时间戳 pythonapi python开发 python正则匹配 python环境变量配置 java教学 java编程实例 java链接mysql数据库 java生成文件 java输出 java类方法 win10计算器下载 端口关闭工具 数据挖掘原理与算法 系统工具箱 dnf瞎子传说套选择 c4d挤压 pr动态字幕 rpm卸载命令
当前位置: 首页 > 学习教程  > 编程语言

erlang精要(14)-列表(1)

2021/2/13 16:30:11 文章标签: 测试文章如有侵权请发送至邮箱809451989@qq.com投诉后文章立即删除

1> X[1,2,3]. [1,2,3] 2> Y[4,5,6]. [4,5,6] 5> [X|Y]. [[1,2,3],4,5,6] 7> [Fst|Rest]Y. [4,5,6] 8> Fst. 4 9> Rest. [5,6] 10> [One,Two,Three]X. [1,2,3] 11> One. 1 12> Three. 3 13> 奇数和偶数的判断 116> learnerl:loop([1,2,3]). …

1> X=[1,2,3].
[1,2,3]
2> Y=[4,5,6].
[4,5,6]
5> [X|Y].
[[1,2,3],4,5,6]
7> [Fst|Rest]=Y.
[4,5,6]
8> Fst.
4
9> Rest.
[5,6]
10> [One,Two,Three]=X.
[1,2,3]
11> One.
1
12> Three.
3
13> 

奇数和偶数的判断

116> learnerl:loop([1,2,3]). 
1 是奇数
2 是偶数
3 是奇数
byebye.
ok
117> 
-module(learnerl).
-export([loop/1]).


is_odd(Num)->
     Rn=Num rem 2,
     case Rn of
         1->io:format("~p 是奇数~n",[Num]);
         0->io:format("~p 是偶数~n",[Num])
     end.
     
     

loop([Fst|Rst])->
    is_odd(Fst),
    loop(Rst);  
loop([]) ->io:format("byebye.~n").

所有奇数的和

-module(learnerl).
-export([total/3]).


is_odd(Num)->
     Rn=Num rem 2,
     case Rn of
         1->true;
         0->false
     end.
     
output_lst([Fst|Rst])->
    io:format("~p,",[Fst]),
    output_lst(Rst);
output_lst([]) ->io:format("~n").

total([Fst|Rst],OddLst,Sum)->
    case is_odd(Fst) of
        true->NewSum=Sum+Fst,NewOddLst=[Fst|OddLst];
        false->NewSum=Sum,NewOddLst=OddLst
    end,
    total(Rst,NewOddLst,NewSum);
total([],OddLst,Sum) ->
    output_lst(OddLst), 
    OddLst,io:format("Sum=~p byebye.~n",[Sum]).
111> c(learnerl).
{ok,learnerl}
112> learnerl:total([1,2,3],[],0).         
3,1,
Sum=4 byebye.
ok
113>

本文链接: http://www.dtmao.cc/news_show_700051.shtml

附件下载

相关教程

    暂无相关的数据...

共有条评论 网友评论

验证码: 看不清楚?