%I#13 2013年7月13日12:02:34
%S 2,6,2,4,6,4,2,4,8,4,2,0,2,4,10,6,12,8,8,6,6,0,2,00,0,0,12,
%电话:8,16,14,16,12,12,12,6,4,8,0,0,2,0,00,0_0,0,0,0,0,12,0,0,
%U 14,10,20,22,24,22,26,18,16,12,16,12,0,4,10,0,02,0,0,10,0
%N行读取的三角形:T(N,k)=二进制N元组u的个数,正好有k个孙子,其中孙子是通过删除u的任意两个坐标获得的向量(N>=3,1<=k<=2^(N-2))。
%C行长度=2^(n-2),行总和=2^n。
%D N.J.A.Sloane,《关于单删失修正码》,摘自《代码与设计》(俄亥俄州哥伦布,2000),273-291,俄亥俄州立大学数学系。Res.Inst.出版物。,10,de Gruyter,柏林,2002年。
%H Reinhard Zumkeller,<a href=“/A057606/b057606.txt”>三角形的行数n=3..15,扁平</a>
%H N.J.A.斯隆,<A href=“http://neilsloane.com/doc/dijen.txt“>单删除更正代码</a>
%e 2,6;2,4,6,4; 2,4,8,4,8,4,2,0; ...
%o(哈斯克尔)
%o导入数据。列表(group、sort、nub、inits、tails)
%o a057606 n k=a057606_tabf!!(n-3)!!(k-1)
%o a057606_row n=a057606 _ tabf!!(n-3)
%o a057606_tabf=地图g$drop 3$
%o迭代(\xs->(map(0:)xs)++(map
%o g xss=映射长度$fill0$group$sort$map(length.del2)xss
%o其中fill0 uss=f0 uss[1..length xss`div`4]其中
%o f0 _[]=[]
%o f0[](j:js)=[]:f0[]js
%o f0 vss’@(vs:vss)(j:js)
%o|j==头部vs=vs:f0 vss js
%o |否则=[]:f0 vss的js
%o del2=零。(concatMap del1)。del1(删除1)
%o del1 xs=nub$
%o zipWith(++)(init$inits xs)(映射尾部$init$tails xs
%o——Reinhard Zumkeller,2012年4月30日
%Y参考A057607。
%K nonn,tabf,不错
%O 3,1
%A _N.J.A.Sloane,2000年10月8日
|