Re: sub as mathematical function

Provided

> input: float 0 to 1 inclusive

It's int(9*$v)

Corrected off by one

Corrected correction ;)

The edge case 1=9/9 needs special treatment. Are you sure 8 is the maximum?

If yes max(8,int(9*$v))

max needs to be imported. (POSIX?)

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

Comment on Re: sub as mathematical function Select or Download Code

Replies are listed 'Best First'.
Re^2: sub as mathematical function by Anonymous Monk on Sep 04, 2019 at 12:29 UTC
`min(int(9*$x),8)` is perfect thanks all :-)	[reply] [d/l]
Re^3: sub as mathematical function by LanX (Saint) on Sep 04, 2019 at 13:08 UTC
Oh ... off by max, again! ;-) update I wouldn't count on correct input though, and additional max seems safe `DB<5> print $_,":",max(min(int(9*$_/18),8),0),"\n" for -2..20 -2:0 -1:0 0:0 1:0 2:1 3:1 4:2 5:2 6:3 7:3 8:4 9:4 10:5 11:5 12:6 13:6 14:7 15:7 16:8 17:8 18:8 19:8 20:8` [download] Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}	[reply] [d/l]
Re^4: sub as mathematical function by davido (Cardinal) on Sep 04, 2019 at 18:12 UTC
The subexpression 9*X/18 == (9x)/18 == x/2. Therefore, `max(min(int($_ / 2), 8, 0);` Dave	[reply] [d/l]
Re^5: sub as mathematical function by LanX (Saint) on Sep 04, 2019 at 21:15 UTC
Re^3: sub as mathematical function by rsFalse (Chaplain) on Sep 04, 2019 at 17:06 UTC
>> min(int(9$x),8)* When number of intervals vary (not only 9), then this looks more general: `my $intervals = 9; min( int( $intervals * $x ), $intervals - 1 )` or: `my $intervals = 9; int( $intervals * $x ) - int $x`	[reply] [d/l] [select]