Skip to content

Instantly share code, notes, and snippets.

View ddosia's full-sized avatar

Daniil Churikov ddosia

View GitHub Profile
open Core.Std
open Int64
let find_factor nums k = List.find nums ~f:(fun n -> k % n = 0L)
let rec next_prime primes n =
match find_factor primes n with
| Some _ -> next_prime primes (n + 1L)
| None -> n
Reload = fun(PathPattern) ->
[Dir] = filelib:wildcard(PathPattern),
Mods = filelib:fold_files(
Dir, ".*.beam", false,
fun(F, Acc) ->
[list_to_atom(hd(string:tokens(lists:last(string:tokens(F, "/")), "."))) | Acc]
end,
[]
),
[l(M) || M <- Mods]

Keybase proof

I hereby claim:

  • I am ddosia on github.
  • I am ddosia (https://keybase.io/ddosia) on keybase.
  • I have a public key whose fingerprint is 1C2D 5488 4083 CA31 6A81 29B4 12F5 BB37 E3CC 5CED

To claim this, I am signing this object: