列出ser中缺失的数字

vvvraju007 · 发表于 2022-7-5 18:20:17

你好
我把数字放在cad 2004中，在这里我需要工具来找出缺失的数字之间的列表在一个。csv或。txt。

1）示例：如果1,2,3,5,68,99

缺失列表，
4.
6-67
69-98

2）示例：如果350351352355386
353-354
356-385

谢谢你，
VVV

Lee Mac · 发表于 2022-7-5 18:46:19

将递增变量与成员函数结合使用，根据数字列表检查变量，例如：

copy

(defun missingnumbers ( l / i m r )
   (setq i (apply 'max l)
         m (apply 'min l)
   )
   (while (< m (setq i (1- i)))
       (if (not (member i l)) (setq r (cons i r)))
   )
   r
)

copy

_$ (missingnumbers '(1 2 3 5 68 99))
(4 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98)

copy

_$ (missingnumbers '(350 351 352 355 386))
(353 354 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385)

IIC · 发表于 2022-7-5 19:04:19

你好
我对Dwg文件中缺少的数字有疑问。
我正在处理地块映射，在这里我们放置地块编号。

我收到一个或两个包裹号不见了。

i、 e.如果我放置1到1000个包裹文本。我想知道dwg中缺少多少地块文字（编号）。

可以在文本文件中显示缺失的数字。

请将工具或代码发送给我

lijinsong1972 · 发表于 2022-7-5 19:18:21

（定义c:tt（）
（setq k 0 newlist nil g 1）
（重复（长度mylist）
（if（/=（setq listmember（nth k mylist））g）
（setq newlist（cons listmember newlist））
)
（setq k（1+k）g（1+g））
)
)

IIC · 发表于 2022-7-5 19:30:22

你好
我不知道该如何运行这段代码。我不熟悉编码。

请任何人推荐我使用这个工具。

“文字位于Text\u地块”层。我已经放置了序列包裹文本，但在这些序列文本之间缺少一个或两个数字。我想找一个工具来找出列表中这些缺失的数字。“请任何人做需要的事。

[编程交流] 列出ser中缺失的数字

发表回复

精选推荐