Как закодировать?

From

Victor Bazhenov (2:5022/70.1)

To

Pavel P

Date

2002-10-10T19:07:33Z

Area

RU.ALGORITHMS

Hello, Pavel!

Tue, 08 Oct 2002 13:11:38 you wrote:

 PP> Люди не пишите на С :) Пишите вот так :)

 PP> toBin 0 = "0"
 PP> toBin x = f x
 PP> where
 PP>    f 0 = ""
 PP>    f x = f (x >> 1 bitand INT_MAX) +++ toString (x bitand 1)

 PP> Сам догадаешься почему приведеный пример на порядок лучше чем твой С ?

Или вот так.

let to_bin = function
  | 0 -> "0"
  | n ->
      let rec to_bin_aux m = function
        | 0 -> m
        | n -> to_bin_aux (string_of_int (n land 1) ^ m) (n lsr 1)
      in
      to_bin_aux "" n

--
    Victor

--- Frontier
 * Origin: Skydive (2:5022/70.1)