~$ perl -E 'say 4 if    0.8333333333333333 < 5/6'
4
~$ perl -E 'say int 6 * 0.8333333333333333'
5

##</code><code>##

~$ perl -MData::Float=nextdown -E '$n=100; for(1..$n){say if $_-1 != int $n*nextdown $_/$n}'
5
10
17
20
23
34
40
46
67
68
80
81
92
93