Help for this page

Select Code to Download


  1. or download this
     DB<42> $num1 = 1990; $num2 = '19.90'

 DB<43> p $num1 == ("" . $num2*100)          # number->to_string->to_n
+umber
1
 DB<44>
  2. or download this
     DB<41> say join "\n", grep { sprintf ("%03d",$_) != ("".($_/1000)*100
+0) } 0..99999

 DB<42>
  3. or download this
      DB<44> $num1 = '001990'; $num2 = '19.9'

...

  DB<61> p $num1 == ("" . $num2*100)
1
  4. or download this
      DB<63> $num2*=100

...
1
  DB<65>