17 lines
192 B
Plaintext
17 lines
192 B
Plaintext
|
|
|
|
###
|
|
### binary
|
|
###
|
|
|
|
## Chapter 1 section 1
|
|
|
|
sub binary {
|
|
my ($n) = @_;
|
|
return $n if $n == 0 || $n == 1;
|
|
my $k = int($n/2);
|
|
my $b = $n % 2;
|
|
my $E = binary($k);
|
|
return $E . $b;
|
|
}
|