Sha256: 5c691b19e2bfe45d8e1b1e7d2ee05fd795ad6df3d156bfe9e4e1d0e5681d8a8c
Contents?: true
Size: 712 Bytes
Versions: 90
Compression:
Stored size: 712 Bytes
Contents
module AllYourBase
let toBase b n =
let rec loop n acc =
if n = 0 then acc else
let digit, n' = n % b, n / b
loop n' (digit::acc)
match loop n [] with
| [] -> Some [0]
| digits -> Some digits
let fromBase b nums =
let rec loop acc = function
| [] -> Some acc
| digit::rest ->
if digit < 0 then None else
if digit >= b then None else
loop (acc * b + digit) rest
loop 0 nums
let rebase digits inputBase outputBase =
match inputBase < 2 || outputBase < 2 with
| true ->
None
| false ->
digits
|> List.skipWhile ((=) 0)
|> fromBase inputBase
|> Option.bind (toBase outputBase)
Version data entries
90 entries across 90 versions & 1 rubygems