Re: if statement consolidation

What about

if ($h > 0 and $h <= 16 and $h % 2 == $h < 9) {
    my $n = int(($h + 1) / 2);
    $j = $h + $n;
    $p = 0 + ! ($n % 2);
    $v = $n + (8 * ($h < 10));
}
[download]

Update: "if" condition added.

Comment on Re: if statement consolidation Download Code

Replies are listed 'Best First'.
Re^2: if statement consolidation by moritz (Cardinal) on Jun 28, 2012 at 10:16 UTC
Note that the original code did not modify any of the variables unless $h has one of a list of certain values. If that's important behavior, there should be an if-statement guarding your code. Perl 6 - the future is here, just unevenly distributed	[reply]
Re^3: if statement consolidation by choroba (Cardinal) on Jun 28, 2012 at 16:38 UTC
Thanks, added.	[reply]