早教吧 育儿知识 作业答案 考试题库 百科 知识分享

对于从1到10之间的每个数k,如果k为偶数,显示出宽它的一半;如果k为奇数,显示它的两倍.用mathematica

题目详情
对于从1到10之间的每个数k,如果k为偶数,显示出宽它的一半;如果k为奇数,显示它的两倍.用mathematica
▼优质解答
答案和解析
f[x_] := If[EvenQ[x],x/2,2 x]
f /@ Range@10
顺便楼下的Module在代码中完全没起到作用……
再顺便,如果要防止f对非整数也起作用,就这样写:
f[x_Integer] := If[EvenQ[x],x/2,2 x]