first commit

perl/Examples/Chap5/binary-2

@@ -0,0 +1,19 @@
+
+
+###
+### binary2
+###
+
+## Chapter 5 section 4.2
+
+sub binary {
+  my ($n, $RETVAL) = @_;
+  $RETVAL = "";
+  while (1) {
+    my $k = int($n/2);
+    my $b = $n % 2;
+    $RETVAL = "$b$RETVAL";
+    return $RETVAL if $n == 0 || $n == 1;
+    $n = $k;
+  }
+}