Binary digits: Difference between revisions

Content added Content deleted

Inline

@@ Line 247: / Line 247: @@
 <lang Ada>with ada.text_io;use ada.text_io;
 procedure binary is
+-- the digits in base 2
-  function bin_image (n : Natural) return string is
+  bit : array (0..1) of string (1..1) := ("0","1");
-  (if n=0 then "0" elsif n=1 then "1" else bin_image (n/2) & bin_image (n mod 2));
+-- the conversion function itself
+  function bin_image (n : Natural) return string is (if n<2 then bit (n) else bin_image (n/2)&bit(n mod 2));
+-- the values we want to test
   test_values : array (1..3) of Natural := (5,50,9000);
 begin
-  for test of test_values loop put_line ("Output for" & test'img &" is " & bin_image (test)); end loop;
+  for test of test_values loop put_line ("Output for"&test'img&" is "&bin_image (test)); end loop;
 end binary;</lang>