Re: sub as mathematical function

sub quant{
# 14 characters, but I am bad at this, I'm sure it can get shorter
int((shift)*8)
}
[download]

Update:
Hah. I made the same mistake as LanX above. It works up to 8/9, then it fails.

sub quant{ int((shift)*8) }

for ( 1 .. 9 ) {
    print "$_ => ", quant( ($_/9) - 0.0001 ), "\n";
}
[download]

1 => 0
2 => 1
3 => 2
4 => 3
5 => 4
6 => 5
7 => 6
8 => 7
9 => 7  // BOOM!
[download]

What do we learn? Test all cases :-)

holli

You can lead your users to water, but alas, you cannot drown them.

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

Replies are listed 'Best First'.
Re^2: sub as mathematical function by ikegami (Patriarch) on Sep 04, 2019 at 16:29 UTC
It also fails for a lot of numbers between the ones you tested (e.g. 0.112 should return 1 but returns 0, 0.23 should return 2 but returns 1, etc). The fix is simple: Replace 8 with 9 :) Of course, that assumes the input is in range [0..1), but that seems a sure thing.	[reply]