Re: find missing numbers in a series
- To: mathgroup at smc.vnet.net
- Subject: [mg119017] Re: find missing numbers in a series
- From: Bob Hanlon <hanlonr at cox.net>
- Date: Fri, 20 May 2011 06:34:30 -0400 (EDT)
data = {"PE00445", "PE00444", "PE00442", "PE00438", "PE00437",
"PE00434", "PE00432", "PE00428", "PE00424", "PE00423", "PE00420",
"PE00418", "PE00417", "PE00416", "PE00414", "PE00412", "PE00411",
"PE00410", "PE00405", "PE00404", "PE00403", "PE00400", "PE00398",
"PE00397", "PE00393", "PE00386", "PE00383", "PE00381", "PE00377",
"PE00374", "PE00352", "PE00350", "PE00348", "PE00344", "PE00339",
"PE00334", "PE00332", "PE00330", "PE00328", "PE00326", "PE00323",
"PE00284", "PE00283", "PE00281", "PE00280", "PE00279", "PE00278",
"PE00277", "PE00276", "PE00275", "PE00273", "PE00270", "PE00269",
"PE00268", "PE00267", "PE00266", "PE00265", "PE00264", "PE00263",
"PE00262", "PE00261", "PE00260"};
missingData =
Complement[Table["PE00" <> ToString[n], {n, 260, 445}], data]
{"PE00271", "PE00272", "PE00274", "PE00282", "PE00285", "PE00286", \
"PE00287", "PE00288", "PE00289", "PE00290", "PE00291", "PE00292", \
"PE00293", "PE00294", "PE00295", "PE00296", "PE00297", "PE00298", \
"PE00299", "PE00300", "PE00301", "PE00302", "PE00303", "PE00304", \
"PE00305", "PE00306", "PE00307", "PE00308", "PE00309", "PE00310", \
"PE00311", "PE00312", "PE00313", "PE00314", "PE00315", "PE00316", \
"PE00317", "PE00318", "PE00319", "PE00320", "PE00321", "PE00322", \
"PE00324", "PE00325", "PE00327", "PE00329", "PE00331", "PE00333", \
"PE00335", "PE00336", "PE00337", "PE00338", "PE00340", "PE00341", \
"PE00342", "PE00343", "PE00345", "PE00346", "PE00347", "PE00349", \
"PE00351", "PE00353", "PE00354", "PE00355", "PE00356", "PE00357", \
"PE00358", "PE00359", "PE00360", "PE00361", "PE00362", "PE00363", \
"PE00364", "PE00365", "PE00366", "PE00367", "PE00368", "PE00369", \
"PE00370", "PE00371", "PE00372", "PE00373", "PE00375", "PE00376", \
"PE00378", "PE00379", "PE00380", "PE00382", "PE00384", "PE00385", \
"PE00387", "PE00388", "PE00389", "PE00390", "PE00391", "PE00392", \
"PE00394", "PE00395", "PE00396", "PE00399", "PE00401", "PE00402", \
"PE00406", "PE00407", "PE00408", "PE00409", "PE00413", "PE00415", \
"PE00419", "PE00421", "PE00422", "PE00425", "PE00426", "PE00427", \
"PE00429", "PE00430", "PE00431", "PE00433", "PE00435", "PE00436", \
"PE00439", "PE00440", "PE00441", "PE00443"}
Bob Hanlon
---- shippee <slshippee at gmail.com> wrote:
=============
I have a series of numbers ranging from PE00001 to PE99999.
Sample/Snippet below (descending order):
PE00445
PE00444
PE00442
PE00438
PE00437
PE00434
PE00432
PE00428
PE00424
PE00423
PE00420
PE00418
PE00417
PE00416
PE00414
PE00412
PE00411
PE00410
PE00405
PE00404
PE00403
PE00400
PE00398
PE00397
PE00393
PE00386
PE00383
PE00381
PE00377
PE00374
PE00352
PE00350
PE00348
PE00344
PE00339
PE00334
PE00332
PE00330
PE00328
PE00326
PE00323
PE00284
PE00283
PE00281
PE00280
PE00279
PE00278
PE00277
PE00276
PE00275
PE00273
PE00270
PE00269
PE00268
PE00267
PE00266
PE00265
PE00264
PE00263
PE00262
PE00261
PE00260
What would be the best approach to have mathematica show me what
STRINGS are missing from this series?
Thanks in advance,
Steven Shippee
Olympia, Washington