|
（哈斯克尔）
a091090 n=a091090_列表！！n
a091090_list=1:f[1，1]，其中f（x:y:xs）=y:f（x:xs++[x，x+y]）
--列表生成器功能与a036987_list相同，cf。A036987号.
--莱因哈德·祖姆凯勒2011年3月13日
（哈斯克尔）
a091090'n=levenshtein（显示$a007088（n+1））（显示$a007088 n）其中
levenshtein:：（等式t）=>[t]->[t]->Int
levenshtein us vs=最后$foldl transform[0..length us]vs where
transform xs@（x:xs'）c=scanlcompute（x+1）（zip3 us xs xs'）其中
计算z（c’，x，y）=最小值[y+1，z+1，x+fromEnum（c'/=c）]
--莱因哈德·祖姆凯勒2015年6月9日
（哈斯凯尔）--遵循弗拉德塔·乔沃维奇的公式
导入数据。列表（转置）
a091090英寸n=vjs！！n在哪里
vjs=1:1:concat（转置[[1，1..]，map（+1）$tail vjs]）
--莱因哈德·祖姆凯勒2015年6月9日
（m，m>m（最大值）=1，m>\\查尔斯R格雷特豪斯四世2017年8月15日
| 