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
23
e0002/euler0002.jl
Executable file
23
e0002/euler0002.jl
Executable file
|
@ -0,0 +1,23 @@
|
|||
#!/usr/bin/julia
|
||||
|
||||
function euler002(limit)
|
||||
prevFib = 1
|
||||
fib = 1
|
||||
fibSum = 0
|
||||
|
||||
while fib < limit
|
||||
if fib % 2 == 0
|
||||
fibSum += fib
|
||||
end
|
||||
|
||||
nextFib = prevFib + fib
|
||||
prevFib = fib
|
||||
fib = nextFib
|
||||
end
|
||||
|
||||
return fibSum
|
||||
end
|
||||
|
||||
euler002(1)
|
||||
|
||||
@time euler002(4*10^6)
|
13
e0002/euler0002.rkt
Normal file
13
e0002/euler0002.rkt
Normal file
|
@ -0,0 +1,13 @@
|
|||
#lang racket
|
||||
|
||||
(define (fib i)
|
||||
(cond [(equal? 0 i) 1]
|
||||
[(equal? 1 i) 2]
|
||||
(else (+ (fib (- i 1))(fib (- i 2))))))
|
||||
|
||||
(define (fiblist it limit lst)
|
||||
(cond [(equal? limit it) lst]
|
||||
(else (fiblist (+ it 1) limit
|
||||
(cons (fib it) lst)))))
|
||||
|
||||
(foldl + 0 (filter even? (fiblist 0 4000000 '())))
|
Reference in a new issue