tag:blogger.com,1999:blog-3861200916183859809.post3696013789231749069..comments2018-04-16T12:09:54.580+05:30Comments on Perl Quiz: Quiz 78: Smallest positive integer not in listsaurabh2k26http://www.blogger.com/profile/00524123124401905843noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-3861200916183859809.post-9195788075378070692015-03-02T11:53:37.076+05:302015-03-02T11:53:37.076+05:30Hi
Your solution gives out of memory error for thi...Hi<br />Your solution gives out of memory error for this simple case:<br />1<br />777777777saurabh2k26https://www.blogger.com/profile/00524123124401905843noreply@blogger.comtag:blogger.com,1999:blog-3861200916183859809.post-44212465014149123082015-02-27T00:25:19.306+05:302015-02-27T00:25:19.306+05:30#!/usr/bin/perl
# http://perlquiz.blogspot.in/
u...#!/usr/bin/perl<br /><br /># http://perlquiz.blogspot.in/<br /><br />use warnings;<br />use strict;<br /><br />for (1 .. scalar <>)<br /> {<br /> my @list = split ' ', <>; # list of numbers<br /> my @integers = 0 .. @list+1; # candidate integers<br /> @integers[@list] = (); # remove list from integers<br /> print +(grep $_, @integers)[0], "\n"; # print first integer left<br /> }<br />Anonymousnoreply@blogger.com