(ARIBAS)s:=“”;对于n:=1至200 do sn:=itoa(n);
如果substrindex(s,sn)>=0,则写入(n,“,”);结束;
(UBASIC)
10 X=“”
N=1至396时为20
30 A=切割spc(str(N))
40如果仪表(X,A)>0,则打印N;
50 X+=A
60下一个N
(哈斯克尔)
导入数据。列表(isPrefixOf,find)
导入数据。也许(来自Just)
a116700 n=a116700_列表!!(n-1)
a116700_list=早期筛选[1..],其中
早期z=not(反向(show(z-1))`isPrefixOf`fst bird),其中
bird=fromJust$find((show z`isPrefixOf`)。snd)xys系列
xys=迭代(\(us,v:vs)->(v:us,vs))
([],concatMap显示[0..])
(Python)
定义缺陷(极限):
s、 alst=“”,[]
对于范围(1,极限+1)中的k:
sk=str(k)
如果sk在s:alst.append(k)中
s+=sk
返回alst
|