elvis/lci
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge with cfg

Browse Source
This commit is contained in:
elvis
2025-01-27 16:32:37 +01:00
parent 61ea821d47
commit c88e192b61
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
lib/utility/utility.ml
View File

@ -15,13 +15,13 @@ let rec powmod a d = function
let alphabet = "abcdefghijklmnopqrstuvwxyz"
let base = 26
let rec fromIntToString (x: int) : string =
let rec from_int_to_string (x: int) : string =
if x < 0 then
""
else if x < base then
String.get alphabet x |> String.make 1
else
(fromIntToString (x/base - 1)) ^ (String.get alphabet (x mod base) |> String.make 1)
(from_int_to_string (x/base - 1)) ^ (String.get alphabet (x mod base) |> String.make 1)
let int_and a b =
match (a>0, b>0) with
@ -169,4 +169,3 @@ let rec combine_twice la lb =
| [a], [b] -> [a, b]
| a::la, b::lb -> (a, b) :: (combine_twice la lb)
| _ -> []
>>>>>>> cfg