changed file and folder names to a sane scheme
This commit is contained in:
parent
c19129e6dd
commit
b725343392
34 changed files with 44 additions and 0 deletions
38
e0005/euler0005.jl
Normal file
38
e0005/euler0005.jl
Normal file
|
@ -0,0 +1,38 @@
|
|||
#!/usr/bin/julia
|
||||
|
||||
function isPrime(number::UInt64)
|
||||
if number in [2,3,5]
|
||||
return true
|
||||
elseif number % 2 == 0
|
||||
return false
|
||||
end
|
||||
|
||||
for i ∈ range(3, 2, floor(UInt64, √number))
|
||||
if number % i == 0
|
||||
return false
|
||||
end
|
||||
end
|
||||
return true
|
||||
end
|
||||
|
||||
function generatePrimeList(number::UInt64)
|
||||
primeList = Array{UInt64,1}([2])
|
||||
limit = div(number-1, 2)
|
||||
|
||||
for i ∈ range(3, 2, limit)
|
||||
if isPrime(i)
|
||||
push!(primeList, i)
|
||||
end
|
||||
end
|
||||
|
||||
primeList
|
||||
end
|
||||
|
||||
function euler005(number::UInt64)
|
||||
primeList = generatePrimeList(number)
|
||||
exponents = floor.(UInt64, log.(primeList, number))
|
||||
prod(primeList .^ exponents)
|
||||
end
|
||||
|
||||
euler005(1)
|
||||
@time euler005(20)
|
4
e0005/euler0005.rkt
Normal file
4
e0005/euler0005.rkt
Normal file
|
@ -0,0 +1,4 @@
|
|||
#lang racket
|
||||
|
||||
(do ((n 20 (+ n 20)))
|
||||
((andmap zero? (map ((curry remainder) n) (range 1 21))) n))
|
Reference in a new issue