作者VElysian (VElysian)
看板Programming
标题Re: [问题] 1-9位数不重复印出来 (Awk)
时间Wed Mar 2 01:03:13 2022
awk 'BEGIN { printf "请输入数字："; getline num < "-"; \
for(n=1;n<=10**num-1;n++) { s=""; split(n,a,""); for(i in a) if(match(s,a[i])) break; else s=s a[i]; \
if(s==n) print n } }'
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 1.162.185.242 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Programming/M.1646154198.A.ABD.html
※ 编辑: VElysian (1.162.185.242 台湾), 03/02/2022 01:07:08