Select Code to Download

sub binary {
  my ($n) = @_;
...
}

print binary(8);

n is 8.
k is 4.
...
E is 100.

1000