ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Victor Bazhenov 2:5022/70.1 10 Oct 2002 19:07:33
To : Pavel P
Subject : Как закодировать?
--------------------------------------------------------------------------------
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)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
