#!/usr/bin/perluse 5.10.0;for(1..<>){$u+=length sprintf"%b",$_;$n++}$u/=$n;say$u
25
3.96
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!