Re: Set operations

Hola,

Your code actually works okay as long as you enter a number for each input. It's a little confusing because there are no prompts for each number in the set, just a blank line. If you happen to press [ENTER] instead of entering a number at any point, you'll get lots of errors.

You will want to change your code to test every input made by the user to see if it is a valid number, and only add it to the set if so. If it is a bad input, loop around and ask again.

Comment on Re: Set operations Download Code

Replies are listed 'Best First'.
Re^2: Set operations by davido (Cardinal) on Dec 02, 2014 at 03:36 UTC
Though he's probably not allowed to use CPAN in his course work, it's too bad. Because if he could, he would be able to use IO::Prompt::Tiny or IO::Prompt::Hooked to simplify the prompting for input. In fact, though it's like calling in the artillery when a fly swatter is needed, ExtUtils::MakeMaker is a core module, and comes with the `prompt` function. `use ExtUtils::MakeMaker 'prompt'; my $value = prompt "Please enter something.", "asdf"; print "$value\n";` [download] The first argument is what to say to the user. The second argument is what default to assume if the user just hits enter (or if there's no terminal). Dave	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Set operations
by davido (Cardinal) on Dec 02, 2014 at 03:36 UTC

Though he's probably not allowed to use CPAN in his course work, it's too bad. Because if he could, he would be able to use IO::Prompt::Tiny or IO::Prompt::Hooked to simplify the prompting for input. In fact, though it's like calling in the artillery when a fly swatter is needed, ExtUtils::MakeMaker is a core module, and comes with the prompt function.

use ExtUtils::MakeMaker 'prompt';

my $value = prompt "Please enter something.", "asdf";
print "$value\n";
[download]

The first argument is what to say to the user. The second argument is what default to assume if the user just hits enter (or if there's no terminal).

Dave

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom