(哈斯克尔)
导入数据。列表(展开器);导入数据。元组(交换)
a103181_list=映射a103181[0..]
a103181 n=折叠f 0$reverse$展开器g n,其中
f v d=10*v+mod d 2
g x=如果x==0,则无其他内容,仅$swap$divMod x 10
(PARI)a(n)=子集(Pol(应用(k->k%2,数字(n))),'x,10)\\查尔斯·格里特豪斯四世2013年7月16日
(Python)
定义A103181号(n) :对于str(n)中的d,返回int(“”.join(str(int(d)%2))#柴华武2022年4月9日
|