Re: Finding missing numbers in a list

You can do it with the .. operator:

@a = (41888, 41889, 41890, 41892, 41895);
@m = map $a[$_-1]+1..$a[$_]-1, 1..@a-1;
print join(" ", @m), $/;
[download]

Comment on Re: Finding missing numbers in a list Download Code

Replies are listed 'Best First'.
Re^2: Finding missing numbers in a list by Aristotle (Chancellor) on Sep 03, 2004 at 16:01 UTC
It isn't the easiest to understand, but that's very nice outside the box thinking! Update: minor niggles: use `$#a` since that's what you mean — and please, please, use better variable names. `my @list = ( 41888, 41889, 41890, 41892, 41895 ); my @missing = map { ( $list[ $_ - 1 ] + 1 ) .. ( $list[ $_ ] - 1 ) } 1 + .. $#list;` [download] Makeshifts last the longest.	[reply] [d/l]
Re^3: Finding missing numbers in a list by davorg (Chancellor) on Sep 02, 2016 at 10:01 UTC
(Twelve years later - directed here by a post on Stack Overflow.) I'm not convinced that `@list` is much of an improvement over `@a` as a name for an array :-) -- See the Copyright notice on my home node. Perl training courses	[reply]
Re^4: Finding missing numbers in a list ( @numbers ) by Anonymous Monk on Sep 02, 2016 at 11:13 UTC
I'm not convinced that @list is much of an improvement over @a as a name for an array :-) Thats a terrible unconviction :P @list is much times better than @array ... @a for short... because the question talks about a list of numbers, the @list ... and the @ tells us its array @numbers	[reply]