first commit

perl/Examples/Chap1/binary

@@ -0,0 +1,16 @@
+
+
+###
+### 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;
+}