(哈斯克尔)
导入数据。列表(查找)
导入数据。也许(地图也许)
a194218 n=a194218_列表!!(n-1)
a194218_list=映射fst kaprekarPairs
a194219 n=a194219_列表!!(n-1)
a194219_list=映射snd-kaprekarPairs
a006886 n=a006886_列表!!(n-1)
a006886_list=映射(uncrry(+))kaprekarPairs
kaprekarPairs=(1,0):(mapMaybe(\n->kSplit n$splits(n^2))[1..])
其中kSplit x=查找(\(左,右)->左+右==x)
拆分q=否0。map(divMod q)$迭代(10*)10
no0=takeWhile((>0)。fst)。过滤器((>0)。snd)
--请参阅Rosetta链接。
|