Input value
$ n = 0.625 ; $ result = toBinary ( $ n ) ; print ( " ( 0" . $ result . " ) ▁ in ▁ base ▁ 2 STRNEWLINE " ) ; $ m = 0.72 ; $ result = toBinary ( $ m ) ; print ( " ( " . $ result . " ) " ) ; ? >