Sha256: 6b13dc4dbfedd62bba71506228bf16c8de4fbd3165e46a6bf64e34c3f1d2cd58
Contents?: true
Size: 674 Bytes
Versions: 20
Compression:
Stored size: 674 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
match nums with
| [] | 0::_ -> None
| _ -> loop 0 nums
let rebase inB inDigits outB =
if inB < 2 || outB < 2 then None else
match fromBase inB inDigits with
| None -> None
| Some num -> toBase outB num
Version data entries
20 entries across 20 versions & 1 rubygems