Select Code to Download

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

~$ perl -MData::Float=nextdown -E '$n=100; for(1..$n){say if $_-1 != i
+nt $n*nextdown $_/$n}'
5
...
81
92
93